Adhv ingevulde rijen totaal berekenen

[Ravermaya]

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

 

[Wigi]

Weet iemand wat ik verkeerd doe?

Je moet je variabelen declareren. Als je dat zou doen, zou je opmerken dat niet elke variabele zomaar overal in de code van het bestand gebruikt kan worden.

Na druk op de knop voer je dus eerst Totals uit. Je krijgt daar vWaarde, vRij enz. Maar die zitten in de module, die zijn niet gekend in Sheet1.

Bovendien, wat doe je eigenlijk? Je zoekt in kolom I het woord "Total Carats:" op, en haalt dan op die rij in kolom J het getal op. Maar na de druk op de knop schrijf je dit gewoon weer weg (althans dat probeer je). Wat is het nut van dit alles?

Wigi

 

[p van rooijen]

Upload eens voorbeeld aub?