Formülü VBA çevirme

[Astalavista58]

Merhaba arkadaşlar günaydın, ekteki dosya da A sütunundaki verilerimi, B sütunumdaki formülle düzenliyorum. Bunu VBA ile tek tuşla nasıl yapabilirim

 

[YUSUF44]

Aşağıdaki makroyu deneyin:

Sub burolar()
son = Cells(Rows.Count, "A").End(3).Row
Application.ScreenUpdating = False
    For i = 2 To son
        With Cells(i, "B")
            .FormulaR1C1 = _
                "=IFERROR(TRIM(IF(LEFT(RC[-1],17)=""İstanbul Valiliği"",(MID(RC[-1],SEARCH(""/"",RC[-1],1)+1,SEARCH(""/"",RC[-1],SEARCH(""/"",RC[-1],1)+1)-SEARCH(""/"",RC[-1],1)-1))," & Chr(10) & "RIGHT(RC[-1],LEN(RC[-1])-SEARCH(""-"",RC[-1])))),"""")"
            .Value = .Value
        End With
    Next
Application.ScreenUpdating = True
End Sub

 

[Astalavista58]

Aşağıdaki makroyu deneyin:

Sub burolar()
son = Cells(Rows.Count, "A").End(3).Row
Application.ScreenUpdating = False
    For i = 2 To son
        With Cells(i, "B")
            .FormulaR1C1 = _
                "=IFERROR(TRIM(IF(LEFT(RC[-1],17)=""İstanbul Valiliği"",(MID(RC[-1],SEARCH(""/"",RC[-1],1)+1,SEARCH(""/"",RC[-1],SEARCH(""/"",RC[-1],1)+1)-SEARCH(""/"",RC[-1],1)-1))," & Chr(10) & "RIGHT(RC[-1],LEN(RC[-1])-SEARCH(""-"",RC[-1])))),"""")"
            .Value = .Value
        End With
    Next
Application.ScreenUpdating = True
End Sub

Hocam elinize sağlık çok teşekkür ediyorum Allah razı olsun

 

[Korhan Ayhan]

Ek bilgi olarak linki incelemenizi tavsiye ederim.

https://www.excel.web.tr/threads/formuelleri-makro-ile-degere-cevirme-uygulamasi.118352/