parça al da bul

[oydemir]

Aşağıdaki makroda - (tire) sonrakileri bulup parça alıyor Fakat hücrenin içinde - bulamayınca hata veriyor Bunun önüne nasıl geçebilirim.

Sub AL()
Application.ScreenUpdating = False
For i = 3 To Cells(Rows.Count, 1).End(3).Row

Cells(i, 2) = Split(Cells(i, 1), "-")(1) 'Kaçıncı virgülden başlayacağını gösterir
Next
Application.ScreenUpdating = True
End Sub

 

[volki_112]

deneyiniz

Sub AL()
    Application.ScreenUpdating = False
    For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row 'xlUp kullanmak daha doğru olur
        If InStr(Cells(i, 1).Value, "-") > 0 Then 'Tire olup olmadığını kontrol et
            Cells(i, 2).Value = Split(Cells(i, 1).Value, "-")(1) 'Tireyi bulursa bölüp al
        Else
            Cells(i, 2).Value = "" 'Tire yoksa boş bırak
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

 

[yanginci34]

Deneyiniz.

Sub AL()
Application.ScreenUpdating = False
On Error Resume Next:
For i = 3 To Cells(Rows.Count, 1).End(3).Row

Cells(i, 2) = Split(Cells(i, 1), "-")(1) 'Kaçıncı virgülden başlayacağını gösterir
Next
Application.ScreenUpdating = True
End Sub

 

[oydemir]

çok teşekkür ederim eline sağlık