Hi All.....
The below mentioned code copies 3 different ranges in 3 different places in the same worksheet.
Without changing the structure or the method of this code (Copy/Paste) I need the following
Every time a range is copied, can all the cells in the pasted range be given a color depending on the value of the cell "F15"
Say If "F15" Value < 1000....... Color of the copied range "Green"
If "F15" Value > 1000 and <10000..... Color of the copied range "Blue"
If "F15" Value > 10000....... Color of the copied range "Red"
And I have a List box which displays this range..... the same color of the range should show up in the listbox.
Thank you for your attention
Code
Sheet1.Range("B4:B14").Copy
Sheet1.Range("B" & Sheet1.Columns("B").Find("*", , xlValues, , xlRows, xlPrevious).Row + 1).PasteSpecial xlValues
Selection.Value = Selection.Value
Sheet1.Range("E4:E14").Copy
Sheet1.Range("D" & Sheet1.Columns("D").Find("*", , xlValues, , xlRows, xlPrevious).Row + 1).PasteSpecial xlValues
Selection.Value = Selection.Value
Sheet1.Range("F4:F14").Copy
Sheet1.Range("E" & Sheet1.Columns("E").Find("*", , xlValues, , xlRows, xlPrevious).Row + 1).PasteSpecial xlValues
Selection.Value = Selection.Value
Application.CutCopyMode = False
Display More