Ultima hoja
Publicado por Cristino (1 intervención) el 09/03/2020 14:13:18
Buenas, quisiera hacer un macro que haga lo siguiente.
1- comprobar si la hoja activa es la ultima hoja del libro
2- si es así, lanza un mensaje que esta en la ultima hoja y no se puede ejecutar el resto del macro
3- si no es la ultima hoja ejecuta el resto del macro.
Sub Macro(1)
hojaActual =
HojaUltima =
If HojaActual = HijaUltima Then
MsgBox "Estas en la ultima hoja y no se pueden fijar valores", vbOKOnly + vbInformation
Else
....Varias sentencias
End If
End sub
1- comprobar si la hoja activa es la ultima hoja del libro
2- si es así, lanza un mensaje que esta en la ultima hoja y no se puede ejecutar el resto del macro
3- si no es la ultima hoja ejecuta el resto del macro.
Sub Macro(1)
hojaActual =
HojaUltima =
If HojaActual = HijaUltima Then
MsgBox "Estas en la ultima hoja y no se pueden fijar valores", vbOKOnly + vbInformation
Else
....Varias sentencias
End If
End sub
Valora esta pregunta
0