Two Variables' For Next Loop to Color 4 Contiguous Cells

Hmerman

Board Regular
Joined
Oct 2, 2016
Messages
102
Hello,
Hope you are well.

I am trying to colour four contiguous cells to a certain colour using two variables in a for Next Loop using the Offset statement. The flaw in my code is it only colours three contiguously, but not the fourth.

My code:
<code>
For x = 0 To 1
For y = 0 To 1
ActiveCell.Offset(x, y).Select
With Selection.Interior
.Pattern = xlSolid​
.PatternColorIndex = xlAutomatic​
.Color = 6724095​
.TintAndShade = 0​
.PatternTintAndShade = 0
End With
Next y​
Next x
</code>

Can someone please assist or give advice to colour the 4 contiguously?

Regards,
Herman
 

Some videos you may like

Excel Facts

What does custom number format of ;;; mean?
Three semi-colons will hide the value in the cell. Although most people use white font instead.

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
44,470
Office Version
365
Platform
Windows
You don't need to use a loop, you can simply do
Code:
With ActiveCell.Resize(2, 2).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 6724095
.TintAndShade = 0
.PatternTintAndShade = 0
End With
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
44,470
Office Version
365
Platform
Windows
Glad to help & thanks for the feedback
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,105,856
Messages
5,507,735
Members
408,647
Latest member
Nicho la zido

This Week's Hot Topics

Top