İki ayrı dosyadaki verileri tek dosyada alt alta(mükerresiz) birleştirme

[kegat28]

Merhaba dostlar,
Ben macrodan pek anlamam ama formumuzda dolaşırken Sn. Necdet Yeşertener'in bana uygun bir çalışmasını buldum, kendi dosyama uyarladım. Yalnız burada birleştirilen dosyada seg klasöründeki birleştirlecek dosyalarda aynı kayıtların (E sutununa göre) birleşme yapılan dosyada tek olarak çıkmasını istiyorum. Yani E sutununa göre mükerrersiz listelenmesini istiyorum.
Saygılar,

 

[Necdet]

Merhaba,

Asıl dosyaya yeni bir kod ekledim. Dosyaları birleştirdikten sonra hangi kolonda çift kayıt kontrolü yaptırmak istiyorsanız o sütunda herhangi bir hücre seçili iken ilgili butona basınız.

Sub ÇiftSatırSil()
Dim i, Adet As Long
Dim SonKolon As Integer
Dim Bul As Range
SonKolon = [IV1].End(1).Column
If Selection.Column > SonKolon Then
    MsgBox "Hangi Kolona Göre Çift Kayıt Kontrolü Yapılacaksa O Kolondan Bir Hücre Seçtikten Sonra Çift Satırları Sil Butonuna Basınız"
    Exit Sub
End If
Application.ScreenUpdating = False
For i = [A65536].End(3).Row To 3 Step -1
    Set Bul = Range(Cells(1, Selection.Column), Cells(i - 1, Selection.Column)).Find(Cells(i, Selection.Column), LookIn:=xlValues)
    If Not Bul Is Nothing Then
        Adet = Adet + 1
        Rows(i).Delete
    End If
Next i
Application.ScreenUpdating = True
If Adet > 0 Then
    MsgBox Adet & " Adet Çift Satır Silinmiştir"
Else
    MsgBox "Hiç Çift Satıra Rastlanmamıştır"
End If
    
End Sub

 

[kegat28]

Sn. Necdet Yeşertener,
Harikansın hocam. Çoook sagoll...

 

[Necdet]

Rica ederim, siz sağolunuz, güle güle kullanınız.

 

[matriks]

Sn. Necdet Yeşertener,
Verdiğiniz çözümü aşağıda belirttiğim konudaki sorunuma uygulamaya çalıştım ancak bir türlü sonuç alamadım. Bu konuda yardımcı olabilirseniz sevinirim.
Şimdiden teşekkürler..


http://www.excel.web.tr/f48/klasordeki-excel-dosyalar-ndaki-verileri-ardarda-ekleme-t68724.html

 

[snow_drop]

İyi geceler,
Sn.Necdet bey, yaklaşık bir ay önce "DosyaBirleştir" makronuzu sorunsuz kullanmaya başladım. Çok teşekkür ederim. Fakat şuan kullanmakta sıkıntı yaşıyorum. Farklı bilgisayarlarda da denedim ama sanırım excel dosyalarımda sıkıntı var. Bir türlü çözemiyorum.
Hata:
Run-time error '-2147024882 (8007000e)':
[Microsoft][ODBC Excel Sürücüsü] Çok fazla alan tanımlı.
Yaklaşık 39 klasörde, 200-250 excel dosyası var ve sürekliliği olan bir işlem için, mevcut ve daha sonraki dosyalarımı birleştirmem gerekiyor. Yardımlarınızı rica ediyorum.

 

[snow_drop]

İyi geceler,
Sn.Necdet bey, yaklaşık bir ay önce "DosyaBirleştir" makronuzu sorunsuz kullanmaya başladım. Çok teşekkür ederim. Fakat şuan kullanmakta sıkıntı yaşıyorum. Farklı bilgisayarlarda da denedim ama sanırım excel dosyalarımda sıkıntı var. Bir türlü çözemiyorum.
Hata:
Run-time error '-2147024882 (8007000e)':
[Microsoft][ODBC Excel Sürücüsü] Çok fazla alan tanımlı.
Yaklaşık 39 klasörde, 200-250 excel dosyası var ve sürekliliği olan bir işlem için, mevcut ve daha sonraki dosyalarımı birleştirmem gerekiyor. Yardımlarınızı rica ediyorum.
Teşekkürler.
Örnek dosyalar ve hata görüntüsü ektedir.

 

[Necdet]

İyi geceler,
Sn.Necdet bey, yaklaşık bir ay önce "DosyaBirleştir" makronuzu sorunsuz kullanmaya başladım. Çok teşekkür ederim. Fakat şuan kullanmakta sıkıntı yaşıyorum. Farklı bilgisayarlarda da denedim ama sanırım excel dosyalarımda sıkıntı var. Bir türlü çözemiyorum.
Hata:
Run-time error '-2147024882 (8007000e)':
[Microsoft][ODBC Excel Sürücüsü] Çok fazla alan tanımlı.
Yaklaşık 39 klasörde, 200-250 excel dosyası var ve sürekliliği olan bir işlem için, mevcut ve daha sonraki dosyalarımı birleştirmem gerekiyor. Yardımlarınızı rica ediyorum.
Teşekkürler.
Örnek dosyalar ve hata görüntüsü ektedir.

Merhaba,

Dosyanızın 1. satırı ve son kolonu sildim çalıştı.

Demekki bir sınır varmış.

 

[snow_drop]

Çok teşekkür ederim, ellerinize sağlık.
Dosya sayısı oldukça fazla, bu yüzden dosyaları açmadan 1.satırı ve son sütunu silmek için yeni bir makro araştırıyorum. Yardımcı olabilirseniz çok sevinirim.