Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA for a complex If...Then Loop
I know it can be done, but I just don't know the syntax.
I want to tell Excel, to check if a range of cells in the a row as a particular formating, and for each cell with that formatting to make the some of the numbers in those cell. I started the programming, but I just don't know how to write the "Then" part (in cell E15, make the some of all the cell with the matching formating) Sub test1() If Feuil59.Range("U15", "AT15").Interior.ColorIndex = 50 Then E15 = Sum(U15, AT15) ????? End If End Sub Hope I'm clear enough and thanks for your help Sophie |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA for a complex If...Then Loop
Hi,
I think you may mean this Sub test1() Dim MyRange As Range Set MyRange = Range("U15:AT15") For Each c In MyRange If c.Interior.ColorIndex = 50 Then mytotal = mytotal + c End If Next Range("E15") = mytotal End Sub Mike "Fluffy" wrote: I know it can be done, but I just don't know the syntax. I want to tell Excel, to check if a range of cells in the a row as a particular formating, and for each cell with that formatting to make the some of the numbers in those cell. I started the programming, but I just don't know how to write the "Then" part (in cell E15, make the some of all the cell with the matching formating) Sub test1() If Feuil59.Range("U15", "AT15").Interior.ColorIndex = 50 Then E15 = Sum(U15, AT15) ????? End If End Sub Hope I'm clear enough and thanks for your help Sophie |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA for a complex If...Then Loop
Hello Mike,
It is working fine :-) Thank you very much for your help. Sophie "Mike H" wrote: Hi, I think you may mean this Sub test1() Dim MyRange As Range Set MyRange = Range("U15:AT15") For Each c In MyRange If c.Interior.ColorIndex = 50 Then mytotal = mytotal + c End If Next Range("E15") = mytotal End Sub Mike "Fluffy" wrote: I know it can be done, but I just don't know the syntax. I want to tell Excel, to check if a range of cells in the a row as a particular formating, and for each cell with that formatting to make the some of the numbers in those cell. I started the programming, but I just don't know how to write the "Then" part (in cell E15, make the some of all the cell with the matching formating) Sub test1() If Feuil59.Range("U15", "AT15").Interior.ColorIndex = 50 Then E15 = Sum(U15, AT15) ????? End If End Sub Hope I'm clear enough and thanks for your help Sophie |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA for a complex If...Then Loop
Your welcome
"Fluffy" wrote: Hello Mike, It is working fine :-) Thank you very much for your help. Sophie "Mike H" wrote: Hi, I think you may mean this Sub test1() Dim MyRange As Range Set MyRange = Range("U15:AT15") For Each c In MyRange If c.Interior.ColorIndex = 50 Then mytotal = mytotal + c End If Next Range("E15") = mytotal End Sub Mike "Fluffy" wrote: I know it can be done, but I just don't know the syntax. I want to tell Excel, to check if a range of cells in the a row as a particular formating, and for each cell with that formatting to make the some of the numbers in those cell. I started the programming, but I just don't know how to write the "Then" part (in cell E15, make the some of all the cell with the matching formating) Sub test1() If Feuil59.Range("U15", "AT15").Interior.ColorIndex = 50 Then E15 = Sum(U15, AT15) ????? End If End Sub Hope I'm clear enough and thanks for your help Sophie |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
complex color fill conditions- if statements or complex formula? | Excel Discussion (Misc queries) | |||
Very complex Loop | Excel Programming | |||
(Complex) Loop within loop to create worksheets | Excel Programming | |||
Loop for a Complex Formula | Excel Programming | |||
Do---Loop Error in Complex Code | Excel Programming |