[Anonymous]

por favor, preciso de um código que atenda o seguinte:

b2 contÉm 1
c2 contem 31
d2 contem 15
e2 contem 17
f2 contem 45

esses valores mudam diariamente. preciso destacar esses valores no intervalo de b4 a g43 que contem valores de 1 a 80.

atenciosamente

antimo

[jorgerod]

boas, antimo,

tenta adaptar:

private sub worksheet_change(byval target as range)

if target.cells.count > 1 then exit sub
if intersect(target, range(“b4:g43”)) is nothing then exit sub
with target
select case lcase(.value)
case is = “1”: .interior.colorindex = 5
case is = “31”: .interior.colorindex = 6
case is = “15”: .interior.colorindex = 7
case is = “17”: .interior.colorindex = 8
case is = “45”: .interior.colorindex = 9
case else
.interior.colorindex = xlnone
end select
end with

end sub

diz qq coisa, ok?

[Anonymous]

dá erro de compilÇÃo era esperado: expressÃo…

onde tem &quot… as fontes ficam em vermelho.
anexei a planilha com o modelo.
Modelo.xls

[jorgerod]

olá antimo,

não tinha percebido bem o que pretendias :p

experimenta o seguinte código, adaptado (mérito do código original para o mvp excel – ron de bruin):

sub color_cells_in_range()

dim firstaddress as string
dim mysearch as variant
dim rng as range
dim rng1 as long
dim rng2 as long
dim rng3 as long
dim rng4 as long
dim rng5 as long
dim rng6 as long
dim i as long

rng1 = range(“b2”).value
rng2 = range(“c2”).value
rng3 = range(“d2”).value
rng4 = range(“e2”).value
rng5 = range(“f2”).value
rng6 = range(“g2”).value

mysearch = array(rng1, rng2, rng3, rng4, rng5, rng6)

with sheets(“plan1”).range(“b4:g43”)

.interior.colorindex = xlcolorindexnone

for i = lbound(mysearch) to ubound(mysearch)

set rng = .find(what:=mysearch(i), _
after:=.cells(.cells.count), _
lookin:=xlvalues, _
lookat:=xlwhole, _
searchorder:=xlbyrows, _
searchdirection:=xlnext, _
matchcase:=false)

if not rng is nothing then
firstaddress = rng.address
do
rng.interior.colorindex = 3
set rng = .findnext(rng)
loop while not rng is nothing and rng.address firstaddress
end if
next i
end with
end sub

experimentei na tua planilha e deu certo – as células ficam pintadas de vermelho.

diz qq coisa, ok?

[Anonymous]

caríssimo!

copiei e colei o código, mas ainda não deu certo.

porque será?

segue a plan com o código para você ver.

att
Modelo_2011-07-16.xls

[jorgerod]

antimo,

vê a planilha que te envio. deves clicar no botão de comando depois de efectuares as alterações no range b2:g2 para veres as células, que contêm os números na tabela, coloridas.

CpiadeModelo_2011-07-16.xls

Attachments:

You must be logged in to view attached files.

[Author]

Posts