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

Remove leading & trailing spaces
Save as CSV to remove all leading and trailing spaces. It is faster than using TRIM().

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
41,025
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
41,025
Office Version
365
Platform
Windows
Glad to help & thanks for the feedback
 

Watch MrExcel Video

Forum statistics

Threads
1,099,684
Messages
5,470,121
Members
406,681
Latest member
sachinmasurkar

This Week's Hot Topics

Top