alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Selecionar a ultima célula de um intervalo específico Dom Out 06, 2013 4:52 pm | |
| Bom dia!! - Código:
-
Sub UltimaCelulaIntervalo()
'Selecionar a ultima célula de um intervalo específico Dim LastRow As Long With Worksheets("Plan1") If .Cells(25, "A").Value = "" Then LastRow = .Range("A25").End(xlUp).Row .Cells(1 + LastRow, "A").Select Else MsgBox "O intervalo(A10:A25) foi excedido" End If End With End Sub
Att | |
|