Verileri Liste haline getirmek

Katılım
4 Aralık 2018
Mesajlar
5
Beğeniler
0
Excel Vers. ve Dili
makro
#1
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
20,740
Beğeniler
168
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

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

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
20,740
Beğeniler
168
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#4
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
Beğeniler
0
Excel Vers. ve Dili
makro
#5
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
20,740
Beğeniler
168
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

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