| | copiar e colar usando uma macro |  |
|
|
| Autor | Mensagem |
|---|
marcovalle01
Mensagens : 10
Data de inscrição : 22/03/2012
| | Assunto: 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. | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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
| |
|
| | |
marcovalle01
Mensagens : 10
Data de inscrição : 22/03/2012
| | Assunto: 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.
| |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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.  Não consegue adaptar o restante?? Att | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: 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
| |
|
| | |
marcovalle01
Mensagens : 10
Data de inscrição : 22/03/2012
| | Assunto: 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. | |
|
| | |
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: copiar e colar usando uma macro Seg Mar 26, 2012 2:09 pm | |
| Bom dia!! Que bom que deu certo!! At+++  | |
|
| | |
marcovalle01
Mensagens : 10
Data de inscrição : 22/03/2012
| |
| | |
Conteúdo patrocinado
| | Assunto: Re: copiar e colar usando uma macro | |
| |
|
| | |
| | copiar e colar usando uma macro | |
|
