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 | 
 

 Excel VBA, Alguém me ajude copia e envia para outra planilha

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
José Mário



Mensagens : 3
Data de inscrição : 22/08/2012

MensagemAssunto: 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.
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: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
José Mário



Mensagens : 3
Data de inscrição : 22/08/2012

MensagemAssunto: 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.
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: 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

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




MensagemAssunto: Re: Excel VBA, Alguém me ajude copia e envia para outra planilha   Hoje à(s) 8:21 pm

Voltar ao Topo Ir em baixo
 
Excel VBA, Alguém me ajude copia e envia para outra planilha
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Alguém pode separar estes códigos para mim?
» Alguém me ajuda a consertar o inimigo?
» [Dúvida] Alguém tem notícia do Wave M.
» meu novo jogo[ajude-me a criar um historia]
» Escolher arquivo e copia-lo para outro lugar

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: