Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro que identific...
 
Notifications
Clear all

Macro que identifica primeira linha vazia de uma tabela

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
682 Visualizações
RSS
 rogeriodfs
(@rogeriodfs)
Posts: 3
Active Member
Topic starter
 

Boa noite pessoal,

Estou montando uma planilha que grava o resultado de um teste. Só que preciso que a macro, grave o resultado na última linha vazia.
Do jeito que eu coloquei a macro, ela só vai gravar na primeira linha da seleção.

Envio o arquivo anexo para visualizarem melhor. Macro está na planilha RESULTS, no botão, gravar resultado.

Como posso fazer uma macro que identifica sempre a última linha antes de gravar?

Obrigado.

ENGLISH.xlsm
 
Postado : 16/12/2013 7:02 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Tente

Sub AleVBA_9946()
Dim r1 As Range
Set r1 = Range("G1:J1")
r1.Copy
Sheets("RESULTS").Range("G" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Att

 
Postado : 16/12/2013 7:41 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Veja o anexo
http://www.sendspace.com/file/i1l9a8

Att

 
Postado : 16/12/2013 7:44 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Tente isso.

Sub Gravar_Results_Verbs()
'
' Gravar_Results_Verbs Macro
' GRAVA O RESULTADO DO ÚLTIMO TESTE. VERBS
'
    Range("G21").Select
    Selection.End(xlUp).Select
    ActiveCell.Offset(1, 0).Range("A1").Select

    
    ActiveCell.Formula = "=A1"
    ActiveCell.Offset(0, 1).Range("A1").Select
  
    ActiveCell.Formula = "=C12"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Formula = "=C17/C12"
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveCell.Formula = "=C22/C12"
   
    Selection.End(xlToLeft).Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G5").Select
    Application.CutCopyMode = False
End Sub

Abs

 
Postado : 16/12/2013 8:05 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico