Repeat macro down a column till there's no input data?

[qprfan99]

The title probably isn't very well worded

I have a worksheet with a macro which formats a cell with the RGB values from the previous 3 cells.

So A1 will have the R value (0 - 255), B1 will have the G value (also 0 - 255) & C1 will have the B value (0 - 255)
I have a macro in D1 which will look up the 3 cells to the left &, if they contain valid numbers, will format that cell with the correct RGB colour.

This just works for 1 cell at a time.
I'd like it to repeat automatically until there is no more valid data in columns A, B or C.

Perhaps I should mention that the workshhet I am working on has about 135,000 rows so I need the macro to run 135,000 times (oe else I'm going to have to press CTRL Z 135,000 times which doesn't bear thinking about)

This is the macro

Sub Color()
Dim R As Integer, G As Integer, B As Integer
R = ActiveCell.Offset(0, -3).Value
G = ActiveCell.Offset(0, -2).Value
B = ActiveCell.Offset(0, -1).Value
ActiveCell.Interior.Color = RGB(R, G, B)
End Sub

I probably don't have to tell you that I'm very much a beginner at this.

Kind regards
Larry

 

[qprfan99]

No. Neither worked. The code appeared with the line "ActiveCell.Interior.Color = RGB(R, G, B)" highlighted in yellow.

 

[Dryver14]

did you move the code into the new workbook that you are trying to run it in?

 

[qprfan99]

Hi

I did.

Again, the macro worked for about 65,000 rows. But when I tried to copy these back to the original workbook it wouldn't let me because of the limit on formats.

I should mention that every time I ran the macro, Excel locked up for a considerable time Sometimes forcing me to exit the program through Task Master.

But thanks again for trying
Larry

 

[Dryver14]

the limit on amounts is for the workbook so you were never going to be able to transfer them into the same workbook as that workbook would have to do the formats in itself.

I am not surprised it locked up a few times it is being asked to do a lot of work very quickly loads of times.