Ir ao conteúdo
  • Cadastre-se
deco.3x10

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

Recommended Posts

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

 

Editado por dif
TAG CODE

Compartilhar este post


Link para o post
Compartilhar em outros sites

Compartilhar este post


Link para o post
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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×