flash işareti

[Barons]

merhaba

aşağıdaki gibi binlerce veri var.Bölme işaretinden sonraki veriyi formul yada makro ile başka bir sütuna almak istiyorum.Yani veriyi parçalamak istiyorum.


ACARKENT COLLEZIUM / İstanbul
.
.
.
.


Yardımlarınız için şimdiden teşekkürler

 

[dEdE]

Merhaba,
Aşağıdaki kodu bir modüle kopyalayıp dener misiniz?
Verilerinizin A sütununda olduğu varsayılarak, sonucun B sütununa yazılması sağlanmıştır.

Sub Ayır()
For i = 1 To [A65536].End(3).Row
   Cells(i, 2).Value = Split(Cells(i, 1).Value, "/")(1)
Next
End Sub

 

[Barons]

Hocam çok teşekkürler
Her zaman işleriniz kolay olsun,huzur ve bereketle yaşayın inşallah

 

[Barons]

Hocam aşağıdaki kodda hata verdi...
Cells(i, 2).Value = Split(Cells(i, 1).Value, "/")(1)

en sondaki (1) kaldırınca kod çalıştı ama / işaretinin sol tarafını 2nci sütuna yazdırdı...3ncü sütunada il değerlerini yazdırmak mümkünmüdür? yani istanbul değerini

teşekkürler

 

[dEdE]

Merhaba,
Ekli dosyayı inceler misiniz?

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

 

[Barons]

hocam süpersin çok teşekkürler