iki sayfadan verileri alıp işlem almayanları yeni sayfaya aktarmak

[ecaparo]

Merhaba;

Ekteki dosyadaki kitapta 2 sayfamız var.
1. sayfada yapmamız işlerin listesi var
2. sayfada yaptığımız işlerin listesi var

benim yapmaya çalıştığım bir buton sayesinde
yapılacaklar ile yapılanları karşılaştırp kalan işleri yeni bir sayfaya istediğim formatta atmasıdır yardımcı olabilirseniz sevinirim.

 

[ÖmerBey]

Aşağıdaki kodu sayfanızdaki butona bağlayıp deneyiniz.
İyi çalışmalar...

Sub Aktar()
Set yg = Sheets("YAPILMASI GEREKEN")
Set y = Sheets("YAPILANLAR")
Set k = Sheets("KALANLAR")
k.Range("A5:Q65500").ClearContents
sat = 5
For a = 2 To yg.Range("A65500").End(3).Row
    If WorksheetFunction.CountIf(y.Range("AP:AP"), yg.Cells(a, "AP")) = 0 Then
        k.Cells(sat, "A") = yg.Cells(a, "I")   'Tesisat
        k.Cells(sat, "B") = yg.Cells(a, "L")   'Karne
        k.Cells(sat, "C") = yg.Cells(a, "M")   'Sıra No
        k.Cells(sat, "D") = yg.Cells(a, "R")   'Bölge Adı
        k.Cells(sat, "E") = yg.Cells(a, "S")   'Alt İşletme
        k.Cells(sat, "F") = yg.Cells(a, "V")   'Kodu
        k.Cells(sat, "G") = yg.Cells(a, "W")   'Okuyucu
        k.Cells(sat, "H") = yg.Cells(a, "Z")   'Mrk
        k.Cells(sat, "I") = yg.Cells(a, "AA")  'Sayaç No
        k.Cells(sat, "J") = yg.Cells(a, "C")   'Alt Emir Türü
        k.Cells(sat, "K") = yg.Cells(a, "E")   'Durumu
        k.Cells(sat, "L") = yg.Cells(a, "F")   'Gerç T.
        k.Cells(sat, "M") = yg.Cells(a, "G")   'Gsaat
        k.Cells(sat, "N") = yg.Cells(a, "AI")  'Açıklama
        k.Cells(sat, "O") = yg.Cells(a, "AJ")  'Not Açıklama
        k.Cells(sat, "P") = yg.Cells(a, "AK")  'Olumsuz Tespit
        sat = sat + 1
    End If
Next
End Sub

 

[ecaparo]

teşekkurler

ilave olarak temizlek için bir ilave nasıl yaparız?

 

[Ömer BARAN]

Sayın turist cevap verdiğinden, cevabı sildim.

 

[ÖmerBey]

ilave olarak temizlek için bir ilave nasıl yaparız?

Neyi temizlemek için?

 

[dayi10]

Sayın mucit77,

Aşağıdaki linkte soruma yardım bekliyorum bir bölümü sizin verdiğiniz örnekte var. Acaba yardımcı olabilir misiniz şimdiden tesekkur ederim

http://www.excel.web.tr/f14/sayfalar-arasy-artly-aktarym-yapma-t152881.html#post832558