LİSTE

[iplikci_80]

Arkadaşlar merhabalar. EK 'te gönderdiğim çalışmada VERİ sekmesinin I sütunundaki GÖREV YERİ hücrelerinde MERKEZ veya ŞANTİYE bu ihtiyaca göre İNŞAAT, MAKİNE v.s. gibi artıp gidebilir. J sütununda ise personellerin görevleri yazıyor.
1- ŞANTİYE veya MERKEZ 'e tıkladığımda LİSTE sekmesinde tıkladığım ne ise
ŞANTİYE veya MERKEZ 'i listelemesini.

2- ŞANTİYE ye ait KAYNAKCI 'ları tıkladığımda ŞANTİYE ye ait KAYNAKCI 'ları LİSTE sekmesinde listelenmesini sağlamak istiyorum.Bu konuda yardımlarınızı bekliyorum.

 

[Baggwell]

Filtre için;
(Örnek yalnızca Şantiye & Kaynakçı filtresidir) çoğaltarak isteğinize göre düzenleyebilrisiniz)

Sub Filtrele()
    ActiveSheet.Range("$B$4:$DO$35").AutoFilter Field:=7, Criteria1:="ŞANTİYE"

    ActiveSheet.Range("$B$4:$DO$35").AutoFilter Field:=9, Criteria1:="KAYNAKCI"
End Sub

Filtre temizle butonu için;

Sub FiltreTemizle()

     ActiveSheet.Range("$B$4:$DO$35").AutoFilter Field:=9
     ActiveSheet.Range("$B$4:$DO$35").AutoFilter Field:=7
End Sub

 

[iplikci_80]

Sayın Baggwell ilginize çok teşekkür ederim. Vba konularında zayıfımda, örnekte uygulayabilir misiniz lütfen.

 

[iplikci_80]

Arkadaşlar EK'teki çalışmada I sütunundaki "KAYITLI OLDUĞU SGK" değerine çift tıkladığımızda o değere ait bilgileri LİSTE sayfasına atan ve liste sayfasının başına örneğin "OSMANİYE PERSONEL LİSTESİ" yazan bir kod mevcut. Benim yapmak istediğim şey bugünün tarihi ne ise örneğin " 19.12.2016 TARİHLİ OSMANİYE PERSONEL LİSTESİ" şeklinde olmasını sağlamak.