xxx.xxx.xxx.xxx verisinde ilk 3 haneyi çıkarıp diğer verileri yan sütuna yazdırma

[u.L.a.s]

merhabalar

A sütununda A3 hücresinden itibaren satır satır aşağıdaki gibi sayısal veriler içeren IP bilgileri olsun diyelim.

111.222.333.444
1.2.3.4
99.88.77.66
100.50.50.50
10.100.10.100

B3 sütunundan itibaren ben şöyle bir formülle bu verileri şu hale getirebiliyorum. Yani ilk nokta ve onun öncesindeki sayısal veriler silinmiş halde oluyor ve diğer veriler kalmış oluyor.

Formül : =MID(A3;FIND(".";A3)+1;FIND(".";A3;(FIND(".";a3)+1)-FIND(".";A3))+7)

222.333.444
2.3.4
88.77.66
50.50.50
100.10.100

Ben bunu formül yerine makro olarak yazmak istersem nasıl yazarım bilgi ve yardımlarınızı rica ederim

 

[Haluk]

Merhaba;

A ve B sütunlarını "Text" olarak biçimlendirdikten sonra aşağıdaki kodu çalıştırın;

Sub Test()
    LastRowA = Range("A10000").End(xlUp).Row
    For i = 3 To LastRowA
        x = InStr(1, Range("A" & i).Text, ".")
        Range("B" & i) = Replace(Range("A" & i).Text, Left(Range("A" & i).Text, x), "", , 1)
    Next
End Sub

 

[u.L.a.s]

çok teşekkürler üstadım emeğine bilgine sağlık