-
Posts
1 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por Tony_Tomba
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
Macro Copiar e Colar com CheckBox
em Microsoft Office e similares
Postado
Olá a todos,
Estou criando um formulário cadastral de clientes, para que o mesmo possa preencher e me enviar.
Em certo ponto criei um CheckBox, que ao ser marcado Copia o Endereço de correspondência e Cola em outro campo para ser usado como Endereço de Cobrança.
Caso seja desmarcado não é necessário fazer nada.
Porém quanto é marcada novamente, o Excel exibe "Já existem dados aqui. Deseja substituí-los?", caso clique Sim, a macro roda normalmente, mas dá erro no caso da pessoa clicar Não.
Abaixo segue a macro
Private Sub CheckBox1_Click() ' Copia as informações Endereço de Correspondencia If CheckBox1.Value = True Then Range("A19:I19").Select ' primeira linha de endereço Selection.Copy Range("A24:E24").Select ActiveSheet.Paste Range("A21:I21").Select ' segunda linha de endereço Application.CutCopyMode = False Selection.Copy Range("A26:C26").Select ActiveSheet.Paste Application.CutCopyMode = False Else CheckBox1.Value = False End If End Sub
Como posso corrigir? Alguma ajuda.
Agradeço