none
Macro copia e cola RRS feed

  • Pergunta

  • Bom dia !

    Criei uma macro que executa diariamente arquivos txt, Tenho uma planilha onde vou copiando e colando manualmente dia a dia para tem um relatório mensal. 

    Poderiam me ajudar com uma duvida.

    utilizei o código :

    Sub copiar()

    Range(“A:Q”).Select
    Selection.Copy
    Sheets(“Plan2”).Select
    Range(“A1”).Select
    Do
    If ActiveCell “” Then
    ActiveCell.Offset(1, 0).Select
    End If
    Loop Until ActiveCell = “”
    ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False

    End Sub

    Porem esta macro esta executando somente uma vez ela não encontra a ultima linha para ser preenchida do dia seguinte.

    Como faço para ele buscar a ultima linha para ser preenchida ?

    E no caso a minha esta copiando para uma planilha dentro do mesmo arquivo quero que ela va buscar um arquivo fora em outra pasta como faço.

    Obrigada

    quinta-feira, 21 de setembro de 2017 13:11

Todas as Respostas

  • Sub copiar()
    
    linha = 1
    While ThisWorkbook.Sheets("Plan2").Cells(linha, 1) <> ""
    linha = linha + 1
    Wend
    
    Range("A:Q").Select
    Selection.Copy
    Sheets("Plan2").Select
    Range("A" & linha).Select
    Do
    If ActiveCell = "" Then
    ActiveCell.Offset(1, 0).Select
    End If
    Loop Until ActiveCell = ""
    ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
    
    End Sub
    
    
    
    


    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 21 de setembro de 2017 13:25
    quinta-feira, 21 de setembro de 2017 13:25
  • Sub copiar()
    
    linha = 1
    While ThisWorkbook.Sheets("Plan2").Cells(linha, 1) <> ""
    linha = linha + 1
    Wend
    
    Range("A:Q").Select
    Selection.Copy
    Sheets("Plan2").Select
    Range("A" & linha).Select
    
    ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
    
    End Sub


    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quinta-feira, 21 de setembro de 2017 15:22
    quinta-feira, 21 de setembro de 2017 15:22