EXCELer Tudo sobre EXCEL em Português
- This topic has 4 replies, 2 voices, and was last updated 14 years ago by
.
-
Posts
-
-
boa tarde,
tenho uma folha que me gera valores provenientes de outra folha.
da coluna b á coluna as, por vezes aparecem valores nalgumas colunas.
precisava que esta me ocultasse as colunas no intervalo b:as, sempre que não houvesse valores. também que fizesse o inverso se os valores aparecessem.
obrigado
ocultarcolunas.xlsx -
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 longset r = activesheet.usedrange
nlastrow = r.rows.count + r.row - 1
nlastcolumn = r.columns.count + r.column - 1for 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
nextend sub
-
olá,
experimentei e funciona a 50%.
efetivamente esconde as colunas em branco, mas quando eu atribuo valores a estas que foram escondidas a macro não as repõe, tendo que fazer eu manualmente.
obrigado -
resolvi o problema.
acrescentei no código :
columns(“b:ar”).select
selection.entirecolumn.hidden = falseantes de ele executar e ficou perfeito!!
obrigado -
-
- You must be logged in to reply to this topic.