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.
Sub DoTasks() Dim cell As Range Dim total As Integer Dim rows_in_col As Integer Dim header As Range 'Find cells in header If Range("F5") = "" Then 'May only be one cell in header Set header = Range("E5") Else Set header = Range(Range("F5"), Range("F5").End(xlToRight)) End If 'Find the max row For Each cell In header rows_in_col = Range(cell, cell.End(xlDown)).Count If rows_in_col > total Then total = rows_in_col End If Next cell 'Add the sum column two rows below max For Each cell In header Cells(cell.Row + total + 1, cell.Column).Formula = "=@subtotal(9," & _ Range(cell, cell.End(xlDown)).Address & ")" Next cell 'Same command as double clicking the border. Range("A:S").EntireColumn.AutoFit Cells(header.Row + total + 1, 1).Activate End Sub
|Need To remove Extra Column adding, while downloading through vba||1||27|
|need formula to count the number of letters in the 2nd word of excel value||3||36|
|Stop display of alerts in Word via Excel||12||15|
|What is the alternative to the MIN function when you have to recognize a cell is blank?||5||14|