• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Verileri Liste haline getirmek

Katılım
4 Aralık 2018
Mesajlar
4
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
 
Katılım
1 Mart 2005
Mesajlar
20,501
Beğeniler
103
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
4
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 :)
 
Katılım
1 Mart 2005
Mesajlar
20,501
Beğeniler
103
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

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