Soru Çaprazara Fonksiyonunu Vba Kod.a Dönüştürme

[mehmetd]

Sn. Arkadaşlar günaydın
=ÇAPRAZARA(C5&D5;AYAR!$P:$P&AYAR!$Q:$Q;AYAR!R:R) böğle bir fonksiyonum var
C VE D sütunlarına (C ve D sütunları GELİR diye bir sayfada yer alıyor) veri girdiğimde E sütununa veri girmesini sağlıyorum.
ama dosyamdaki veriler çoğalınca sistem ağır çalışıyor
bunu nasıl VBA kod.a dönüştürebilirim. Yardımlarınız için şimdiden teşekkürler

 

[muhasebeciyiz]

Sub E_Sutunu_Doldur()

Dim i As Long
Dim sonuc As String

For i = 5 To Cells(Rows.Count, "C").End(xlUp).Row
    sonuc = Application.WorksheetFunction.VLOOKUP(CStr(Cells(i, "C") & Cells(i, "D")), _
                                                Sheets("AYAR").Range("P:R"), 3, False)
    Cells(i, "E").Value = sonuc
Next i

End Sub

Makroyu çalıştırmadan önce C ve D sütunlarında veri olduğundan emin olun.
Makroyu çalıştırdıktan sonra E sütununda fonksiyon sonucuna göre değerlerin yazılmış olduğunu göreceksiniz.
Denermisiniz

 

[mehmetd]

Sn. muhasebeciyiz bu hatayı verdi ama

 

[muhasebeciyiz]

Örnek dosyanızı paylaşırmızınız

 

[mehmetd]

Örnek çalışma ektedir

 

[muhasebeciyiz]

deneyiniz

 

[mehmetd]

Çok teşekkür ederim. Sağlıklı günler diliyorum