Sütuna göre veri çekme ?

[igultekin2000]

iyi günler; genel amaçlı oluşturduğum verilerden firma bazında hareketleri görmek içi Eğersay ve satır formülleriyle işlem yapıyorum. epey formül ve detayıyla pratik olmuyor. cari_hareket sayfasında oluşan verilerden, muavin çalışma sayfasnın B1 hücresindeki firmaya göre " cari_hareket " çalışma sayfasının D sütuna göre tüm satırları listelemek istiyorum. Teşekkürler

 

[Ömer BARAN]

Merhaba.
Alt taraftan muavin isimli sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranında sağdaki alana aşağıdaki kod blokunu yapıştırın.
B1 hücresinden firma adını değiştirip, sonucu gözlemleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1]) Is Nothing Then Exit Sub
If Cells(Rows.Count, "B").End(3).Row > 1 Then _
    Range("C2:I" & Cells(Rows.Count, "B").End(3).Row).ClearContents
If Target = "" Then Exit Sub
cson = Sheets("cari_hareket").Cells(Rows.Count, "B").End(3).Row
If Target <> "" Then _
Sheets("cari_hareket").Range("B1:H" & cson).AutoFilter Field:=3, Criteria1:="*" & Target.Value & "*"
If Sheets("cari_hareket").Cells(Rows.Count, "B").End(3).Row = 1 Then GoTo 10
Sheets("cari_hareket").Range("B2:H" & cson).SpecialCells(xlCellTypeVisible).Copy [C2]
10: Sheets("cari_hareket").Range("B1:H" & cson).AutoFilter
End Sub

 

[igultekin2000]

Merhaba.
teşekkür ederim, sorunsuz ve ek formülsüz çalışıyor, iyi akşamlar.

 

[Ömer BARAN]

Kolay gelsin.