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

u.L.a.s · 14-07-2017, 08:47

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 · 14-07-2017, 10:29

Merhaba;

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

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)

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 · 14-07-2017, 11:12

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

14-07-2017, 08:47	#1
u.L.a.s Giriş: 07/09/2008 Şehir: İstanbul Mesaj: 567 Excel Vers. ve Dili: 2010 İngilizce	xxx.xxx.xxx.xxx verisinde ilk 3 haneyi çıkarıp diğer verileri yan sütuna yazdırma 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

14-07-2017, 10:29	#2
Haluk Özel Üye Giriş: 07/07/2004 Şehir: Türkiye Mesaj: 5,554 Excel Vers. ve Dili: Office 2010 - İngilizce	Merhaba; A ve B sütunlarını "Text" olarak biçimlendirdikten sonra aşağıdaki kodu çalıştırın; Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar) 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 __________________ Kod anlatılmaz,yazılır ! 🇹🇷 (Özel sorularınız için sa4truss@gmail.com)

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç

14-07-2017, 11:12	#3
u.L.a.s Giriş: 07/09/2008 Şehir: İstanbul Mesaj: 567 Excel Vers. ve Dili: 2010 İngilizce	çok teşekkürler üstadım emeğine bilgine sağlık