Düşeyara ve Eğer Formullü tabloyu kod ile çalıştırmak

[fluess]

Arkadaşlar elimde bir excel tablom var. Çok sık olarak kullanmaktayım. iki sayfalı bir kitap. İlk sayfam ayda bir defa değişiyor 56000 satır civarı. İkinci sayfadaki listem ise günde belki 20 kez değişiyor 10000 satır civarı. Bu iki liste arasında bir karşılaştırma yapıyorum. Ben formül yazarak işimi bi şekilde yapıyorum ancak, bazı zamanlar formülüm çalışmıyor. İkinci sayfada formüllerim mevcut. Bunları koda nasıl çevireceğimi bilmiyorum, bana yardımcı olursanız sevinirim.

 

[fluess]

Yardım Lütfen

Arkadaşlar yardımcı olabilecek kimse yok mu?

 

[arşivist1]

Sub BulListele()
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    S2.Range("C1:Z65000").ClearContents
    'son = S1.Cells(65000, 1).End(xlUp).Row
    son1 = S2.Cells(65000, 1).End(xlUp).Row
        For i = 1 To son1
        Ara = S2.Cells(i, 1)
        Set c = S1.Range("A:A").Find(Ara, , xlValues, xlWhole)
            If Not c Is Nothing Then
              sat = c.Row
              S2.Cells(i, 4) = S1.Cells(sat, 1)
              S2.Cells(i, 5) = S1.Cells(sat, 2)
              S2.Cells(i, 6) = S1.Cells(sat, 3)
              S2.Cells(i, 7) = S1.Cells(sat, 4)
              S2.Cells(i, 8) = S1.Cells(sat, 5)
              S2.Cells(i, 9) = S1.Cells(sat, 6)
              S2.Cells(i, 10) = S1.Cells(sat, 7)
              S2.Cells(i, 11) = S1.Cells(sat, 8)
              S2.Cells(i, 12) = S1.Cells(sat, 9)
              S2.Cells(i, 13) = S1.Cells(sat, 10)
              End If
       
              Next
  MsgBox "Banka Listeniz Hazır.", vbInformation, ""
End Sub

 

[YUSUF44]

Şu kodları kullanabilirsiniz:

Sub incele()
Set s1 = Sheets("sheet1")
Set S2 = Sheets("sayfa1")
S2.Range("G7:I20000").ClearContents
For i = 7 To S2.[b65536].End(xlUp).Row
'DÜŞEYARA(D7;sheet1!A:K;8;) bu formülün kod hali aşağıdadır:
S2.Cells(i, "g") = Application.VLookup(Cells(i, "d"), s1.Range("A:K"), 8, 0)
'=EĞER(D7="";"";EĞER(G7-C7=0;"AYNI";"FARKLI")) bu formülün kod hali aşağıdadır:
If Cells(i, "g") - Cells(i, "c") = 0 Then
S2.Cells(i, "h") = "AYNI"
Else
S2.Cells(i, "h") = "FARKLI"
End If
'=EĞER(D7="";"";DÜŞEYARA(D7;sheet1!A:K;2;)) bu formülün kod hali aşağıdadır:
S2.Cells(i, "I") = Application.VLookup(Cells(i, "d"), s1.Range("A:K"), 2, 0)
Next
End Sub

Eğer sayfada #YOK hatası gibi hataların görünmesini istemiyorsanız kodlarda değişiklik yapılması gerekecektir.

 

[fluess]

Olmuyor

Her iki arkadaşıma da teşekkür ediyorum ama sorunumu çözemedim.
Gönderdiğiniz kodlarda değişiklik yaptım fakat yine olmadı. ilk mesajımda gönderdiğim tabloma kodları ekleyip çalıştırıyorum olmuyor.
Sorunuma yardımcı olabilirseniz sevinirim...