Split kullanımında hata alıyorum

[vivident]

Merhaba

Referans sayfasının A sütundaki verilerini "={" karakteri ile ayırıyorum. Yalnız "On Error Resume Next" kodunu kaldırınca hata veriyor Sanıyorum ki bazı satırlarda "={" karakteri yok

Bende "On Error Resume Next" komutunu kullanmak istemiyorum, sonuçta başka yerlerde hata yaparsam bana göstersin

if Split(Cells(i, "A"), "={") = False Then yoksay gibi bir şey söylemem lazım. Nasıl yaparız

Sub Test()
Dim i As Integer
On Error Resume Next
For i = 1 To Sheets("referans").Cells(65536, "A").End(xlUp).Row
Sheets("referans").Cells(i, "D") = Split(Cells(i, "A"), "={")(0)
Sheets("referans").Cells(i, "E") = Split(Cells(i, "A"), "={")(1)
Next i
End Sub

 

[Necdet]

Merhaba,

Aşağıdaki örneği inceleyiniz, fikir verebilir. Başka çözümlerde olabilir tabi.

Sub Ayır()

    Dim i As Integer, _
        j As Integer
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        j = InStr(1, Cells(i, "A"), "={")
        If j > 0 Then
            Cells(i, "B") = Split(Cells(i, "A"), "={")(0)
            Cells(i, "C") = Split(Cells(i, "A"), "={")(1)
        Else
            Cells(i, "B") = Cells(i, "A")
        End If
    Next i
        
End Sub

 

[vivident]

Teşekkür ederim Necdet bey
İşimi görecektir, sağolun