Makro Hızlandırmak..!

[sensizsoldum]

Merhaba
aşağıdaki kodlar yaklaşık olarak 3 dk zamanımı alıyor,
Bu kodları aynı özellikte makronun hızlı çalışmasını sağlayabilecek ve mümkünse eğer, reklamsız bir şekikde yazılabilmesi mümkünmüdür. Teşekkür ederim Şimdiden









Sub Metre()
Application.ScreenUpdating = False
Dim asi, kral
Dim a, b
Set asi = Sheets("STOK")
Set kral = Sheets("GELENLER")
kral.Range("D3" & Rows.Count).ClearContents
For a = 3 To kral.Cells(Rows.Count, "B").End(xlUp).Row
If WorksheetFunction.CountIf(asi.Range("C3:C" & Rows.Count), _
kral.Cells(a, "B")) > 0 Then
kral.Cells(a, "D") = WorksheetFunction.VLookup(kral.Cells(a, "B"), _
asi.Range("C3:F" & Rows.Count), 4, 0)
Else
kral.Cells(a, "D") = 0
End If
Next
Application.ScreenUpdating = True
End Sub

 

[uzmanamele]

Merhaba

İlk ve son satıra yazarak deneyiniz.

    Application.Calculation = xlManual
    Application.Calculation = xlAutomatic

Reklamsız derken?

 

[sensizsoldum]

Merhaba,
uzman arkadaşım, fark var ama istediğim gibi bir fark yok.
bu kodu aynı özellikte başka yazılması mümkünmüdür.
belki değişiklik olabilir

 

[sensizsoldum]

Merhaba,
Değerli hocalarım, arkadaşlar,
Bu kod çok zamanımı alıyor. Sayın Uzmanamele arkadaşımızın yazdığı kod etkiledi ama fark edilecek kadar değil,
Bu kodu daha hızlı olarak yazıkabilir mi. Yardımcı olabilir misiniz.