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.
Public Sub DataVal(wbk As Object, SourceSheet As String, SourceColumn As String, DestCol As String) Dim rng As Range Set rng = wbk.Sheets(SourceSheet).Range(SourceColumn & "2:" & SourceColumn _ & wbk.Sheets(SourceSheet).Cells(65536, SourceColumn).End(xlUp).Row) With wbk.Sheets("Severance Tax").Range(DestCol & "10:" & DestCol _ & wbk.Sheets("Severance Tax").Cells(65536, "A").End(xlUp).Row).Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _ Formula1:="=" & rng.Address & "" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub
|Run an action on recently added records to a table||13||59|
|Add Checkboxes that will return emails addresses in the BCC field into Outlook||3||48|
|Do Wend Macro not working||22||29|
|Import text from rows into columns?||11||22|