Input box to count rows and highlight vba code

[Goalexcel]

Hello Experts, kindly help to use a vba code for the below.

Use inputbox to select from column A first 14 rows and color, next amount of rows follow the image above. Do the same on other sheets.
The result below

 

[My Aswer Is This]

Hello Experts, kindly help to use a vba code for the below.

View attachment 50857

Use inputbox to select from column A first 14 rows and color, next amount of rows follow the image above. Do the same on other sheets.
The result below
View attachment 50858

The image does not help me.
In your example first 14 cells in column A are Yellow I can see that in your image
But second 14 cells are green. But I do not see light green in image. And we can not have a script look at a image to know what to do.
Would you please add more specifics. Thanks`

 

[Goalexcel]

The image does not help me.
In your example first 14 cells in column A are Yellow I can see that in your image
But second 14 cells are green. But I do not see light green in image. And we can not have a script look at a image to know what to do.
Would you please add more specifics. Thanks`

With inputbox help to select 14 rows and format color yellow (follow the first image), after continue with color 14 rows blue, to apply in column A
start row 1 until row 145, with first image use the amount of number and color. Thank you.

 

[Goalexcel]

Hello Experts, kindly help to use a vba code for the below.

View attachment 50857

Use inputbox to select from column A first 14 rows and color, next amount of rows follow the image above. Column A start row 1 until rows 145

 

[My Aswer Is This]

Sure we can write the script by looking at a image. So we have to write the script looking at a image but that means we have to write each line of code one by one.
What you should do is put the numbers and cell colors in column B stating at row 1
Now a script can use the value in range("B1") and the color in Range("B1") to to make your script.
And so on into Range("B2") B3 B4 etc. Doing this we would only have to write maybe 5 lines of code. Doing it your way would require may 600 lines of code.

 

[Goalexcel]

Sure we can write the script by looking at a image. So we have to write the script looking at a image but that means we have to write each line of code one by one.
What you should do is put the numbers and cell colors in column B stating at row 1
Now a script can use the value in range("B1") and the color in Range("B1") to to make your script.
And so on into Range("B2") B3 B4 etc. Doing this we would only have to write maybe 5 lines of code. Doing it your way would require may 600 lines of code.

My apologies, you are the Expert!!!. Thank you for your attention.

 

[My Aswer Is This]

If you put the data in your image into column B
The cell colors and the numbers like 5
You can use this script.
Be sure and put the numbers and color the cells the way you want
Do not put your image in column B

Sub Color_My_Cells()
'Modified 11/10/2021  10:30:01 PM  EST
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Dim Lastrowa As Long
Lastrowa = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To Lastrowa
Cells(Lastrow, 1).Resize(Cells(i, 2).Value) = Cells(i, 2).Value
Cells(Lastrow, 1).Resize(Cells(i, 2)).Interior.Color = Cells(i, 2).Interior.Color
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row + 1
Next
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

My apologies, you are the Expert!!!. Thank you for your attention.

Not sure what is happening here. Do you now have a answer that works?

 

[Goalexcel]

Not sure what is happening here. Do you now have a answer that works?

When run macro, the number and color go to the last of my original data..

We need Color and count 14 rows from the first row A1. We almost near!!!!

 

[My Aswer Is This]

When run macro, the number and color go to the last of my original data..
View attachment 50943

Never knew you had data already in column A that you did not want colored.
I thought that was just a example

I thought we started off with column A being empty.
So explain again what your objective is?