Formule doortrekken met dynamische range

Status
Niet open voor verdere reacties.
J

Johannes95

Gebruiker
Lid geworden
30 jul 2019
Berichten
6
Goedendag,

Ik heb de volgende formule in cel H9 staan = SUMPRODUCT(--(B9=$B$9:$B$10000);--(G9<$G$9:$G$10000))+1 . Deze formule wil ik automatisch doortrekken tot een cel in column A leeg is. Op dit moment loop het tot A1957 maar dit kan per input verschillen.

Ik heb wat gezocht op internet en heb het volgende gemaakt, maar hierop geeft hij een foutmelding:
---

Sub TryOut()
Range("H9").Value = "=SUMPRODUCT(--(RC[-6]=$B$9:$B$10000);--(RC[-1]<$G$9:$G$10000))+1"
Range("H9").Select
Selection.AutoFill Destination:=Range("H9:H?")

End Sub
---
Wie kan mij helpen?:D
 
Laatst bewerkt:
bv

Code: 
Sub VenA()
  Range("H9:H" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=SUMPRODUCT(--(RC[-6]=R9C2:R10000C2),--(RC[-1]<R9C7:R10000C7))+1"
End Sub
 
Code: 
Sub VenA()
  Range("I9:I" & Cells(Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=SUMPRODUCT(--(RC[-6]=R9C3:R10000C3),--(RC[-2]<R9C7:R10000C7))+1"
End Sub

of in 1 keer beide formules
Code: 
Sub VenA()
  Range("H9:H" & Cells(Rows.Count, 1).End(xlUp).Row).Resize(, 2).FormulaR1C1 = Array("=SUMPRODUCT(--(RC[-6]=R9C2:R10000C2),--(RC[-1]<R9C7:R10000C7))+1", "=SUMPRODUCT(--(RC[-6]=R9C3:R10000C3),--(RC[-2]<R9C7:R10000C7))+1")
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan