iki dosya arasındaki farklı verileri listeleme

[egemynet]

Slm. arkadaşlar.

Test dosyası Sayfa1 de A ve B sütununda kayıtlı olan bilgiler ile masaüstünde bulunan Document.xls dosyası Sheet de I ve L sütunundaki kayıtlı bilgilerin aynı olması gerekmektedir.

nasıl bir kodla farklı olanları test dosyası Sayfa2 de listeleyebilirim acaba?

 

[Murat OSMA]

Kodu versek bile kod bilginiz olmadığından sorun çıkabilir. Net çözüm için dosya eklemelisiniz.

 

[egemynet]

Murat bey İşlemi test dosyasında yapmak istiyorum. dosyalarımI ilk mesajıma ekledim kodu butona tanımlamak isterim.

 

[egemynet]

Yardımcı olabilecek biri varsa cok sevinirim arkadaşlar.

 

[egemynet]

Sanırım zor bir şey istedim, yinede katkısı olanlara teşekkür ederim

 

[Murat OSMA]

Şu kodları kullanabilirsiniz;

Sub Kontrol_Et_Getir()
    Dim Rky As Range, i As Integer, yol As String, ac As Workbook
    yol = VBA.CreateObject("Wscript.Shell").SpecialFolders("Desktop")
    Application.ScreenUpdating = False
    Set ac = Workbooks.Open(yol & "\Document.xls")
    Sayfa2.Cells.Clear
    With ThisWorkbook.Sheets(1)
        For i = 3 To .Range("A65536").End(3).Row
            Set Rky = Columns(9).Find(.Cells(i, "A"), , , 2)
            If Not Rky Is Nothing Then
                If .Cells(i, "B") <> Rky.Offset(0, 3).Value Then
                    Cells(1, 2).Resize(, 13).Copy Sayfa2.Range("a1")
                    Cells(Rky.Row, 2).Resize(, 13).Copy _
                    Sayfa2.Range("a65536").End(3)(2, 1)
                End If
            End If
        Next i
    End With
    ac.Close False
    Application.ScreenUpdating = True
    Set Rky = Nothing: Set ac = Nothing: i = Empty: yol = ""
End Sub

 

[egemynet]

Murat bey yardımınız için teşekkür ederim ancak kodlar çalışmadı yani bir hatada vermedi ancak işlemi de yapmadı. bu arada tr 2003 kullanıyorum bir ilgisi varmı bilmiyorum ama.

 

[Murat OSMA]

Şarta uyanları Sayfa2'ye kopyalıyor. Sayfa2'ye baktınız mı ? :dusun:

End Sub satırından önce Sayfa2.Select satırını ilave ederseniz, veriyi aldıktan sonra Sayfa2'ye geçer.

 

[egemynet]

baktım murat bey şimdi yeniden yüklediklerimi indirdim sorunsuz çalıştı elinize sağlık ancak burada yüklediklerim örnek dosyalarımdı Document.xls dosyası sürekli değişiyor (ismi ve içeriği hariç) yeni bir rapor alırken nedense çalışmadı sorun nerede anlayamadım kodlarda sorun oldugunu dusunmuyorum ancak yeni bir rapor almam gerektiğinde kullanamadım

 

[Murat OSMA]

yol = VBA.CreateObject("Wscript.Shell").SpecialFolders("Desktop")
Set ac = Workbooks.Open(yol & "\Document.xls")


yol: Masaüstü demek
Set ac satırında diyor ki: Masaüstündeki Document.xls dosyasını aç...


Sonrasında bu açılan dosyada arama yapılıp bulunursa Sayfa2'ye getiriliyor..