Liste süzme

[NADİR YILDIZ]

ARKADAŞLAR KOLAY GELSİN LİSTEMDE MAL CİNSİ VE MİKTARLAR VAR MAL CİNSİ SÜZDÜRME İŞLEMİ YAPTIĞIMDA SARI KIRMIZI ALANA SÜZDÜRME YAPTIĞIM MAL CİNSİ YAZDIRMA İMKANIM VARMI.MESELA ELBİSE'yi SÜZDÜRDÜĞÜMDE ELBİSE YAZACAK..ÇANTA SÜZDÜRDÜĞÜMDE ÇANTA YAZACAK..GELİŞMİŞ SÜZGEÇ İLE BENZERSİZ LİSTE UYGULAMA İMKANIM YOK ÇÜNKÜ LİSTE ÇOK UZUN BUNUN DIŞINDA ÇÖZÜM ÖNERİSİ OLAN VARMI

 

[YUSUF44]

Başka yol bulamadım, şöyle yapabilirsiniz. Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırın. Kodlar B2:B1000 aralığında herhangi bir hücre seçildiğinde, görünen en alt satırdaki veriyi B2'ye yazar. Hücre aralığını isteğinize göre değiştirebilirsiniz:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B2:B1000]) Is Nothing Then Exit Sub
[B2] = Cells(Cells(Rows.Count, "B").End(3).Row, "B").Value
End Sub

 

[Ömer BARAN]

Merhaba.

Madem konu FONKSİYONLAR bölümüne açılmış formül ile çözüm önerisinde bulunayım.

-- D4 hücresine aşağıdaki formülü uygulayın ve liste boyunca kopyalayın;

=ALTTOPLAM(2;$C$4:C4)

-- B2 hücresine de aşağıdaki formülü uygulayın.
Filtreden tümü seçildiğinde sonuç "TÜMÜ" olarak döndürülür.

=EĞER(MAK($D$4:$D$11)=8;"TÜMÜ";İNDİS(B4:B11;KAÇINCI(MAK($D$4:$D$11);D4:D11;0);0))

 

[NADİR YILDIZ]

Ömer bey çok teşekkür ederim istediğim gibi olmuş..Yusuf bey sizinde emeğinize sağlık kod ile çözüm bulmuşsunuz..benim formül ile çözüm daha çok işimi yaradı.hepinize teşekkürler