locked
macro para copiar e colar na primeira linha vazia RRS feed

  • Pergunta

  • Gostaria de saber como fazer uma macro para copiar uma planilha e colar os dados destaplanilha na primeira linha  que estiver VAZIA (na coluba D) de outra planilha.

    a macro ficou assim:

     

    If Cells(5, 8).Value = "Análise de Propostas" Then
    Range("A11:H25").Copy
    Range("Banco de dados").Select
    Range("D2").Select
    x = Selection.End(xlDown).Select
    x = x + 1

    End If

    End Sub

    Mas dá erro de execução '1004'. Como faço??????

    quinta-feira, 17 de junho de 2010 20:16

Respostas

  • Mai, vc alterou a linha set sht2 = Sheets("Plan2"), pelo nome da sua planilha? Se você fez esta alteração não vejo motivo para que o erro ocorra. vc deve substituir o Plan2 que esta entre Aspas pelo nome da sua planilha.

    Teste ai e qqer coisa fale.

    []´s
    Bruno Silva Leite Office Developer
    • Marcado como Resposta Mai_S.A. _ terça-feira, 22 de junho de 2010 15:18
    segunda-feira, 21 de junho de 2010 23:59

Todas as Respostas

  • Mai boa noite, teste com o código a seguir

     

    Sub copia()
    Dim Sht1 As Worksheet, Sht2 As Worksheet
    
    Set Sht1 = Sheets("Plan1") ' Substitua aqui pelo nome da planilha de origem
    Set Sht2 = Sheets("Plan2") ' Substitua aqui pelo nome da planilha de destino
    
    If Sht1.Cells(5, 8).Value = "Análise de Propostas" Then
    
      Sht1.Range("A11:H25").Copy
      
      'Retornando a prox linha vazia
      x = Sht2.Range("D2").End(xlDown).Offset(1, 0).Row
      
      'Colando
      Sht2.Range("D" & x).PasteSpecial xlPasteAll
      
      'cancelando a seleção
      
      Application.CutCopyMode = False
      
    End If
    
    End Sub
    

    Teste ai e qqer coisa fale.

    Att


    Bruno Leite

    quinta-feira, 17 de junho de 2010 23:02
  • Obrigada pela ajuda, mas continua dando erro 1004. Dá erro nessa parte:

     

     x = Sht2.Range("D2").End(xlDown).Offset(1, 0).Row

     

    Aperece em amarelo e dá erro.

     

     

    segunda-feira, 21 de junho de 2010 17:58
  • Mai, vc alterou a linha set sht2 = Sheets("Plan2"), pelo nome da sua planilha? Se você fez esta alteração não vejo motivo para que o erro ocorra. vc deve substituir o Plan2 que esta entre Aspas pelo nome da sua planilha.

    Teste ai e qqer coisa fale.

    []´s
    Bruno Silva Leite Office Developer
    • Marcado como Resposta Mai_S.A. _ terça-feira, 22 de junho de 2010 15:18
    segunda-feira, 21 de junho de 2010 23:59
  • Deu certo!!!

     

    Valew!!!!!

    terça-feira, 22 de junho de 2010 15:18