Ir ao conteúdo
  • Cadastre-se

Como criar comando na macro para copiar e colar sem sobrepor o já existente


Posts recomendados

boa noite amigos

 

gostaria de ajuda quanto a criação de uma macro para colar informações em um banco de dados sem sobrepor o já existente, estou tentando porém não consegui está sobrepondo as informações já existentes

 

segue abaixo o que preciso para completar por favor me ajudem!!!

 


 

Sub Copiar()
'
' Copiar Macro
'
'
    Range("H6:H12").Select
    Selection.Copy
    Sheets("Banco").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=True
    Sheets("Cadastro").Select
    Range("H6,H8:H12").Select
    Range("H8").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("H15").Select
    
End Sub

 

Link para o comentário
Compartilhar em outros sites

Olá.

Veja se ajuda.

O código abaixo replica os valores da planilha "Cadastro", intervalo "H6:H12", na planilha "Banco", coluna "A", primeira célula abaixo da última preenchida e limpa as células "H6,H8:H12" da planilha "Cadastro".

 

Sub CopiarV2()
 Sheets("Banco").Cells(Rows.Count, 1).End(3)(2).Resize(7).Value = _
  Sheets("Cadastro").Range("H6:H12").Value
 Sheets("Cadastro").Range("H6,H8:H12").Value = ""
End Sub

 

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...