ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   New Users to Excel (https://www.excelbanter.com/new-users-excel/)
-   -   help with vba script (https://www.excelbanter.com/new-users-excel/233017-help-vba-script.html)

lariveesl

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



Don Guillett

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



lariveesl

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





Don Guillett

help with vba script
 
Not too hard to figure out.

Sub coloror()
For Each cell In range("a2:a22")
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
Microsoft MVP Excel
SalesAid Software

"lariveesl" wrote in message
...
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






Shane Devenshire[_2_]

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






lariveesl

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









All times are GMT +1. The time now is 09:21 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com