Excel Marco for IP Address

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

jamesbehling@gmail.com - 17 Aug 2006 18:15 GMT

I have a list of servers in column A, some of the server names are IP
addresses. I need a macro that will determine if the server name
listed is an IP address and if so, do a specfic action.

Example Spreadsheet
A
1 10.2.5.99
2 10.2.5.33
3 34Bob
4 Geroge
5 Luke

Psuedo Code
Check value of column A, Cell X
If value = IP address
copy entire row to other worksheet
delete row
End If

Reply to this Message

Bob Phillips - 17 Aug 2006 19:05 GMT

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
If Len(Cells(i, "A").Value) - (Len(Replace(Cells(i, "A").Value, ".",
""))) = 3 Then
If IsNumeric(Replace(Cells(i, "A").Value, ".", "")) Then
'do something"
End If
End If
Next i

End Sub

Signature

HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

> I have a list of servers in column A, some of the server names are IP
> addresses. I need a macro that will determine if the server name
[quoted text clipped - 14 lines]
> delete row
> End If

Reply to this Message