Mektup Adresini Sütünlara Yazdırma

[SiyahMartı]

Merhaba Arkadaşlar,

PTT yeni bir uygulama başlattı belki haberiniz vardır. Bundan sonra mektupları internet üzerinden mektupsepeti.ptt.gov.tr adresinden gönderebilecekmişiz.
Bunun için Excell de kayıtlı bulunan adreslerimizi Ekte bulunan Ptt nin adres formatına uydurmamız gerekiyor.

Benim adreslerim Excell de tek sütun içinde bulunuyor. Sizden ricam Bunları Semt/Bucak, Mahalle/Köy, Cadde/Sokak/Mevki gibi sütünlara ayırmalıyız.

Ekte örnek excell dosyasını gönderiyorum.

yardımlarınız için şimdiden çok teşekkür ederim.

 

[hamitcan]

Veri sekmesinden Metni Sütunlara Dönüştür fonksiyonunu kullanabilirsiniz.

 

[SiyahMartı]

Veri sekmesindeki Metnu Sütunlara Dönüştür haricinde farklı olarak

Ara bul ile içinde mahalle geçen kelimenin sol tarafındaki kelimeyi Bulup Mahalle sütununa yazdırabilirmiyiz.

 

[hamitcan]

Aşağıdaki formülü bir deneyin.

=SOLDAN(M2;MBUL("mah*";M2)-2)

 

[SiyahMartı]

Hamitcan bey merhabalar,

İlginize çok teşükkür ediyorum.

Ekte dosyayı gönderiyorum ayrıntılı bir şekilde

800 kadar adres var düzelmesi gereken
inşaallah olur.

 

[hamitcan]

Bilgilerinizi, A1 hücresinden başlayacak şekilde temiz bir sayfaya yapıştırın ve kodu çalıştırın.
Bilgilerinizin standart bir formatı olmadığı için ben bazı satırları standartlaştırmaya çalıştım, gerekirse siz de koda eklentiler yapın.

Sub MetniSutunlaraDonustur()
    For i = 1 To [a65536].End(3).Row
        Cells(i, 1) = Replace(Cells(i, 1), "No.", "No:")
        Cells(i, 1) = Replace(Cells(i, 1), "NO.", "No:")
        Cells(i, 1) = Replace(Cells(i, 1), "D.", "D:")
        Cells(i, 1) = Replace(Cells(i, 1), "Apt", "Apt.")
        Cells(i, 1) = Replace(Cells(i, 1), "APT", "Apt.")
        Application.DisplayAlerts = False
        Cells(i, 1).TextToColumns Destination:=Cells(i, 1), DataType:=xlDelimited, OtherChar:="."
        Application.DisplayAlerts = True
    Next
    MsgBox "Bitti."
End Sub

 

[SiyahMartı]

Metincan bey,
yazmış olduğunuz kod çok güzel
fakat metni sütünlara dönüştür çalışmadı galiba
metin sütünlara dönüşmedi.

 

[hamitcan]

Verdiğim açıklamaları okumadınız galiba.

Bilgilerinizi, A1 hücresinden başlayacak şekilde temiz bir sayfaya yapıştırın ve kodu çalıştırın.
Bilgilerinizin standart bir formatı olmadığı için ben bazı satırları standartlaştırmaya çalıştım, gerekirse siz de koda eklentiler yapın.

 

[SiyahMartı]

Hamitcan bey
Yardımınız için çook teşekkür ediyorum.
Sağolun varolun
İnşaallah bende bir zaman şu kodları öğrenmek istiyorum çok seviyorum excell i
bu kodlarsız da olmuyor.