- Katılım
- 30 Nisan 2007
- Mesajlar
- 396
- Excel Vers. ve Dili
- Office 365
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Test()
Dim SatirSay As Long
SatirSay = Cells(Rows.Count, "A").End(xlUp).Row
Range("F5:H" & SatirSay).Formula = "=sumifs($D$5:$D$" & SatirSay & ",$B$5:$B$" & SatirSay & ",$B5,$C$5:$C$" & SatirSay & ",F$4)"
Range("F5:H" & SatirSay).Value = Range("F5:H" & SatirSay).Value
End Sub