Verileri Liste haline getirmek

[okanceliks]

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]

Otomatik filtre ile hemencecik olur.

 

[okanceliks]

Otomatik filtre ile hemencecik olur.

teşekür ederim filtreleme yolu ile değilde farklı bir metotta yapmak istiyorum hatırlattığınız iyi oldu konuyu düzelttim

 

[Orion1]

Ekli linki inceleyiniz.

DOSYAYI INDIR

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

 

[okanceliks]

Ekli linki inceleyiniz.

DOSYAYI INDIR

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]

Rica ederim.
İyi çalışmalar.