Verileri Liste haline getirmek

Katılım
4 Aralık 2018
Mesajlar
5
Excel Vers. ve Dili
makro
Merhaba arkadaşlar yeni üyeyim bazen takıldığım noktalarda internetten araştırma yaparken denk geliyordum ve kayıt oldum bi konuda takıldığım nokta var.Linkte gönderdiğim dosyada tekrarlanan il isimleri ve karşısında farklı tarihler mevcut.Yapmak istediğim il ismini seçtiğimde karşısına o ilin tarihleri de gelsin.Filtreleme yoluyla yapmak istemiyorum.Bir buton olsa veya il adını yazsam da karşısına tarihleri getirse böyle birşey yapabilirmiyiz Bu konuda yardımınıza ihtiyacım var.Teşekür ederim şimdiden.

https://www.dosyaupload.com/qSpW
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Otomatik filtre ile hemencecik olur.:cool:
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Ekli linki inceleyiniz.:cool:

DOSYAYI INDIR

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sonsat As Long
If Intersect(Target, [E1]) Is Nothing Then Exit Sub
Range("E2:E" & Rows.Count).ClearContents
Range("A1").AutoFilter
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Range("A1").AutoFilter field:=2, Criteria1:=Target.Value
Range("A2:A" & sonsat).SpecialCells(xlCellTypeVisible).Copy Range("E2")
Range("A1").AutoFilter
End Sub
 
Katılım
4 Aralık 2018
Mesajlar
5
Excel Vers. ve Dili
makro
Ekli linki inceleyiniz.:cool:

DOSYAYI INDIR

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sonsat As Long
If Intersect(Target, [E1]) Is Nothing Then Exit Sub
Range("E2:E" & Rows.Count).ClearContents
Range("A1").AutoFilter
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Range("A1").AutoFilter field:=2, Criteria1:=Target.Value
Range("A2:A" & sonsat).SpecialCells(xlCellTypeVisible).Copy Range("E2")
Range("A1").AutoFilter
End Sub
teşekür ederim çok makbule geçti :)
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Rica ederim.
İyi çalışmalar.:cool:
 
Üst