ip macro

[quarinteen]

I also am having a hard time with ipaddresses. I have thousands of these to work on.

I need to change the last number from a 1 to a 0

192.62.131.1
192.62.133.1
192.62.134.1
192.62.136.1
192.62.140.1
192.62.141.1
192.62.143.1

needs to be
192.62.131.0
192.62.133.0
192.62.134.0
192.62.136.0
192.62.140.0
10.62.141.0
10.62.143.0

find .1 replace with .0 returns

192.62.031.0
192.62.033.0
192.62.034.0
192.62.036.0
192.62.040.0
192.62.041.0
192.62.043.0

Any ideas?

[Andy Pope]

With formula in an adjacent cell you could use

=LEFT(A1,LEN(A1)-1)&"0"

[Hemant Dhodiya]

temp = "192.62.131.1"
temp1 = Right(temp, Len(temp) - InStrRev(temp, ".", -1))

temp2 = Left(temp, InStrRev(temp, ".", -1))
If Left(temp1, 1) = "1" Then
temp1 = "0" + Right(temp1, Len(temp1) - 1)
temp = temp2 + temp1
End If
MsgBox temp

[VBA Noob]

Hemant Dhodiya,

This is the 2nd warning about not using code tags. Please don't ignore my request to add you're code tags as per forum rules below

VBA Noob