Seçilen isme göre veri alma

[abrekkaos]

Herkese iyi akşamlar. Bu konuyla alakalı bir haftadır uğraşıyorum ama çözedim. Sitede yaptığım aramalarda benzer sorularla karşılaştım ancak formüller çok karışık ağır geldi kendi dosyama uyarlıyamadım. Kısaca sorum bi sayfada aynı isimdeki farklı satırdaki verileri diğer bir sayfada toplamak ve bunu açılır bir menüyle kontrol edebilmek. Eğer fırsat bulurda yardımcı olabilirseniz çok sevinirim.

 

[Merhum İdris SERDAR]

.

Buradaki örnekleri inceleyin.

http://www.excel.web.tr/f122/formulle-suzme-uygulamalary-t86938.html

.

 

[abrekkaos]

Çok teşekkür ederim inceledim tam olarak istediğim bu işte, ben bitek düşey ara yapabiliyorum inş. kendi dosyama uyarlıyabilirim.

 

[Orion1]

Dosyanız ektedir.

Sub Açılan1_Değiştir()
Dim sh As Worksheet, i As Long, sat As Long
Set sh = Sheets("VT")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Sheets("ŞABLON").Select
Application.ScreenUpdating = False
Range("A2:G" & Rows.Count).Clear
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=2, Criteria1:=Range("N1").Value
sh.Range("A1").CurrentRegion.Offset(1, 0).Copy Range("A2")
sh.Range("A1").AutoFilter
Application.ScreenUpdating = True
End Sub