[Anónimo]

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

[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

[Anónimo]

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

[Anónimo]

resolvi o problema.
acrescentei no código :
columns(“b:ar”).select
selection.entirecolumn.hidden = false

antes de ele executar e ficou perfeito!!
obrigado

[jorgerod]

ainda bem que, afinal, te serviu!! 🙂

fica bem.

[Autor]

Artigos