metin ayırma

[mrt]

Selamlar,

Elimde bir müşteri listesi mevcut.

Bu listede il ve ilçe bilgileri aynı hücreye yazılmış. ( Sarıyer/İstanbul)
Bu hücrede bulunan bilgileri / 'dan ve boşlukları göz ardı edecek şekilde iki değişik hücreye nasıl yazdırırım ?

Ã?rnek

Mevcut ilçe il

Sarıyer/İstanbul Sarıyer İstanbul
Þişli / İstanbul Þişli İstanbul
Kadıköy / İstanbul Kadıköy İstanbul

 

[osmantelci]

Sub Ayir()
For Each i In Range("A1:" & [a65536].End(xlUp).Address)
i.Offset(0, 1) = MetniAyır(i.Value)
i.Offset(0, 2) = "İstanbul"
Next
End Sub

Function MetniAyır(kelime As String) As String
say = Len(kelime)
For i = 1 To Len(kelime)
parca = Mid(kelime, i, 1)
If parca = Chr(47) Then Exit Function
MetniAyır = Trim(MetniAyır & parca)
Next i
End Function

 

[Merhum İdris SERDAR]

Ekteki dosyaya bakınız.

 

[parametre]

ekteki dosya nedir aceba yardımcı olunabilirmi tarihte eskimiş ama yardımcı olunur sanırım şimdiden teşekkurler