Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Colar dados em plan...
 
Notifications
Clear all

Colar dados em planilha oculta.

 
2024 - VBA & Macros
Post Recente por srobles 7 anos atrás
2 Posts
2 Usuários
0 Reactions
931 Visualizações
RSS
 carlosrgs
(@carlosrgs)
Posts: 0
New 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.

 
Postado : 18/04/2018 1:14 pm
 srobles
(@srobles)
Posts: 0
New 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

 
Postado : 18/04/2018 1:27 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico