Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
compile error - pls help
dear all/bob,
got alot of error in the syntax. can help. thanks From: Bob Phillips Date Posted: 10/27/2004 3:55:00 AM Here is some code Dim i As Long Dim sHead As String Dim nTotal sHead = Left(Range("A1").Value, 1) nTotal = 0 For i = 1 To Cells(rows.Count, "A").End(xlUp).Row If Cells(i, "A").Value = "" Then Cells(i, "A").Value = "Total for " & sHead Cells(i, "B").Value = nTotal sHead = Left(Cells(i + 1, "A").Value, 1) nTotal = 0 Else nTotal = nTotal + Cells(i, "B").Value End If Next i Cells(i, "A").Value = "Total for " & sHead Cells(i, "B").Value = nTotal -- HTH RP "tango" wrote in message om... dear all, how to sum up the total for each of the category below in vba? when next row is empty then can do a sum up. for example a shell and head will be 4650 when encounter an empty row after linda. can help. thanks a shell and head andy 50 sussy 100 linda 4500 b nozzle james 98 zortan 340 c manhole bryan 34 fendi 444 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
compile error - pls help
Hi
wha compile error did you get exactly and in which lines "tango" wrote: dear all/bob, got alot of error in the syntax. can help. thanks From: Bob Phillips Date Posted: 10/27/2004 3:55:00 AM Here is some code Dim i As Long Dim sHead As String Dim nTotal sHead = Left(Range("A1").Value, 1) nTotal = 0 For i = 1 To Cells(rows.Count, "A").End(xlUp).Row If Cells(i, "A").Value = "" Then Cells(i, "A").Value = "Total for " & sHead Cells(i, "B").Value = nTotal sHead = Left(Cells(i + 1, "A").Value, 1) nTotal = 0 Else nTotal = nTotal + Cells(i, "B").Value End If Next i Cells(i, "A").Value = "Total for " & sHead Cells(i, "B").Value = nTotal -- HTH RP "tango" wrote in message om... dear all, how to sum up the total for each of the category below in vba? when next row is empty then can do a sum up. for example a shell and head will be 4650 when encounter an empty row after linda. can help. thanks a shell and head andy 50 sussy 100 linda 4500 b nozzle james 98 zortan 340 c manhole bryan 34 fendi 444 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Solver - error - Compile Error | Excel Discussion (Misc queries) | |||
help with this error-Compile error: cant find project or library | Excel Discussion (Misc queries) | |||
How do I get rid of "Compile error in hidden module" error message | Excel Discussion (Misc queries) | |||
Compile error in hidden module error | Excel Programming |