Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

maomelov

Inserir linhas entre workbooks excel

Mensagens Recomendadas

maomelov

Bom Dia,

Alguém me pode dizer como posso fazer para inserir linhas de um workbook excel para outro usando o vba?

Tenho várias linhas numa sheet excel e quero inseri-las em outra sheet excel mas de forma a que fiquem na mesma linha(posicao).

Ex:

Sheet1

linha 15 ....

linha 50 ...

linha 78 ...

...

Pretendo copiar as linhas das posicoes 15,50 e 78, da Sheet1, para a Sheet2 de forma a que fiquem na mesma posicao.

A ideia é inserir as linhas na posicao correcta e manter as restantes , na sheet2.

Alguém me pode dar uma ideia de como fazê-lo??

Obrigado a todos

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
acao

boas

exemplo copiar a linha 15 coluna A a D da folha1 para a folha2

no modulo coloque o seguinte codigo:

declare a variavel como publica no modulo

Public vValor as Range

e depois coloque a seguinte sub:

Public Sub Copiar()
ActiveWorkbook.Sheets("Folha1").Activate
Set vValor = Range("A15:D15")
ActiveWorkbook.Sheets("Folha2").Activate
Range("A15:D15").Value = vValor.Value
End Sub

chame a sub aonde desejar:

Call Copiar

cumps

acao

Editado por acao

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.