metin parçalama

[pablo_76]

herkese merhaba,

işim icabı excelde çoğunlukla metin düzenlemesi yapıyorum.
şöyle bir sorum olacak bütün değerler bir hücrede fakat ben bunun ismini,varsa firmasını,adresini,semt ve şehirini ayrı ayrı hücrelere bölmek istiyorum.metin sütunlara dönüştürme çoğu zaman yetersiz kalıyor bu konuda.eğer örnek yerine mantığını yazabilirseniz çok iyi olur çünkü çok farklı olarak data kullanabilmekteyim.örnek dosyayı ekte sunuyorum.çok teşekkür ederim şimdiden.

 

[Necdet]

Merhaba,

Dosyanızda ilk 3 satır uygun yerlerden Alt+Enter ile ayrılmış, bunları ayırmak olası, ama diğer satırlar dümdüz yazılmış, bunlara yapacak pratik birşey yok.

Alt+Enter ile ayrılan satırları aşağıdaki kod ile ayırabilirsiniz.

Sub Macro1()
    Columns("A:A").TextToColumns Destination:=Range("A1"), _
        Other:=True, OtherChar:=Chr(10)
End Sub

 

[uzmanamele]

merhaba

alternatif çözüm yollarından biri
kolay anlaşılması için ek dosyada işlem adımlarınız farklı sayfalarda yaptım.
önce metinde birmiktar düzenleme yapıyoruz
=YERİNEKOY(YERİNEKOY(A1;DAMGA(10);"/");" ";"/")
metni sütunlara dönüştürüyoruz (kriter "/")
yeni sayfaya taşıyoruz
isim sütununda
=A1&" "&B1&" "&C1
adres sütununda
=KIRP(D1&" "&E1&" "&F1&" "&G1&" "&H1&" "&I1&" "&J1&" "&K1&" "&L1&" "&M1&" "&N1&" "&O1&" "&P1&" "&Q1)

not:
syn M.karadeniz veya syn mehmet ali karadeniz gibi isimlerde hata verir, tekrar gözden geçirmek gerekir

 

[pablo_76]

sayın necdet bey ve sayın uzmanamele yardımlarınız için çok teşekkürler.
her iki çalışmada işime yarayacak.