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

Test for Multiple Conditions in IF?
Use AND(test, test, test, test) or OR(test, test, test, ...) as the logical_test argument of IF.

Fluff

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

Watch MrExcel Video

Forum statistics

Threads
1,102,695
Messages
5,488,328
Members
407,634
Latest member
ps01

This Week's Hot Topics

  • Timer in VBA - Stop, Start, Pause and Reset
    [CODE=vba][/CODE] Option Explicit Dim CmdStop As Boolean Dim Paused As Boolean Dim Start Dim TimerValue As Date Dim pausedTime As Date Sub...
  • how to updates multiple rows in muliselect listbox
    Hello everyone. I need help with below code. code is only chaning 1st row in mulitiselect list box. i know issue with code...
  • Delete Row from Table
    I am trying to delete a row from a table using VBA using a named range to find what I need to delete. My Range is finding the right cell. In the...
  • Assigning to a variable
    I have a for each block where I want to assign the value in column 5 of the found row to the variable Serv. [CODE=vba] For Each ws In...
  • Way to verify information
    Hi All, I don't know what to call this formula, and therefore can't search. I have a spreadsheet with information I want to reference...
  • Active Cell Address – Inactive Sheet
    How to use VBA to get the cell address of the active cell in an inactive worksheet and then place that cell address in a location on the current...
Top