alphamax
Terugkerende gebruiker
- Lid geworden
- 16 mrt 2011
- Berichten
- 2.654
- Besturingssysteem
- Windows 11 en-US
- Office versie
- Office 2007 nl-NL
Zo zou het in principe kunnen.
Het kan zijn dat de formules in de verkeerde kolom terechtkomen, maar dan moet je de offset maar even aanpassen.
Het kan zijn dat de formules in de verkeerde kolom terechtkomen, maar dan moet je de offset maar even aanpassen.
Code:
Public Sub Tellen_Export()
For Each a In Range("m2", Cells(Rows.Count, 13).End(xlUp)).SpecialCells(2).Areas
With a
m = .Address
n = .Offset(, 1).Address
o = .Offset(, 2).Address
.Cells(.Rows.Count, 5) = Evaluate("sumproduct((" & m & ")*(" & n & "=""CAN""))")
.Cells(.Rows.Count, 6) = Evaluate("SUM(--(" & n & "=""CAN""))=SUM((" & n & "=""CAN"")*(" & m & ">=1)*(" & m & "<=12)*(" & o & ">=15)*(" & o & "<=26))")
End With
Next a
End Sub
Laatst bewerkt: