[jorgerod]

da maneira como queres e com a função concatenar, julgo que não é possível, nem tãopouco com alguma udf. a célula, para poder fazer o que pretendes, tem que conter texto, mas mesmo texto, nada vindo de concatenações.

[jorgerod]

talvez através de código, por exemplo:

sub mbold()
dim r1 as range, r2 as range, r3 as range
dim l1 as integer, l2 as integer
on error resume next
set r1 = application.inputbox("clicar na 1ª célula", type:=8)
set r2 = application.inputbox("clicar na 2ª célula", type:=8)
set r3 = application.inputbox("clicar na célula de destino", type:=8)
on error goto 0
if r1 is nothing or r2 is nothing or r3 is nothing then exit sub
r3.value = r1.value & " " & r2.value
l1 = len(r1.value)
l2 = len(r2.value)
r3.characters(start:=l1 + 1, length:=l2).font.bold = true
end sub

[jorgerod]

qual a tua versão do excel? se for o 2010, vê: http://superuser.com/questions/236195/excel-2010-save-as-web-page

de qualquer modo, podes sempre ver a páginado david mcritchie, acerca de conversão em formato html:
http://dmcritchie.mvps.org/excel/xl2html.htm

fica bem.

[jorgerod]

ainda bem que, afinal, te serviu!! 🙂

fica bem.

[jorgerod]

boas rukapj,

experimenta criar o seguinte módulo, atribuindo-o a um botão de comando:

se der resultado, créditos para cliff edwards, que desenvolveu um código parecido.

depois, diz qq coisa, ok?

fica bem.

'---------------------------------------------------------------------------------------
' procedure : esconde_mostra
' datetime : 28-10-2012 16:40
' author : cliff edwards (?)
' purpose : esconde coluna vazia e mostra coluna preenchida
'---------------------------------------------------------------------------------------
'
sub esconde_mostra()

dim r as range
dim nlastrow as long
dim nlastcolumn as integer
dim i as integer
dim hideit as boolean
dim j as long

set r = activesheet.usedrange
nlastrow = r.rows.count + r.row - 1
nlastcolumn = r.columns.count + r.column - 1

for i = 1 to nlastcolumn
hideit = true
for j = 2 to nlastrow
if cells(j, i).value "" then
hideit = false
end if
next
if hideit = true then
columns(i).entirecolumn.hidden = true
end if
next

end sub

[jorgerod]

pedro,
anexa uma folha (planilha) com informação pertinente, para podermos avaliar melhor, ok?

[jorgerod]

vê em: http://www.techrepublic.com/blog/msoffice/populate-a-userform-combo-box-in-excel-with-a-dynamic-list/4824

pode ser que te ajude.

fica bem.

[jorgerod]

mcjota,

experimenta, adaptando:

Índice($c$7:$c$54;corresp(1;($b$7:$b$54=”vermelho”)*($a$7:$a$54=33);0))

em que a coluna c será onde tens as quantidades; a coluna b onde tens o nome das cores e a coluna a onde tens os números correspondentes.

em vez de utilizares “vermelho” e 33, podes utilizar, por exemplo d1, tendo, nessa célula escrito “vermelho” e d2, tendo na célula digitado o 33…

atenção: isto é um array. como tal, em modo de edição, tens que utilizar, para finalizar, as teclas ctrl + shift + enter (cse) e não somente enter.

fica bem e diz qq coisa, ok?

[jorgerod]

mcjota,

vê, em: http://www.excelforum.com/excel-programming-vba-macros/656515-display-comments-when-mouse-pass-over-a-button.html

pode ser que te ajude.

[jorgerod]

a fórmula para se conseguir o resultado esperado, contém as funções Índice(), corresp() e maior().

o resultado, é o que se mostra no seguinte quadro:

a fórmula, para dar o nome dos distritos, do valor maior para o menor, é:

=Índice($c$9:$f$9;corresp(maior(c10:f10;1);c10:f10;0))&”-“&Índice($c$9:$f$9;corresp(maior(c10:f10;2);c10:f10;0))&”-“&Índice($c$9:$f$9;corresp(maior(c10:f10;3);c10:f10;0))

espero que esteja claro.
3-maiores.jpg

[jorgerod]

mcjota,

se quiseres, manda-me a tua planilha via e-mail, para eu ver o que poderá ser possível fazer: jorge.rodrigues@exceler.org.

fica bem.

[jorgerod]

filipe,

verifica a seguinte alteração ao código:

‘—————————————————————————————
‘ procedure : rectângulo1_click
‘ datetime : 14-10-2012 18:09
‘ author : jorge rod
‘ purpose : filtra baseado nas células da coluna a e da coluna f (range a5:a26 e range f5:f26) estarem vazias
‘—————————————————————————————
‘
sub rectângulo1_click()

beginrow = 5
endrow = 26
chkcol = 1
chkcol1 = 6 ‘ adicionado
application.screenupdating = false

for rowcnt = beginrow to endrow
if cells(rowcnt, chkcol).value = “” and cells(rowcnt, chkcol1).value = “” then ‘ modificado
cells(rowcnt, chkcol).entirerow.hidden = true
end if
next rowcnt
application.screenupdating = true

end sub

diz se surtiu efeito, ok?

fica bem.

[jorgerod]

filipe,

experimenta o seguinte código:

‘—————————————————————————————
‘ procedure : rectângulo1_click
‘ datetime : 14-10-2012 18:09
‘ author : jorge rod
‘ purpose : filtra baseado nas células da coluna a (range a5:a26) estarem vazias
‘—————————————————————————————
‘
sub rectângulo1_click()

beginrow = 5
endrow = 26
chkcol = 1

application.screenupdating = false

for rowcnt = beginrow to endrow
if cells(rowcnt, chkcol).value = “” then
cells(rowcnt, chkcol).entirerow.hidden = true

end if
next rowcnt
application.screenupdating = true

end sub

‘—————————————————————————————
‘ procedure : rectângulo2_click
‘ datetime : 14-10-2012 18:11
‘ author : jorgerod
‘ purpose : desfiltra células da coluna a (range a5:a26)
‘—————————————————————————————
‘
sub rectângulo2_click()
beginrow = 5
endrow = 26
chkcol = 1

application.screenupdating = false

for rowcnt = beginrow to endrow
cells(rowcnt, chkcol).entirerow.hidden = false

next rowcnt
application.screenupdating = true

end sub

segue o exemplo em anexo:

fica bem e diz qq coisa, ok?
CpiadeStocks.zip

[jorgerod]

tania,

por uma questão de facilidade, anexa a planilha como mostraste no exemplo, ok?

fico à espera.

[jorgerod]

mcjota,

vê em: http://www.mrexcel.com/forum/excel-questions/355626-visual-basic-applications-code-filter-listbox-you-type-textbox.html

tenta adaptar. depois, diz qq coisa, ok?

fica bem.

[Autor]

Artigos