[jorgerod]

adriano,

podes mandar a planilha?

se tiveres problema em postar aqui, podes enviar-me para o meu e-mail… claro que será nda, como sempre!!! 🙂

[jorgerod]

boas, adriano,

talvez assim:

=se(e13=””;1*(h13*f13);h13*f13)

[jorgerod]

talvez em i13:

=se(e13=””;””;h13*f13)

[jorgerod]

obrigado, wagner!!! 🙂

[jorgerod]

já agora, se puderes e quiseres (a galera agradece :)), posta o teu código quanto à 2ª questão!!!!

obrigado.

[jorgerod]

boas, wagner,

vê em: http://www.mrexcel.com/archive/printing/1456.html

pode ser que te ajude para o que pretendes.

para o comando de menu, podes utilizar:

sub disablemenuitems()

with commandbars(“ficheiro”)

.controls(15).enabled = false ‘print button

end with

end sub

outra hipótese:

private sub workbook_beforeprint(cancel as boolean)
cancel = true
end sub

fica bem.

[jorgerod]

pois… fui eu que percebi mal…. 🙁

vê em: http://www.mrexcel.com/forum/showthread.php?t=258787

pode ser que te ajude

[jorgerod]

wagner,

vê em: http://www.rondebruin.nl/unzip.htm

pode ser que te ajude.

[jorgerod]

boas, wagner,

talvez aproveitando a seguinte peça de código:

with activecell.entirerow
.copy
.insert shift:=xldown
end with
application.cutcopymode = false

[jorgerod]

leandro,

já apaguei duas “respostas” tuas que vieram sem qualquer texto. passa-se alguma coisa?

[jorgerod]

talvez:

dim sha as string
dim shb as string

sha= “check list”
shb= “banco de dados”

no código:

sheets(sha).select
sheets(shb).select

penso que será isto que pretendes, será?

diz qq coisa, ok?

fica bem!

[jorgerod]

boas, marcelo,

talvez (embora não testado):

=se(É.nÃo.disp(se(É.erros(procv(a8;materiais_fixos!$b$8:$d$2002;3;0));procv(a8;sub_uf!$a$1:$f$2002;6;0);procv(a8;folha2!$b$1:$d$20;3;0)));””;se(É.erros(procv(a8;materiais_fixos!$b$8:$d$2002;3;0));procv(a8;sub_uf!$a$1:$f$2002;6;0);procv(a8;materiais_fixos!$b$8:$d$2002;3;0)))

experimenta e diz qq coisa, ok?

ah!!! outra hipótese:

[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.

[jorgerod]

wagner,

experimenta adaptar o código que se encontra em:

http://www.exceltip.com/st/print_multiple_selections_on_one_sheet_using_vba_in_microsoft_excel/456.html

[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?

[Autor]

Artigos