Hi There,
I am new here so let's see...

I am having hard time trying to make VBA code.
I am trying to make a code that will check range B4:AZ4 and if there is a
value 7, it will make cells from row 5 to row e.g. 500 "7" coloured as grey.
I am able to get this far, but it should work out when there are changes in
rows 5 to 500. I want it work when I drag and drop/enter values/delete values
to run this.

Please, Help me, I am going nuts over this.... Thanks in advance.

Sorry, I will add my code he
Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range, rng2 As Range
Dim rCell As Range
Dim i As Long
Dim arr As Variant

Const Month As String = "7"

Set rng = Me.Range("B4:AZ4")

If Not Intersect(Target, rng) Is Nothing Then

For Each rCell In rng.Cells
If UCase(rCell.Value) = Month Then
rCell(2).Resize(500).Interior.ColorIndex = 15

Else
rCell(2).Resize(500).Interior.ColorIndex = xlNone

End If

Next
End If

End Sub

I also want to make another format for number 12 :o)

Thanks...

"MakeLei" wrote:

Hi There,
I am new here so let's see...

I am having hard time trying to make VBA code.
I am trying to make a code that will check range B4:AZ4 and if there is a
value 7, it will make cells from row 5 to row e.g. 500 "7" coloured as grey.
I am able to get this far, but it should work out when there are changes in
rows 5 to 500. I want it work when I drag and drop/enter values/delete values
to run this.

Please, Help me, I am going nuts over this.... Thanks in advance.

So what isn't working with your current solution?

--
Regards,
Tom Ogilvy


"MakeLei" wrote:

Sorry, I will add my code he
Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range, rng2 As Range
Dim rCell As Range
Dim i As Long
Dim arr As Variant

Const Month As String = "7"

Set rng = Me.Range("B4:AZ4")

If Not Intersect(Target, rng) Is Nothing Then

For Each rCell In rng.Cells
If UCase(rCell.Value) = Month Then
rCell(2).Resize(500).Interior.ColorIndex = 15

Else
rCell(2).Resize(500).Interior.ColorIndex = xlNone

End If

Next
End If

End Sub

I also want to make another format for number 12 :o)

Thanks...

"MakeLei" wrote:

Hi There,
I am new here so let's see...

I am having hard time trying to make VBA code.
I am trying to make a code that will check range B4:AZ4 and if there is a
value 7, it will make cells from row 5 to row e.g. 500 "7" coloured as grey.
I am able to get this far, but it should work out when there are changes in
rows 5 to 500. I want it work when I drag and drop/enter values/delete values
to run this.

Please, Help me, I am going nuts over this.... Thanks in advance.

Hi and thanks for fast reply,
How would I be able to activate the code when there are changes in rows 5
to 500... Otherwise it works well.
BR
MakeLei

"Tom Ogilvy" wrote:

So what isn't working with your current solution?

--
Regards,
Tom Ogilvy


"MakeLei" wrote:

Sorry, I will add my code he
Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range, rng2 As Range
Dim rCell As Range
Dim i As Long
Dim arr As Variant

Const Month As String = "7"

Set rng = Me.Range("B4:AZ4")

If Not Intersect(Target, rng) Is Nothing Then

For Each rCell In rng.Cells
If UCase(rCell.Value) = Month Then
rCell(2).Resize(500).Interior.ColorIndex = 15

Else
rCell(2).Resize(500).Interior.ColorIndex = xlNone

End If

Next
End If

End Sub

I also want to make another format for number 12 :o)

Thanks...

"MakeLei" wrote:

Hi There,
I am new here so let's see...

I am having hard time trying to make VBA code.
I am trying to make a code that will check range B4:AZ4 and if there is a
value 7, it will make cells from row 5 to row e.g. 500 "7" coloured as grey.
I am able to get this far, but it should work out when there are changes in
rows 5 to 500. I want it work when I drag and drop/enter values/delete values
to run this.

Please, Help me, I am going nuts over this.... Thanks in advance.