Find fonksiyonu

[walabi]

Merhaba,

Aşağıda görünen formülü,

=EĞERHATA(SOLDAN(I2;BUL(",";I2)-1);"")

VBA dilinde çevirmeye çalıştım,

Cells(i, 15) = IfError(Left(Cells(i, 9), Find(",", Cells(i, 9)) - 1), "")

Ancak sub or function not defined şeklinde hata almaktayım,

Formülün vba dilinde olması gereken yazımı nasıldır acaba.

 

[muygun]

Merhaba;

A1 hücresinde veriniz varsa ve virgüle kadar olan kısmını B1 hücresine yazdıracağınızı varsayarsak;

Sub bull()
On Error Resume Next
[B1] = ""
sayy = InStr(Cells(1, 1), ",")
[B1] = Left(Cells(1, 1), sayy - 1)
End Sub

Şeklinde deneyin ve kodlarınıza uyarlayın.
İyi çalışmalar.

 

[YUSUF44]

Ek olarak IfError'u VBA'da Worksheetfunction.IfError olarak kullanmanız gerekir. Find da Worksheetfunction.Find olmalı.