makroyla metni sütunlara ayırmak

[excellcan]

Forumda emeği geçen herkese merhaba. Forumda belki örnekleri var ama hangi
başlıkla arayacağımı bilemedim. Sorum şu : A1 hücresinde AB-CD verisi var. Derdim tire işaretinin sağındaki ve solundaki verileri B1 hücresine AB
C1 hücresine de CD gelecek şekilde makroyla ayırmak. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[dEdE]

Merhaba,
Aşağıdaki kodu deneyiniz.
Saygılar.

Sub Ayır()
For i = 1 To [A65536].End(3).Row
 ParçaAl = Split((Sheets("sayfa1").Cells(i, 1).Value), "-")
    Sheets("sayfA1").Cells(i, 2).Value = ParçaAl(0)
    Sheets("sayfa1").Cells(i, 3).Value = ParçaAl(1)
Next
End Sub

 

[excellcan]

Merhaba,
Aşağıdaki kodu deneyiniz.
Saygılar.

Sub Ayır()
For i = 1 To [A65536].End(3).Row
 ParçaAl = Split((Sheets("sayfa1").Cells(i, 1).Value), "-")
    Sheets("sayfA1").Cells(i, 2).Value = ParçaAl(0)
    Sheets("sayfa1").Cells(i, 3).Value = ParçaAl(1)
Next
End Sub

Hocam teşekkürler. İyi geceler