IF color code

  • Thread starter Thread starter Jonsson
  • Start date Start date
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
 
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top