iki sayfa arasındaki farkları 3. sayfaya yazdırmak

[SkyFire]

Merhabalar
Örnek gönderdiğim sayfada Excel ve Pdf Diye 2 adet farklı sayfa var
Excel sayfasında rakamlar var Aynı zamanda pdf sayfasındada rakamlar var
iki sayfa arasında karşılaştırma yapabilirmiyim ?

Örnek olarak Excel sayfasında 1.614,74 tl var aynı zamanda Pdf sayfasındada 1.614,74 var eğer 2 sayfada aynı rakamlar var ise bunları FARK YAZAN sayfada göstermesin
sadece olmayanları göstersin
Örnek EXCELDE 1.400 tl var ama Pdf sayfasında 1.400 tl yok o zaman ben bunu FARK yazan sayfada yaziym (tabi farkı yazarken karşısına 1.400 PDF yazsın ) hiç değilse bunun pdf te bulundugunu anliym
böyle bir şey mümkün mü ?

 

[Muzaffer Ali]

Merhaba.
Dosyanızda yeni bir Modüle ekleyin aşağıdaki kodu kopyalayın ve çalıştırın.

Sub Fark()
    Dim syfExcel As Worksheet
    Dim syfPdf As Worksheet
    Dim syfFark As Worksheet
    Dim Bak As Range
    Dim AraAlan As Range
    Dim Farkli As Range
    Dim SayExcel As Long
    Dim SayPdf As Long
    
    SayPdf = syfPdf.Cells(Rows.Count, "A").End(3).Row
    SayExcel = syfExcel.Cells(Rows.Count, "A").End(3).Row
    Set syfExcel = ThisWorkbook.Worksheets("EXCEL")
    Set syfPdf = ThisWorkbook.Worksheets("PDF")
    Set syfFark = ThisWorkbook.Worksheets("FARK")
    
    Set AraAlan = syfPdf.Range("A1:A" & syfPdf.Rows.Count)
    For Each Bak In syfExcel.Range("A1:A" & SayExcel)
        If WorksheetFunction.CountIf(AraAlan, Bak) = 0 Then
            Set Farkli = syfFark.Range("A" & syfFark.Cells(Rows.Count, "A").End(3).Row + 1)
            Farkli = Bak
            Farkli(1, 2) = syfExcel.Name
        End If
    Next
    Set AraAlan = syfExcel.Range("A1:A" & syfExcel.Rows.Count)
    For Each Bak In syfPdf.Range("A1:A" & SayPdf)
        If WorksheetFunction.CountIf(AraAlan, Bak) = 0 Then
            Set Farkli = syfFark.Range("A" & syfFark.Cells(Rows.Count, "A").End(3).Row + 1)
            Farkli = Bak
            Farkli(1, 2) = syfPdf.Name
        End If
    Next
End Sub

 

[turist]

Ekli dosyayı inceleyiniz.

 

[yanginci34]

Birde bunu incelermisiniz. Alternatif olsun.

 

[SkyFire]

Run-time error 91 Object variable or with block variable not set
bu hata mesajını verdi

Merhaba.
Dosyanızda yeni bir Modüle ekleyin aşağıdaki kodu kopyalayın ve çalıştırın.

Sub Fark()
    Dim syfExcel As Worksheet
    Dim syfPdf As Worksheet
    Dim syfFark As Worksheet
    Dim Bak As Range
    Dim AraAlan As Range
    Dim Farkli As Range
    Dim SayExcel As Long
    Dim SayPdf As Long
   
    SayPdf = syfPdf.Cells(Rows.Count, "A").End(3).Row
    SayExcel = syfExcel.Cells(Rows.Count, "A").End(3).Row
    Set syfExcel = ThisWorkbook.Worksheets("EXCEL")
    Set syfPdf = ThisWorkbook.Worksheets("PDF")
    Set syfFark = ThisWorkbook.Worksheets("FARK")
   
    Set AraAlan = syfPdf.Range("A1:A" & syfPdf.Rows.Count)
    For Each Bak In syfExcel.Range("A1:A" & SayExcel)
        If WorksheetFunction.CountIf(AraAlan, Bak) = 0 Then
            Set Farkli = syfFark.Range("A" & syfFark.Cells(Rows.Count, "A").End(3).Row + 1)
            Farkli = Bak
            Farkli(1, 2) = syfExcel.Name
        End If
    Next
    Set AraAlan = syfExcel.Range("A1:A" & syfExcel.Rows.Count)
    For Each Bak In syfPdf.Range("A1:A" & SayPdf)
        If WorksheetFunction.CountIf(AraAlan, Bak) = 0 Then
            Set Farkli = syfFark.Range("A" & syfFark.Cells(Rows.Count, "A").End(3).Row + 1)
            Farkli = Bak
            Farkli(1, 2) = syfPdf.Name
        End If
    Next
End Sub

 

[Muzaffer Ali]

Run-time error 91 Object variable or with block variable not set
bu hata mesajını verdi

Dosyanız ekte.

 

[SkyFire]

çok teşekkürler sanırım en son olan temiz çalışıyor
tam test edip dönüş yaparım

 

[arslanbey]

İyi akşamlar ;

Merhaba.
Dosyanızda yeni bir Modüle ekleyin aşağıdaki kodu kopyalayın ve çalıştırın.

Sub Fark()
    Dim syfExcel As Worksheet
    Dim syfPdf As Worksheet
    Dim syfFark As Worksheet
    Dim Bak As Range
    Dim AraAlan As Range
    Dim Farkli As Range
    Dim SayExcel As Long
    Dim SayPdf As Long
   
    SayPdf = syfPdf.Cells(Rows.Count, "A").End(3).Row
    SayExcel = syfExcel.Cells(Rows.Count, "A").End(3).Row
    Set syfExcel = ThisWorkbook.Worksheets("EXCEL")
    Set syfPdf = ThisWorkbook.Worksheets("PDF")
    Set syfFark = ThisWorkbook.Worksheets("FARK")
   
    Set AraAlan = syfPdf.Range("A1:A" & syfPdf.Rows.Count)
    For Each Bak In syfExcel.Range("A1:A" & SayExcel)
        If WorksheetFunction.CountIf(AraAlan, Bak) = 0 Then
            Set Farkli = syfFark.Range("A" & syfFark.Cells(Rows.Count, "A").End(3).Row + 1)
            Farkli = Bak
            Farkli(1, 2) = syfExcel.Name
        End If
    Next
    Set AraAlan = syfExcel.Range("A1:A" & syfExcel.Rows.Count)
    For Each Bak In syfPdf.Range("A1:A" & SayPdf)
        If WorksheetFunction.CountIf(AraAlan, Bak) = 0 Then
            Set Farkli = syfFark.Range("A" & syfFark.Cells(Rows.Count, "A").End(3).Row + 1)
            Farkli = Bak
            Farkli(1, 2) = syfPdf.Name
        End If
    Next
End Sub

İyi akşamlar ;
Bu kod ile fark sayfasında sadece 2 sutun alıyor,iki sutunu çoğaltabilirmiyiz.