Soru Hücre içinde Find

[vivident]

Merhaba hücrenin içindeki "-" simgesinin hücrede kaçıncı karakter olduğunu bulmaya çalışıyorum
Normal formül ile aşağıdaki gibi sonuç alıyorum. Fakat bunu makro ile yapmak istediğimde hata alıyorum

" 9501 - TLS"
=BUL("-";B2;1) --> Formul ile sonuç 8
Find("-", Sheets("x").Range("B2"), 1) --> Makro ile hata alıyorum

 

[Korhan Ayhan]

Instr komutunu araştırınız.

 

[kepetto]

ActiveCell.FormulaR1C1 = "=FIND(""-"",RC[-1],1)"

a2 hücresine veriyi girip makroyu çalıştırınız..

 

[Tevfik_Kursun]

Merhaba,
Alternatif olsun, çalışmanıza uyarlayabilirsiniz.

Sub Goster()
    Dim i&, bol As Variant, al$
    For i = 2 To Cells(Rows.Count, 2).End(3).Row
        al = Cells(i, 2).Value
        If InStr(al, "-") Then
            bol = Split(al, "-")
            Cells(i, 3).Value = InStr(al, "-")
            Cells(i, 4).Value = bol(0)
            Cells(i, 5).Value = bol(1)
        Else
            Cells(i, 4).Value = ""
        End If
    Next i
End Sub

iyi çalışmalar

 

[vivident]

teşekkür ederim

 

[Tevfik_Kursun]

Rica ederim