[Anónimo]

boas pessoal,

antes de mais sou novo aqui e quero agradecer por me terem aceite. preciso da vossa ajuda para um pequeno problema numa folha de excel. (em anexo). estou a fazer uma espécie de um “centro de compras” e o meu primeiro problema é logo nas formulas para copiar os dados para cada artigo. por exempo na folha “ferro” as entradas ficam espaçadas.. alguem me sabe dizer o porque?

Stocks.xlsx

[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

[Anónimo]

jorge,

obrigado desde já. era mesmo disto que eu queria. so há um pequeno problema… se eu alternar entre: uma entrada… uma saida e uma nova entrada.. quando faço filtrar a saída desaparece. podes me ajudar?

obrigado desde já pela atenção

filipe menezes

[attachment]cópia de stocks.xlsm[/attachment]

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

[Autor]

Artigos