- Katılım
- 28 Kasım 2007
- Mesajlar
- 919
- Excel Vers. ve Dili
- Office 2010 İngilizce
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
[FONT="Trebuchet MS"][SIZE="2"]=[COLOR="Red"]TOPLA.ÇARPIM[/COLOR](($B3=$P3)*(C$2=Q$2)*(Q3*C3))[/SIZE][/FONT]
[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
Dim i%, a%
For i = 3 To 6
For a = 3 To 14
Cells(i + 7, a + 14).Value = Cells(i, a) * Cells(i, a + 14)
Next a
Next i
a = Empty: i = Empty
End Sub[/SIZE][/FONT]