isimleri kodlarla ayirmak

[Yakut]

slm

örnekte acikladim. bir yazinin icinde 3 tane ismi nasil ayirabiliriz .






saygilar

 

[fedeal]

hücre-hücreleri seçip
veri-metni sütunlara dönüştür-sınırlandırılmış-ileri-diger seçenegini seçip 1 yazın metni 5 sütuna ayırır ilk istanbul ikinci khkhkh üçüncü ankara dördüncü khkhkh beşinci bursa gibi işinizi görürmü bilmem ben genelde bu özelligi kullanıyorum. iyiçalışmalar.

 

[Yakut]

sayin fedeal

tesekkürler, fakat bunu menüden degil de direk kodlama olarak istemistim.

Range("A1").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(8, 1), Array(16, 1), Array(22, 1), Array(30, 1)), _
TrailingMinusNumbers:=True

makro seklinde oluyor. bunu döngü halinde A1---A50 kadar ......

listelemek istiyorum

 

[Zeki Gürsoy]

Sub kelime_ayir()

    son_satir = 50
    ayrac = "1"
    
    For y = 1 To son_satir
    
    a = Split(Cells(y, 1), ayrac)
    
        For z = 0 To UBound(a)
            Cells(y, z + 2) = a(z)
        Next
        
    Next
    
End Sub

 

[Yakut]

sayin Zeki hocam,

kodunuzu calistiramadim, hata verdi.....degisenleri tanidigim halde....

 

[janveljan]

Zeki hocamın kodlarını ekledim birde bu dosyayı deneyin, makrolardan ilgili makroyu çalıştırın.

 

[Yakut]

hayret simdi kod calisiyor. neyse bir yanlislik olmus....

sizlere, Zeki hocama ve janveljan tesekkür ederim.

saygilar