FIND

[haso_excel]

Merhaba arkadaşlar,

Amacım B kolonundaki text in ilk kelimesini ayırmak. Bunun için aşağıdki kodu yazdım ama çalışmadı. Rica etsem yardımcı olur musunuz ?

Sub ilk_kelime()
For i = 2 To WorksheetFunction.CountA(Range("b:b")) + 1
Cells(i, 3) = Left(i, Find(" ", i) - 1)
Next i
End Sub

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Sub ilk_kelime()
For i = 2 To WorksheetFunction.CountA(Range("b:b"))
Cells(i, 3) = Left(Cells(i, 2), Application.WorksheetFunction.Find(" ", Cells(i, 2), 1) - 1)
Next i
End Sub

alternatif

Sub ilk_kelime_2()
For i = 2 To Range("b65536").End(3).Row
Cells(i, 3) = Split(Cells(i, 2), " ")
Next
End Sub

 

[haso_excel]

Teşekkürler,
Böylelikle nerede hata yaptığımıda anladım.