Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Usuários do Excel

Fórum do Blog usuariosdoexcel.wordpress.com


Selecionar a ultima célula de um intervalo específico

Usuários do Excel :: Macros e VBA

Ir para baixo

Selecionar a ultima célula de um intervalo específico Empty Selecionar a ultima célula de um intervalo específico

Mensagem por alexandrevba Dom Out 06, 2013 9:51 am

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
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

Usuários do Excel :: Macros e VBA

 
Permissões neste sub-fórum
Não podes responder a tópicos