Çözüldü Birden fazla farklı kitapda aynı yere filtreleme

[CristianoRonaldo]

Merhabalar

Excel de BankaKrediKartı BankaHesap diye ana kitaplar var ve BankaSecim BankaHesapKSecim diye filtrelenecek kitaplar var gelişmiş filtre ile düzgün çalışıyor lakin Excel VBA formunda ya BankaHesap bilgilerini ya da BankaKrediKarti bilgilerini getiriyor ama ikisini aynı anda bilgilerini getirmiyor. Bu Konu ile yardımcı olabilirmisiniz sayın yetkililer

Çalışma VBA Kodları

For S = 1 To 38

Controls("TbS" & S) = ""
Next S

If wsBankaKrediKarti.Range("A5") = "" Then Exit Sub
If wsBankaHesap.Range("A5") = "" Then Exit Sub

If TbBankaAdi = "" Then
wsBankaSecim.Range("B2") = ""
Else
wsBankaSecim.Range("B2") = "=" & Chr$(34) & "=" & TbBankaAdi & Chr(34)
End If

If TbBankaAdi = "" Then
wsBankaKSecim.Range("B2") = ""
Else
wsBankaKSecim.Range("B2") = "=" & Chr$(34) & "=" & TbBankaAdi & Chr(34)
End If

If TbKartAdi = "" Then
wsBankaSecim.Range("D2") = ""
Else
wsBankaSecim.Range("D2") = "=" & Chr$(34) & "=" & TbKartAdi & Chr(34)
End If


If TbKartAdi = "" Then
wsBankaKSecim.Range("D2") = ""
Else
wsBankaKSecim.Range("D2") = "=" & Chr$(34) & "=" & TbKartAdi & Chr(34)
End If



If TbKartSahibi = "" Then
wsBankaKSecim.Range("C2") = ""
Else
wsBankaKSecim.Range("C2") = "=" & Chr$(34) & "=" & TbKartSahibi & Chr(34)
End If

If TbKartSahibi = "" Then
wsBankaSecim.Range("C2") = ""
Else
wsBankaSecim.Range("C2") = "=" & Chr$(34) & "=" & TbKartSahibi & Chr(34)
End If


If TbBankaAktif = "" Then
wsBankaKSecim.Range("P2") = ""
Else
wsBankaKSecim.Range("P2") = "=" & Chr$(34) & "=" & TbBankaAktif & Chr(34)
End If

If TbBankaAktif = "" Then
wsBankaSecim.Range("P2") = ""
Else
wsBankaSecim.Range("P2") = "=" & Chr$(34) & "=" & TbBankaAktif & Chr(34)
End If

Application.CutCopyMode = False
wsBankaHesap.Range("A4:AL65000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=wsBankaSecim.Range("A1:AL2"), CopyToRange:=wsBankaSecim.Range("A4:AL4"), Unique:=False

Application.CutCopyMode = False
wsBankaKrediKarti.Range("A4:AL65000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=wsBankaKSecim.Range("A1:AL2"), CopyToRange:=wsBankaKSecim.Range("A4:AL4"), Unique:=False




LbLDetay.RowSource = ""
SonSatir = wsBankaSecim.Cells(Rows.Count, "A").End(3).Row
If SonSatir > 4 Then
Alan = "BankaSecim!A5:AL" & SonSatir
LbLDetay.RowSource = Alan
End If

LbLDetay.RowSource = ""
SonSatir = wsBankaKSecim.Cells(Rows.Count, "A").End(3).Row
If SonSatir > 4 Then
Alan = "BankaKSecim!A5:AL" & SonSatir
LbLDetay.RowSource = Alan
End If

LbLDetay.ListIndex = -1

 

[CristianoRonaldo]

Düzenleme süresi geçti deyince yukarıdakini düzeltemedim

Bilgilerin olduğu Excel Kitapları

BankaKrediKarti
BankaHesap

Filtrenen Excel Kitapları

BankaKSecim
BankaSecim

Resimdeki forma sadece bir kitapdan bilgiler geliyor

 

[CristianoRonaldo]

İlgilenen yokmu acaba

 

[Refaz]

Adamlar alttaki konuyu formun üstüne getire getire bıktılar galiba ama üyelerin bazıları yine aynı yine aynı
Birde aynı konu formumun üstünde sabit olmasına rağmen.

Duyuru - Soru Sorma Hakkında

Merhaba, Sayın Excelcozum.com Kullanıcıları *** Sorularınıza ÖRNEK DOSYA mutlaka yükleyiniz… Yeni Konu Aç Butonun hemen üstünde kırmızı yazılar ile ÖRNEK DOSYA Mutlaka Yükleyiniz yazısını göreceksiniz. - Örnek Dosyanızda Kişisel Bilgiler varsa bunların yerini Örnekleme(Gerçek Dışı) verilerle...

excelcozum.com

 

[CristianoRonaldo]

Refaz abi dosya bu ne yaptıysam iki excel sayfasını filtrelemiyor lütfen inşallah çaresi vardır

 

[CristianoRonaldo]

Adamlar alttaki konuyu formun üstüne getire getire bıktılar galiba ama üyelerin bazıları yine aynı yine aynı
Birde aynı konu formumun üstünde sabit olmasına rağmen.

Duyuru - Soru Sorma Hakkında

Merhaba, Sayın Excelcozum.com Kullanıcıları *** Sorularınıza ÖRNEK DOSYA mutlaka yükleyiniz… Yeni Konu Aç Butonun hemen üstünde kırmızı yazılar ile ÖRNEK DOSYA Mutlaka Yükleyiniz yazısını göreceksiniz. - Örnek Dosyanızda Kişisel Bilgiler varsa bunların yerini Örnekleme(Gerçek Dışı) verilerle...

excelcozum.com

 

[Refaz]

Application.CutCopyMode = False
wsBankaHesap.Range("A4:AL65000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=wsBankaSecim.Range("A1:AL2"), CopyToRange:=wsBankaSecim.Range("A4:AL4"), Unique:=False

Application.CutCopyMode = False
wsBankaHesap.Range("A4:AL65000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=wsBankaKSecim.Range("A1:AL2"), CopyToRange:=wsBankaKSecim.Range("A4:AL4"), _
Unique:=False

Bir deneyin ama mantığı tam anlamadım.Yukardaki gibi yerleri değiştirmeniz gerekebilir.


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[CristianoRonaldo]

Application.CutCopyMode = False
wsBankaHesap.Range("A4:AL65000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=wsBankaSecim.Range("A1:AL2"), CopyToRange:=wsBankaSecim.Range("A4:AL4"), Unique:=False

Application.CutCopyMode = False
wsBankaHesap.Range("A4:AL65000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=wsBankaKSecim.Range("A1:AL2"), CopyToRange:=wsBankaKSecim.Range("A4:AL4"), _
Unique:=False

Bir deneyin ama mantığı tam anlamadım.Yukardaki gibi yerleri değiştirmeniz gerekebilir.


HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Maalesef olmuyor abi konuyu kapatayım mı açık kalsın mı

 

[Refaz]

Benim için farketmez abey
Aslında hangi sayfada sonucu nasıl olacak tam anlatırsanız yapılamayacak bişey değil.
Bir sürü sayfa var.Kodunuzda doğru yanlış gibi sütun kodlarını düzenledim ve biraz daha düzenlemiştim.

 

[CristianoRonaldo]

Benim için farketmez abey
Aslında hangi sayfada sonucu nasıl olacak tam anlatırsanız yapılamayacak bişey değil.
Bir sürü sayfa var.Kodunuzda doğru yanlış gibi sütun kodlarını düzenledim ve biraz daha düzenlemiştim.

abi ben biraz daha düzenleyeyim göndereyim teşekkür ederim

 

[Refaz]

Tamam abey.
Dediğim gibi zor değil ama ney nasıl olacak anlamadığım için koda bakarak değiştirdim.
Dosyayı ekleyince zamanı olan ben yada başka üstad ilgilenir.

 

[CristianoRonaldo]

Tamam abey.
Dediğim gibi zor değil ama ney nasıl olacak anlamadığım için koda bakarak değiştirdim.
Dosyayı ekleyince zamanı olan ben yada başka üstad ilgilenir.

Uzun süredir bilgisayarla ilgilenemdim Refaz abi ve ilgili arkadaşlar anlayacağınız şekilde anca yaptım eğer yaparsanız çok minnettar olurum eğer olmaz ise sağlık olsun

 

[Refaz]

Dosyayı indirip inceledim daha hala ne yapılmak istenileni anlamadım sorun bende galiba abey.

 

[CristianoRonaldo]

Dosyayı indirip inceledim daha hala ne yapılmak istenileni anlamadım sorun bende galiba abey.

Refaz abi iki excel kitabında tek yere filtreleyecek mesela ben o kadar uğraştım ya Banka hesabını filtreliyor yada Kredi kartını ikisini aynı anda filtrelemiyor bende şaştım kaldım

 

[Patron]

Deneyiniz.

 

[CristianoRonaldo]

Deneyiniz.

Balta ve Refaz bey çoooooooook teşekkür ediyorum süper olmuş Elinize bilginize sağlık Balta bey