tarih ve banka ismi

[emrexcel123]

arkadaşlar ve üstadlar günaydın
sorum şu olacak ekteki kitapta rapor sayfasında
- a sütununda banka isimleri var
- b sütununda tarihler var
- c sütununda tutarlar var
- e sütununda da banka ve tarihlerin birleştiği veriler var
tablo sayfasında da benzersiz kayıtlar sıralı
- 1.satırda benzersiz banka isimleri
- 1.sütunda da benzersiz tarihler var
yapmak istediğim şu
eğer tablo sayfasındaki 1.sütun ve 1.satırdaki verilerin birleşimi eşit ise rapor sayfasındaki e sütununa o zaman ilgili hücrelere c sütunundaki verileri atması gerekiyor ii çalışmalar...

 

[AS3434]

Yanlış anlamadıysam; Tablo sayfasında B2 ye yazın ve diğer hücrelere kopyalayın.

=TOPLA.ÇARPIM((rapor!$B$2:$B$57=$A2)*(rapor!$A$2:$A$57=B$1)*rapor!$C$2:$C$57)

 

[emrexcel123]

mükemmel

hocam peki bunu makroya nasıl uyarlayabiliriz...

 

[AS3434]

Makro bilgim zayıftır. Ama Makro Kaydet yöntemi ile şöyle oluyor;

Sub Makro1()
    [B2:H34].ClearContents
    [B2] = _
        "=SUMPRODUCT((rapor!R2C2:R57C2=RC1)*(rapor!R2C1:R57C1=R1C)*rapor!R2C3:R57C3)"
    [B2].AutoFill Destination:=[B2:B34], Type:=xlFillDefault
    [B2:B34].AutoFill Destination:=[B2:H34], Type:=xlFillDefault
    [B2:H34].Copy
    [B2:H34].PasteSpecial Paste:=xlPasteValues
    [B2].Select
    Application.CutCopyMode = False
End Sub

 

[emrexcel123]

formül mükemmel

hocam formül çok güzel fakat makrolu yöntemi bulabilirsem müthiş olacak benim için çok önemli bir kod olacak bu sağolun hocam...

 

[emrexcel123]

topla.çarpım

arkadaşlar bu soru ile ilgili makrolu çözümü nasıl yapabiliriz yardım edebilir misiniz ?

 

[emrexcel123]

örnek dosya

örnek dosya...