Ik heb een excelsheet.
Daar heb je 5 dezelfde "groepjes"
Maximaal 9 rijen per groepje, waarvan dan het totaal aantal, het gemiddelde en de totale prijs op word berekend.
Nu wil ik 5x die totaal aantal, gemiddelde en de totale prijs nog eens samen weergeven als "grand total".
Het ambetante is dat ik eerst moet nagaan hoeveel rijen er per groep werden ingevuld (dit kan van 1 tot 9) om te weten waar mijn totaal weergegeven werd.
Ik heb volgende code, maar lukt niet
in module 3:
Public Sub Totals()
With Worksheets(1).Range("I:I")
Set a = .Find("Total Carats:", LookIn:=xlValues)
If Not a Is Nothing Then
vRij = a.Row
vWaarde = Range("J" + CStr(vRij)).Formula
End If
End With
End Sub
en dan in sheet1, gekoppeld aan een knop bereken totaal
Private Sub CommandButton1_Click()
Module3.Totals
Range("J" & CStr(vRij)).Formula = vWaarde
End Sub
Weet iemand wat ik verkeerd doe?
dank u wel
Daar heb je 5 dezelfde "groepjes"
Maximaal 9 rijen per groepje, waarvan dan het totaal aantal, het gemiddelde en de totale prijs op word berekend.
Nu wil ik 5x die totaal aantal, gemiddelde en de totale prijs nog eens samen weergeven als "grand total".
Het ambetante is dat ik eerst moet nagaan hoeveel rijen er per groep werden ingevuld (dit kan van 1 tot 9) om te weten waar mijn totaal weergegeven werd.
Ik heb volgende code, maar lukt niet
in module 3:
Public Sub Totals()
With Worksheets(1).Range("I:I")
Set a = .Find("Total Carats:", LookIn:=xlValues)
If Not a Is Nothing Then
vRij = a.Row
vWaarde = Range("J" + CStr(vRij)).Formula
End If
End With
End Sub
en dan in sheet1, gekoppeld aan een knop bereken totaal
Private Sub CommandButton1_Click()
Module3.Totals
Range("J" & CStr(vRij)).Formula = vWaarde
End Sub
Weet iemand wat ik verkeerd doe?
dank u wel