BUL_AKTAR makrosundaki yavaşlık hk.

[bthn35]

Merhaba,
Aşağıdaki konuda bulunan makroyu kendime göre uyarladım ve sorunsuz çalışıyor ancak 5-6 tane değiştireceği alan olduğunda tek tek sekme değiştirip kopyaladığı için aşırı uzun sürüyor. Bunu hızlandırmak için farklı bir kod kullanabilir miyiz?

Benim kullandığım makro:

Sub BUL_AKTAR()
       
   Worksheets("GIRIS-CIKIS").Unprotect
    
   Dim s1 As Worksheet, s2 As Worksheet, BUL As Range, ADRES As String
    
    Set s1 = Sheets("GELEN-GIDEN")
    Set s2 = Sheets("GIRIS-CIKIS")
    
    Set BUL = s2.Range("M:M").Find(s1.Range("R2"), , , xlWhole)
    If Not BUL Is Nothing Then
        ADRES = BUL.Address
        Do
                            s1.Range("Q2").Copy
                            s2.Range("L" & BUL.Row).PasteSpecial xlPasteValues, , , True
                            s2.Range("C" & BUL.Row) = Date
                            Application.CutCopyMode = False
            Set BUL = s2.Range("M:M").FindNext(BUL)
        Loop While Not BUL Is Nothing And BUL.Address <> ADRES
    End If
             
    Set BUL = Nothing
    Set s1 = Nothing
    Set s2 = Nothing
    Worksheets("GIRIS-CIKIS").Protect
End Sub

yerine yaz veya bul-değiştir gibi bir makro

örnek ekte arkadaşlar. a 1 hücresine ne yazarsam formüllerdeki metinle değişsin istiyorum. mümkünmü acaba.!!!

www.excel.web.tr