Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 copiar e colar usando uma macro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
marcovalle01



Mensagens : 10
Data de inscrição : 22/03/2012

MensagemAssunto: copiar e colar usando uma macro   Qui Mar 22, 2012 6:16 am

Boa noite, preciso de ajuda para fazer uma macro que quando:
a3 contiver dados, cole em b3:e3 o conteudo de b2:e2,
a4 contiver dados, cole em b4:e4 o conteudo de b2:e2,
e assim sucesivamente.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: copiar e colar usando uma macro   Qui Mar 22, 2012 5:42 pm

Bom dia!!

Seja bem vindo!!

Baixe o anexo, e faça os teste, veja se é isso, dê retorno!!

http://www.sendspace.com/file/bh5hr2

Código usado
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
   
If Target.Column <> 1 Then Exit Sub

If Target.Value <> "" Then
    Target.Offset(, 1).Resize(, 4).Value = Range("B2:E2").Value
Else
    Target.Offset(, 1).Resize(, 4).ClearContents
End If

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
marcovalle01



Mensagens : 10
Data de inscrição : 22/03/2012

MensagemAssunto: Re: copiar e colar usando uma macro   Qui Mar 22, 2012 10:17 pm


Boa tarde Alexandre, muito obrigado pela sua ajuda, o código que você me mandou resolveu em parte o meu problema, pois quando entro com uma célula de cada vez funciona, mas se eu colar duas ou mais células de uma vez, que é o que acontece, da "erro em tempo de execução 13" tipos incopativeis. e pede para depurar, quando abre o código, a linha " If Target.Value <> "" Then " fica marcada em amarelo. Mais uma vez muito obrigado pela colaboração.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: copiar e colar usando uma macro   Qui Mar 22, 2012 11:06 pm

Boa tarde!!
Na sua postagem, você não especificou isso!!!!

Citação :
Boa noite, preciso de ajuda para fazer uma macro que quando:
a3 contiver dados, cole em b3:e3 o conteudo de b2:e2,
a4 contiver dados, cole em b4:e4 o conteudo de b2:e2,
e assim sucesivamente.
confused

Não consegue adaptar o restante??



Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: copiar e colar usando uma macro   Sex Mar 23, 2012 12:40 am

Boa noite!!

Tente com esse.
Código:
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rngLoopRange As Range

    On Error GoTo ErrorHandler

    Application.EnableEvents = False

    If Intersect(Target, Range("A:A")) Is Nothing Then GoTo CleanExit

    For Each rngLoopRange In Intersect(Target, Range("A:A"))

        If rngLoopRange.Value <> "" Then
            rngLoopRange.Offset(, 1).Resize(, 4).Value = Range("B2:E2").Value
        Else
            rngLoopRange.Offset(, 1).Resize(, 4).ClearContents
        End If

    Next rngLoopRange

CleanExit:
    Application.EnableEvents = True
    Exit Sub

ErrorHandler:
    MsgBox Err & " - " & Err.Description
    GoTo CleanExit

End Sub
Voltar ao Topo Ir em baixo
Ver perfil do usuário
marcovalle01



Mensagens : 10
Data de inscrição : 22/03/2012

MensagemAssunto: Resolvido copiar e colar usando uma macro   Seg Mar 26, 2012 3:54 am

Boa noite, muito obrigado, era exatamente o que eu estava precisando, valeu mesmo.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: copiar e colar usando uma macro   Seg Mar 26, 2012 2:09 pm

Bom dia!!

Que bom que deu certo!!


At+++ Laughing
Voltar ao Topo Ir em baixo
Ver perfil do usuário
marcovalle01



Mensagens : 10
Data de inscrição : 22/03/2012

MensagemAssunto: Boa noite, como faço para que código copie as formulas e não só os valores?   Sab Abr 14, 2012 3:22 am

alexandrevba escreveu:
Bom dia!!

Que bom que deu certo!!


At+++ Laughing
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: copiar e colar usando uma macro   Hoje à(s) 10:15 pm

Voltar ao Topo Ir em baixo
 
copiar e colar usando uma macro
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Cópia de links ao copiar e colar
» Creditos ao copiar e colar
» Gif com opção copiar/colar
» [tutorial] Usando time lines
» colar de protecçao polisport e cinta!

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: