- Katılım
- 24 Kasım 2007
- Mesajlar
- 769
- Excel Vers. ve Dili
- Office 365 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 30-01-2024
Merhaba
İlksorum "i" değişkeni hakkında. Toplaçarpım makrosunda 800 yazan satıra "i" değişkeni atamak istiyorum. Ama hata alıyorum
ikinci sorum, yine buna benzer
rank makro koduna + eğersay kodunuda eklemek istiyorum, Rank kodu kendi başına çalışıyor, ama countif ile çalışmıyor
daha sonra yukarıdaki gibi bu kodlarada" i" değişkeni ile sınırlandıracağım
İlksorum "i" değişkeni hakkında. Toplaçarpım makrosunda 800 yazan satıra "i" değişkeni atamak istiyorum. Ama hata alıyorum
Kod:
With [G4:G800]
.Formula = "=SUMPRODUCT((List!$J$5:$J$800=Durusfilitre!$E4)*(List!$M$5:$M$800=Durusfilitre!$F4)*(List!$L$5:$L$800))": .Value = .Value
End With
-------------------------------------------------------------------
i = Sheets("List").Range("B65536").End(xlUp).Row
With [G4:"G" & i]
.Formula = "=SUMPRODUCT((List!$J$5:$J$" & i & "=Durusfilitre!$E4)*(List!$M$5:$M$" & i & "=Durusfilitre!$F4)*(List!$L$5:$L$" & i & "))": .Value = .Value
End With
ikinci sorum, yine buna benzer
rank makro koduna + eğersay kodunuda eklemek istiyorum, Rank kodu kendi başına çalışıyor, ama countif ile çalışmıyor
daha sonra yukarıdaki gibi bu kodlarada" i" değişkeni ile sınırlandıracağım
Kod:
'With [B4:B100]
'.Formula = "=RANK($G4,$G$4:$G$100,0)": .Value = .Value
'End With
-------------------------------------------------------------------
'With [B4:B100]
'.Formula = "=RANK($G4,$G$4:$G$100,0) + COUNTIF(G$4:$G4;G4)-1": .Value = .Value
'End With