Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ultima Célula Numér...
 
Notifications
Clear all

Ultima Célula Numérica

 
2024 - VBA & Macros
Post Recente por Miguel 70 10 anos atrás
5 Posts
2 Usuários
0 Reactions
967 Visualizações
RSS
 Miguel 70
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Ola boa tarde a todos,
Tenho esta macro que funciona, mas quando ela acha letras então da erro em todas as somas.
Como faço para que esta macro pule texto e só pega o ultima célula com numero?

Sub Soma()
Range("J" & ActiveSheet.Rows.Count).End(xlUp).Offset(0, 0).Copy Destination:=Range("T4")
End Sub

Obrigado!

 
Postado : 20/12/2014 2:00 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi, A que somas se refere?? Se essa célula for "letras" o que fazer??
a rotina apenas copia a célula J (ultima com dados) para a célula T4, aqui não há problema de numero ou texto

 
Postado : 20/12/2014 2:04 pm
 Miguel 70
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Obrigado pela atenção.
A coluna esta mesclada com Números e Texto , então o código tem que pegar o ultimo numero da coluna.
Se for Letra pega a antepenúltima se for numero ou não fazer nada.
Obrigado.

 
Postado : 20/12/2014 2:22 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Talvez sirva de inspiração

Sub AleVBA_13914()
    Range("A" & ActiveSheet.Rows.Count).End(xlUp).Select
    If IsNumeric(ActiveCell.Value) Then
    ActiveCell.Copy Destination:=Range("B4")
    End If
    End Sub

Agora é só ajustar para pegar a célula anterior (else....)

 
Postado : 20/12/2014 2:24 pm
 Miguel 70
(@miguel-70)
Posts: 0
New Member
Topic starter
 

Resolvido, obrigado Alexandrevba.

 
Postado : 20/12/2014 2:34 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico