José Mário
Mensagens : 3
Data de inscrição : 22/08/2012
 | | Assunto: Excel VBA, Alguém me ajude copia e envia para outra planilha Qua Ago 22, 2012 7:59 pm | |
| Quero assim que selecionar quaquer linha na plan1 ele enviar para a pla2 só que eu quero que cole nas celulas diferente da plan 1.
eu tentei anexar um exemplo da planilha, mas eu sou novo aqui e não sei como faço para anexar.
Obrigado. | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Excel VBA, Alguém me ajude copia e envia para outra planilha Dom Ago 26, 2012 6:54 pm | |
| Boa tarde!! Tente.. - Código:
-
Sub CopySelectedRows()
Dim rCopy As Range
Dim lAreas As Long
On Error Resume Next
Set rCopy = Application.InputBox("Select Rows to copy. " _
& "Use Ctrl for non-contiguous rows", "COPY ROWS", Selection.Address, , , , , 8)
On Error Goto 0
If rCopy Is Nothing Then Exit Sub 'Hit Cancel
If rCopy.Columns.Count <> Columns.Count Then
MsgBox "Please select entire row(s)"
Run "CopySelectedRows"
Else
For lAreas = 1 To rCopy.Areas.Count
rCopy.Areas(lAreas).Copy Sheet2.Cells(Rows.Count, 1).End(xlUp)(2, 1)
Next lAreas
End If
End Sub Attt | |
|
José Mário
Mensagens : 3
Data de inscrição : 22/08/2012
| | Assunto: Excel VBA, Alguém me ajude copia e envia para outra planilha Seg Ago 27, 2012 11:07 pm | |
| Obrigado pela atenção, Gostaria que me falasse como funciona pois tentei copia e mandar para a planilha2 e não consegui, tentei de várias maneiras, talvez eu esteja precisando de uma orientação.
Obrigado. | |
|
alexandrevba
Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES
| | Assunto: Re: Excel VBA, Alguém me ajude copia e envia para outra planilha Ter Ago 28, 2012 2:57 am | |
| Boa noite!! Se o nome for Plan2. então altere a linha de.... - Código:
-
Sheet2 ....para... - Código:
-
Plan2 . Att | |
|
Conteúdo patrocinado
| | Assunto: Re: Excel VBA, Alguém me ajude copia e envia para outra planilha | |
| |
|
