Parçaal formülünü makroya çevirmek

[akmes]

Merhaba,
Aşağıdaki makroyu çalıştırdığımda uygulamsı uzun sürüyor. Hücreleri dolduruyor gibi bazı şeyler bildiriyor. Daha hızlı çalışabilmesi için neyi düzeltmem gerekiyor. Yardımlarınızı rica ediyorum.
Sub test_4()
With Range("e2:e10000" & Cells(Rows.Count, 2).End(xlUp).Row)
.Formula = "=IFERROR(MID(RC[-1],FIND("":"",RC[-1])+1,FIND(""KDVSI"",RC[-1])-FIND("":"",RC[-1])-2),"""")"
.Value = .Value
End With

End Sub

 

[Cengiz Demir]

Örnek dosya eklerseniz daha hızlı sonuç alırsınız.

 

[hamitcan]

Bu şekilde deneyin.

Sub test_4()
    Application.Calculation = xlManual
    With Range("e2:e5" & Cells(Rows.Count, 2).End(xlUp).Row)
        .Formula = "=IFERROR(MID(RC[-1],FIND("":"",RC[-1])+1,FIND(""KDVSI"",RC[-1])-FIND("":"",RC[-1])-2),"""")"
        .Value = .Value
    End With
    Application.Calculation = xlAutomatic
End Sub

 

[veyselemre]

Sub test_4()
    For Each cell In Range("d2:d" & Cells(Rows.Count, 4).End(xlUp).Row)
        With cell
            If InStr(.Value, ":") > 0 Then
                .Offset(, 1).Value = Split(Split(.Value, ":")(1), " ")(0)
            End If
        End With
    Next cell
End Sub

 

[akmes]

Bu şekilde deneyin.

Sub test_4()
    Application.Calculation = xlManual
    With Range("e2:e5" & Cells(Rows.Count, 2).End(xlUp).Row)
        .Formula = "=IFERROR(MID(RC[-1],FIND("":"",RC[-1])+1,FIND(""KDVSI"",RC[-1])-FIND("":"",RC[-1])-2),"""")"
        .Value = .Value
    End With
    Application.Calculation = xlAutomatic
End Sub

Çok teşekkür ederim emeğinize sağlık

 

[akmes]

Sub test_4()
    For Each cell In Range("d2:d" & Cells(Rows.Count, 4).End(xlUp).Row)
        With cell
            If InStr(.Value, ":") > 0 Then
                .Offset(, 1).Value = Split(Split(.Value, ":")(1), " ")(0)
            End If
        End With
    Next cell
End Sub

Çok teşekkür ederim emeğinize sağlık