IF color code

J

Jonsson

Hi,

I'm need help to do a code in Worksheet that says if color =red o
black then:

IF B3:D3=red, copy formula from BG4:BL33, paste in E4:J33
IF K3:M3=red, copy formula from BG4:BL33, paste in N4:S33
IF T3:V3=red, copy formula from BG4:BL33, paste in W4:AB33
IF AC3:AE3=red, copy formula from BG4:BL33, paste in AF4:AK33
IF AL3:AN3=red, copy formula from BG4:BL33, paste in AO4:AT33
IF AU3:AW3=red, copy formula from BG4:BL33, paste in AX4:BC33

IF B3:D3=black, copy formula from BU4:BZ33, paste in E4:J33
IF K3:M3=black, copy formula from BU4:BZ33, paste in N4:S33
IF T3:V3=black, copy formula from BU4:BZ33, paste in W4:AB33
IF AC3:AE3=black, copy formula from BU4:BZ33, paste in AF4:AK33
IF AL3:AN3=black, copy formula from BU4:BZ33, paste in AO4:AT33
IF AU3:AW3=black, copy formula from BU4:BZ33, paste in AX4:BC33

Thanks in advance

//Thoma
 
G

Guest

hi,
is the background red/black or the text. i am assuming the
text.
just a start
if Range("B3").Font.colorindex = 3 and _
Range("C3").Font.colorindex = 3 and _
Range("D3").Font.colorIndex = 3 Then
Range("BG4",Range("BG33")).copy
Range("E4").select
selection.paste
else
Range("BU4",Range("BZ33")).copy
Range("E4").select
selection.paste
end if
you will have to set up one if statement for each range
that you want to test for red
 
Top