Colar dados em planilha oculta.

2024 - VBA & Macros

Post Recente por srobles 7 anos atrás

2 Posts

2 Usuários

0 Reactions

943 Visualizações

RSS

carlosrgs

(@carlosrgs)

Posts: 631

Prominent Member

Topic starter

Boa tarde.

Sempre q vou trabalhar com Forms eu insiro dados informados na form com a rotina (no lugar de A,B,C eu coloco as TextBox da Form):

Dim LastRow As Object
Set LastRow = Plan2.Range("A100").End(xlUp)
LastRow.Offset(1, 0).Value = "A"
LastRow.Offset(1, 1).Value = "B"
LastRow.Offset(1, 2).Value = "C"
LastRow.Offset(1, 3).Value = "D"
LastRow.Offset(1, 4).Value = "E"

Me deparei com uma situação e queria fazer algo parecido, exemplo:

    Range("A1:E1").Select
    Selection.Copy
    Sheets("Plan2").Visible = True
    Sheets("Plan2").Select
    
    Cells(Rows.Count, "A").End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    
    ActiveSheet.Paste
    Sheets("Plan1").Select
    Application.CutCopyMode = False
    Sheets("Plan2").Visible = False

É possível alterar essa segunda macro para colar os dados na Plan2 sem a necessidade de reexibir e selecionar a ultima linha disponível?
Parecido com oque ocorre na primeira macro.

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

Postado : 18/04/2018 1:14 pm

srobles

(@srobles)

Posts: 231

Estimable Member

Carlos,

Experimente o que segue abaixo :

Sub Macro02()
    Dim novaLinha As Long
    Range("A1:E1").Select
    Selection.Copy
    
    novaLinha = ThisWorkbook.Sheets("Plan2").Cells(Rows.Count, 1).End(xlUp).Row + 1
   
    With ThisWorkbook.Sheets("Plan2").Cells(novaLinha, 1)
         .PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, True
    End With
    
    Sheets("Plan1").Select
    Application.CutCopyMode = False

Abs

Espero ter ajudado.

Abs.

Saulo Robles

Postado : 18/04/2018 1:27 pm