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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 11:01 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com