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.
Dim xlObject As Excel.Application Dim xlWB As Excel.Workbook Dim xlWs As Excel.Worksheet Dim R As Long Set xlObject = New Excel.Application 'This Adds a new woorkbook, you could open the workbook from file also Set xlWB = xlObject.Workbooks.Add Set xlWs = xlWB.Sheets(1) With MSHFlexGrid2 For R = Val(from_row) To Val(to_row) If UCase(Trim(MSHFlexGrid2.TextMatrix(R, 0))) = "LOCATION_NOT_MATCHING" Then Clipboard.Clear 'Clear the Clipboard 'Select Full Contents (You could also select partial content) .Col = 0 'From first column .Row = 0 'From first Row (header) .ColSel = .Cols - 1 'Select all columns .RowSel = R 'Select relevant rows Clipboard.SetText .Clip 'Send to Clipboard With xlWs '~~> Bold all the relevant cells in 1 Go! .Range("A1,A3,B3,C5,D5").Font.Bold = True .Range("A6:BF6").Interior.Color = RGB(205, 197, 191) .Range("A:BF").NumberFormat = "@" .Range("a1") = "Isotrak and TMS location extract from Oracle" .Range("a1").Font.Size = 17 .Range("a3") = "Date of report:" .Range("C3") = Format(Date, "mmm dd, yyyy") .Columns("A:BF").HorizontalAlignment = xlLef .Columns("A:A").ColumnWidth = 28 .Columns("B:B").ColumnWidth = 0 xlObject.ActiveWorkbook.ActiveSheet.Range("A6").Select 'Select Cell A1 (will paste from here, to different cells) xlObject.ActiveWorkbook.ActiveSheet.Paste 'Paste clipboard content .Range("C7").Select xlObject.ActiveWindow.FreezePanes = True xlObject.ActiveWorkbook.ActiveSheet.Range("A6").Select End With End If Next End With xlObject.ActiveWorkbook.ActiveSheet.Name = "Location_not_matching" xlObject.ActiveWorkbook.ActiveSheet.Tab.ColorIndex = 4 xlObject.ActiveWorkbook.ActiveSheet.Columns("C:BF").AutoFit
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.