Filtrelenen Verileri Farklı Sayfaya Yazırma Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Bir çalışma kitabının AnaSafasının "A2:C500" aralığında veriler bulunmaktadır. "A1" hücresindeki TextBox1 ile "A" sütununda süzme işlemi yapılmaktadır. "A1" hücresi ile yapılan her filtreden sonra, filtre edilen verinin diğer sayfada listelenmesini sağlamak istiyorum.
Konuya hakim olan uzman arkadaşların çok değerli yardımlarını veya çözüm önerilerini rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ


http://dosya.co/2ocf3m0chv4o/Filtrelen_Verileri_Farklı_Sayfaya_Yazırma.rar.html
http://s3.dosya.tc/server17/7hqebj/Filtrelen_Verileri_Farkli_Sayfaya_Yazirma.rar.html

 

[Ömer BARAN]

Merhaba.

Filtrelenen alanda, filtre sonucunda kalan verilerin başka sayfaya aktarılması konusu,
forumda çok kez sorulmuş ve çözüme ulaşmış bir konu diye biliyorum.

TextBox1_Change kodunu aşağıdakiyle değiştirirseniz istediğiniz olur.

Ben olsam, TextBox1_MouseUp kodunu hiç kullanmazdım, aktarma işini de bir düğmeyle yapardım, tabi tercih sizin.
.

Private Sub TextBox1_Change()
son = Sheets("AnaSayfa").Cells(Rows.Count, 1).End(3).Row
Range("A2").AutoFilter Field:=1, Criteria1:="*" & Sheets("Anasayfa").TextBox1.Text & "*"
If Sheets("Anasayfa").TextBox1 <> "" Then
    Sheets("Özet Liste").Cells.Clear
    Sheets("Anasayfa").Range("A2:C" & son).SpecialCells(xlCellTypeVisible).Copy _
    Sheets("Özet Liste").[A2]
End If
End Sub

 

[Believing]

Sayın Ömer BARAN,

Evet, haklısınız. Sitedeki örnek çalışmaları inceledim, ancak kendi uygulamama monte edememiştim.
Konuya gösterdiğiniz ilgi ve çok değerli yardımınız için size çok teşekkür ederim.
ALLAH sizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Believing]

Sayın Ömer BARAN,

Bu çalışma hakkında son kez yardım rica ediyorum.
AnaSayfa filtre edilmiş verileri diğer sayfaya transfer ederken, Arıza Tipleri "Memnuniyet", "Şikayet", "Talep","Öneri" olan satırları transfer etmek istemez isek, muvcut kodlarda nasıl bir değişiklik yapmamız gerekir.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Ömer BARAN]

Tekrar merhaba.

Verdiğim kod'u aşağıdakiyle değiştirin.
Filtre işlemini bir düğmeye bağlamanızın daha iyi olacağını bir kez daha hatırlatmak isterim.

Private Sub TextBox1_Change()
If TextBox1 = "" Then
    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Exit Sub
End If
son = Sheets("AnaSayfa").Cells(Rows.Count, 1).End(3).Row
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Columns("D:D").Insert Shift:=xlToRight
    [D3].Formula = "=1*OR(B3=""Memnuniyet"",B3=""Şikayet"",B3=""Talep"",B3=""Öneri"")"
    [D3].AutoFill Destination:=Range("D3:D" & son)
Range("A2:D2").AutoFilter Field:=1, Criteria1:="*" & Sheets("Anasayfa").TextBox1.Text & "*"
Range("A2:D2").AutoFilter Field:=4, Criteria1:="=0"

If Sheets("Anasayfa").TextBox1 <> "" Then
    Sheets("Özet Liste").Cells.Clear
    Sheets("Anasayfa").Range("A2:C" & son).SpecialCells(xlCellTypeVisible).Copy _
    Sheets("Özet Liste").[A2]
    Columns("D:D").Delete Shift:=xlToLeft
End If
Application.ScreenUpdating = True
End Sub

 

[Believing]

Sayın Ömer BARAN,

Benim için çok kıymetli olan yardımınız için size çok teşekkür ederim.
ALLAH sizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Ömer BARAN]

İşlemin gerçekleşme yöntemini açıklayayım dedim, faydası olacağını düşünüyorum;
-- Metin filtrelemede 2'den fazla "EŞİT DEĞİL" koşulu uygulamak için C ile D sütunu arasına geçici olarak bir sütun ekleniyor,
(D ve devamındaki sütunları kullanıyor olabileceğinizi düşünerek doğrudan D sütununda işlem yapmak yerine,
araya geçici olarak eklenen yeni D sütununda işlem yapılıyor)
-- eklenen D sütununa eklediğiniz .... içermeyen sonucunu doğuracak formül uygulanıyor,
-- A sütununa, TextBox'a göre filtre uygulanıyor,
-- D sütununa, uygulanan formül sonucu 0 olanlar şeklinde filtre uygulanıyor,
-- Filtre sonucunda kalan satırlar diğer sayfaya aktarılıyor,
-- Geçici olarak eklenen D sütunu silinerek, Ana SAyfa eski haline getiriliyor.
Kod'u, VBA ekranında F8 tuşuna basarak adım adım çalıştırırsanız yukarıda belirttiğim işlemleri izleyebilirsiniz.
(mevcut C sütununun genişliğini azaltarak denerseniz olup biteni daha rahat görürsünüz)

İyi çalışmalar dilerim.
.

 

[Believing]

Sayın Ömer BARAN,

Detaylı anlatımınız çok makbule geçmiştir.
ALLAH sizde razı olsun.


Saygılarımla,
Ömer Ali ÜZÜMCÜ