Notifications
Clear all

Duvida no codigo abaixo: Como inserir?

3 Posts
2 Usuários
0 Reactions
1,025 Visualizações
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

Olá boa tarde pessoal tenho esse código e gostaria de uma ajuda ele copia um certo intervalo de uma planilha e cola em outra mas ao invés de colar gostaria que que ele inserisse o conteúdo copiado acima da linha 2 tem como fazer isso nesse código? E como ficaria se alguém puder me ajudar agradeço!

Sub GERAR_BD_3()
Dim Ult_lin As Long
Workbooks.Open ("C:SISTEMA PEDIDO V1.0TERMINAL3Conexão.xlsx")
Ult_lin = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:O" & Ult_lin).Copy
Workbooks.Open ("C:SISTEMA PEDIDO V1.0TERMINAL3BD_3.xlsx")
Application.Goto (ActiveWorkbook.Sheets("Clientes").Range("A2"))

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("Conexão.xlsx").Close SaveChanges:=False
Workbooks("BD_3.xlsx").Close SaveChanges:=True

End Sub

 
Postado : 02/07/2014 11:32 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite wenpra

Para manter a boa organização do fórum, movi teu tópico para o fórum VBA & Macros, pois como o nome já diz, você havia postado num local exclusivo para postagem de Dicas e Macetes e não pode ser usado para postar dúvidas.

Por enquanto vou deixar o tópico sendo mostrado nos 2 locais.

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/07/2014 4:13 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

inserisse o conteúdo copiado acima da linha 2

Acima da linha 2 é a linha 1, eu não entendi.

Você pretende cola por cima a partir da linha 2?
Essa linha já faz isso!

Application.Goto...A2

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/07/2014 6:43 pm