Verileri Listeden Tabloya Dönüştürmek

[baydeniro]

Arkadaşlar merhaba. Ekteki dosyada LİSTEDEN sayfasında liste halinde bulunan veriler var. Bu verileri TABLOYA sayfasındaki gibi bir tabloya dönüştürecek makroya gereksinmem var. Yardımcı olanlar şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

TABLOYA isimli sayfanızda B2 hücresine aşağıdaki formülü uygulayıp denermisiniz.

=TOPLA.ÇARPIM(--(LISTEDEN!$A$3:$A$58=B$1);--(LISTEDEN!$B$3:$B$58=$A2);--(LISTEDEN!$C$3:$C$58))

 

[baydeniro]

Teşekkürler costcontrol. Formülü uyguladım, sonuç mükemmel. Bunun makrolu bir çözümü de var mıdır ?

 

[Korhan Ayhan]

Selamlar,

Tabiki makroylada veriler aktarılabilir. Aşağıdaki kodu denermisiniz.

Sub AKTAR()
    Set SL = Sheets("LISTEDEN")
    Set ST = Sheets("TABLOYA")
    ST.[B2:K65536].ClearContents
    For X = 2 To ST.[A65536].End(3).Row
    For Y = 2 To ST.[IV1].End(1).Column
    ŞEHİR = ST.Cells(1, Y)
    KRİTER = ST.Cells(X, 1)
    ST.Cells(X, Y) = Evaluate("=SUMPRODUCT(--(LISTEDEN!A2:A100=""" & ŞEHİR & """),--(LISTEDEN!B2:B100=""" & KRİTER & """),--(LISTEDEN!C2:C100))")
    Next: Next
    Set SL = Nothing
    Set ST = Nothing
    MsgBox "VERİLER AKTARILMIŞTIR.", vbInformation
End Sub

 

[baydeniro]

Merhaba costcontrol. Hocam süper bir kod olmuş. Eline, bilgine sağlık. Çok çok teşekkürler. Allah'tan başarılarının devamını dilerim. Sağıcakla kal.