DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To 2000
If Cells(i, 2) = Cells(1, 1) Then Cells(i, 5) = Cells(i, 2)
Next
End Sub
Aşağıdaki gibi deneyin.Arkadaşlar bu fonsiyonun makrolarla nasıl yapılır.
=ETOPLA(Yıllık!$B$2:$B$2000;$A$1;Yıllık!$E$2:E2000)
worksheetfunction.sumif([Yıllık!b2:b2000],[a1],[Yıllık!e2:e2000])