Foro Excel

Hola a to2.....to2:

Me he encontrado en varias ocasiones en la necesidad de saber cual es la última celda seleccionada.

Pero como para que se active el evento Worksheet_SelectionChange es necesario dar intro, seleccionar otra celda, avance campo, etc...., perdemos el Target de la celda que nos interesa.

Buceando por Internet, he encontrado esta elegante solución en uno de los foros, aportada por un ciudadano anónimo desde China.

Código: Seleccionar todo

Public Ranges As New Collection
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Ranges.Add Target.Address
If Ranges.Count > 1 Then ActiveSheet.Range(Ranges(Ranges.Count - 1)) = "Last"
End Sub


Espero que os guste tanto como a mi.

Saludos a to2....to2

Antoni

Código: Seleccionar todo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static anterior As String
MsgBox anterior
anterior = Target.Address
End Sub

Habria que asociar la celda de cierre con un Nombre en el Libro, para cuando la variabel estatica sea Empty

GALILEOGALI

http://excelgali.mejorforo.net/

Hola, respondo xq me servió! Gracias!