Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.newusers
|
|||
|
|||
help with vba script
Here is PART of a script someone did for me
Sub coloror() Dim myrar As Range Dim colchoice As Integer Set myrar = Application.InputBox("What range", rangetocheck, , , , , , 8) For Each cell In myrar When I run the script, and it does work well, I am prompted to put in the RANGE for the script to look at before it proceeds. I would like to enter a fixed area, such as A4:D12. How would I rewrite the ("What range", rangetocheck, , , , , , 8) section to insert this fixed range? Thanks |
#2
Posted to microsoft.public.excel.newusers
|
|||
|
|||
help with vba script
For Each cell In range("a2:a22") cell.interior.ColorIndex=6 next cell or simply range("a2:a22").interior.ColorIndex=6 -- Don Guillett Microsoft MVP Excel SalesAid Software "lariveesl" wrote in message ... Here is PART of a script someone did for me Sub coloror() Dim myrar As Range Dim colchoice As Integer Set myrar = Application.InputBox("What range", rangetocheck, , , , , , 8) For Each cell In myrar When I run the script, and it does work well, I am prompted to put in the RANGE for the script to look at before it proceeds. I would like to enter a fixed area, such as A4:D12. How would I rewrite the ("What range", rangetocheck, , , , , , 8) section to insert this fixed range? Thanks |
#3
Posted to microsoft.public.excel.newusers
|
|||
|
|||
help with vba script
I guess I should have included the whole script. Just where should I put
what you suggested? And what should I leave out when I replace it?? Thanks again. Sub coloror() Dim myrar As Range Dim colchoice As Integer Set myrar = Application.InputBox("What range", rangetocheck, , , , , , 8) For Each cell In myrar Select Case cell.Value Case Is = 90 colchoice = 4 Case Is = 80 colchoice = 6 Case Is = 70 colchoice = 40 Case Is = 60 colchoice = 3 Case Is < 60 colchoice = 2 End Select cell.Interior.ColorIndex = colchoice Next End Sub "Don Guillett" wrote in message ... For Each cell In range("a2:a22") cell.interior.ColorIndex=6 next cell or simply range("a2:a22").interior.ColorIndex=6 -- Don Guillett Microsoft MVP Excel SalesAid Software "lariveesl" wrote in message ... Here is PART of a script someone did for me Sub coloror() Dim myrar As Range Dim colchoice As Integer Set myrar = Application.InputBox("What range", rangetocheck, , , , , , 8) For Each cell In myrar When I run the script, and it does work well, I am prompted to put in the RANGE for the script to look at before it proceeds. I would like to enter a fixed area, such as A4:D12. How would I rewrite the ("What range", rangetocheck, , , , , , 8) section to insert this fixed range? Thanks |
#5
Posted to microsoft.public.excel.newusers
|
|||
|
|||
help with vba script
Hi,
A few minor changes (its good practice to declare your variables). Sub coloror() Dim cell As Range Dim col As Integer For Each cell In [a2:a22] Select Case cell Case Is = 90: col = 4 Case Is = 80: col = 6 Case Is = 70: col = 40 Case Is = 60: col = 3 Case Is < 60: col = 2 End Select cell.Interior.ColorIndex = col Next End Sub -- If this helps, please click the Yes button. Cheers, Shane Devenshire "lariveesl" wrote: I guess I should have included the whole script. Just where should I put what you suggested? And what should I leave out when I replace it?? Thanks again. Sub coloror() Dim myrar As Range Dim colchoice As Integer Set myrar = Application.InputBox("What range", rangetocheck, , , , , , 8) For Each cell In myrar Select Case cell.Value Case Is = 90 colchoice = 4 Case Is = 80 colchoice = 6 Case Is = 70 colchoice = 40 Case Is = 60 colchoice = 3 Case Is < 60 colchoice = 2 End Select cell.Interior.ColorIndex = colchoice Next End Sub "Don Guillett" wrote in message ... For Each cell In range("a2:a22") cell.interior.ColorIndex=6 next cell or simply range("a2:a22").interior.ColorIndex=6 -- Don Guillett Microsoft MVP Excel SalesAid Software "lariveesl" wrote in message ... Here is PART of a script someone did for me Sub coloror() Dim myrar As Range Dim colchoice As Integer Set myrar = Application.InputBox("What range", rangetocheck, , , , , , 8) For Each cell In myrar When I run the script, and it does work well, I am prompted to put in the RANGE for the script to look at before it proceeds. I would like to enter a fixed area, such as A4:D12. How would I rewrite the ("What range", rangetocheck, , , , , , 8) section to insert this fixed range? Thanks |
#6
Posted to microsoft.public.excel.newusers
|
|||
|
|||
help with vba script
Thank you, both, for your help. Worked out great!
"Shane Devenshire" wrote in message ... Hi, A few minor changes (its good practice to declare your variables). Sub coloror() Dim cell As Range Dim col As Integer For Each cell In [a2:a22] Select Case cell Case Is = 90: col = 4 Case Is = 80: col = 6 Case Is = 70: col = 40 Case Is = 60: col = 3 Case Is < 60: col = 2 End Select cell.Interior.ColorIndex = col Next End Sub -- If this helps, please click the Yes button. Cheers, Shane Devenshire "lariveesl" wrote: I guess I should have included the whole script. Just where should I put what you suggested? And what should I leave out when I replace it?? Thanks again. Sub coloror() Dim myrar As Range Dim colchoice As Integer Set myrar = Application.InputBox("What range", rangetocheck, , , , , , 8) For Each cell In myrar Select Case cell.Value Case Is = 90 colchoice = 4 Case Is = 80 colchoice = 6 Case Is = 70 colchoice = 40 Case Is = 60 colchoice = 3 Case Is < 60 colchoice = 2 End Select cell.Interior.ColorIndex = colchoice Next End Sub "Don Guillett" wrote in message ... For Each cell In range("a2:a22") cell.interior.ColorIndex=6 next cell or simply range("a2:a22").interior.ColorIndex=6 -- Don Guillett Microsoft MVP Excel SalesAid Software "lariveesl" wrote in message ... Here is PART of a script someone did for me Sub coloror() Dim myrar As Range Dim colchoice As Integer Set myrar = Application.InputBox("What range", rangetocheck, , , , , , 8) For Each cell In myrar When I run the script, and it does work well, I am prompted to put in the RANGE for the script to look at before it proceeds. I would like to enter a fixed area, such as A4:D12. How would I rewrite the ("What range", rangetocheck, , , , , , 8) section to insert this fixed range? Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Help with the script | Excel Discussion (Misc queries) | |||
Help ! How do I do this in VB Script | Setting up and Configuration of Excel | |||
help with the VB script | Excel Worksheet Functions | |||
I need some VB script please | Excel Discussion (Misc queries) | |||
VB script help - please!! | Excel Discussion (Misc queries) |