Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Private Sub CommandButton5_Click() Dim rCell As Range Dim pg As Worksheet Dim N As Single Dim aColor As Long ' Data entry for random number (Light Blue) Dim bColor As Long ' Data entry for words - set by cell defined name (Very Pale Blue) Dim cColor As Long ' Verification data that shouldn't be changed but should be removed prior to issue (Tan) Dim dColor As Long ' Data/Formulas that shouldn't be changed or removed prior to issue (Very Pale Green) Randomize ' Initiate random number generator aColor = RGB(153, 204, 255) 'Specify the color range for random numbers bColor = RGB(204, 255, 255) cColor = RGB(255, 204, 153) dColor = RGB(204, 255, 204) For N = 1 To Sheets.Count For Each rCell In Sheets(N).Range("A1:AZ500") If rCell.Interior.Color = aColor Then rCell.Value = 0.6 + (0.3 * Rnd) Else End If Next rCell Next N For N = 1 To Sheets.Count For Each rCell In Sheets(N).Range("A1:AZ500") If rCell.Interior.Color = bColor Then rCell.Value = rCell.Name Else End If Next rCell Next N End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.