Veri Çağırma

[alperalper]

Arkadaşlar örnek dosyayı ekte verdim. Bir türlü başaramadım. Formülle çok uzun oluyor ve karışıklık yaratıyor. Makro yazmayı tam olarak bilmiyorum. Bana yardımcı olursanız çok sevinirim. Aylık yazan sayfada dönem seçtiğim zaman veri sayfasında o dönemin verilerinin toplamlarının yani gri renkli olanlarının ait olduğu hücrelere gelmesini istiyorum. Saygılar. Yardımcı olan arkadaşlara şimdiden teşekkürler

 

[İhsan Tank]

Arkadaşlar örnek dosyayı ekte verdim. Bir türlü başaramadım. Formülle çok uzun oluyor ve karışıklık yaratıyor. Makro yazmayı tam olarak bilmiyorum. Bana yardımcı olursanız çok sevinirim. Aylık yazan sayfada dönem seçtiğim zaman veri sayfasında o dönemin verilerinin toplamlarının yani gri renkli olanlarının ait olduğu hücrelere gelmesini istiyorum. Saygılar. Yardımcı olan arkadaşlara şimdiden teşekkürler

merhaba
sayfanın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("I4")) Is Nothing Then Exit Sub
Range("B12") = WorksheetFunction.VLookup(Range("I4").Text, Sheets("Veri").Range("A3:I65536"), 2, 0)
Range("C12") = WorksheetFunction.VLookup(Range("I4").Text, Sheets("Veri").Range("A3:I65536"), 3, 0)
Range("D12") = WorksheetFunction.VLookup(Range("I4").Text, Sheets("Veri").Range("A3:I65536"), 4, 0)
Range("E13") = WorksheetFunction.VLookup(Range("I4").Text, Sheets("Veri").Range("A3:I65536"), 5, 0)
Range("F13") = WorksheetFunction.VLookup(Range("I4").Text, Sheets("Veri").Range("A3:I65536"), 6, 0)
Range("G13") = WorksheetFunction.VLookup(Range("I4").Text, Sheets("Veri").Range("A3:I65536"), 7, 0)
Range("H13") = WorksheetFunction.VLookup(Range("I4").Text, Sheets("Veri").Range("A3:I65536"), 8, 0)
Range("I13") = WorksheetFunction.VLookup(Range("I4").Text, Sheets("Veri").Range("A3:I65536"), 9, 0)
MsgBox Range("I4").Text & " BİLGİLERİ GETİRİLDİ", vbInformation
End Sub

bu kodu yapıştırınız.
I4 hücresinden seçeceğiniz Ay'a göre verileri getirecektir.