[Anónimo]

alguém pode me ajudar mais uma vez, fzd favor.

estou tentando copiar a linha inteira onde estou selecionando apenas uma célula e copiá-la logo abaixo, como posso fazer?
tentei algumas formas, parecido com essa abaixo, porem não funcionou:

sub inserir_linha()

activecell.select
selection.entirerow.copy

selection.insert shift:=xldown
application.cutcopymode = false

end sub

aguardo uma ajuda.
grato!

[jorgerod]

boas, wagner,

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

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

[Anónimo]

obrigado mais uma vez.

funciono.

[Autor]

Artigos