Dos butones para Un solo formulario para abrir en 2 hojas

3 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 hora 52 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 15/12/2011 - 23:46
Puntos: 2675
Dos butones para Un solo formulario para abrir en 2 hojas

Hice esta minuscula macro

If Sheets("Entra").Select Then
frmEntraSale.Caption = "Entradas"
Label3.Caption = "Entradas"
Else
Sheets("Sale").Select
frmEntraSale.Caption = "Salidas"
Label3.Caption = "Salidas"
End If

Para integrar al evento  Private Sub UserForm_Initialize()

La idea es que si estoy en la hoja2, preciono el boton que tengo en esa hoja y abre el formulario con la caption Entradas

Si estoy en la hoja6, preciono el boton que tengo en esa hoja y abre el formulario con la caption Salidas

Asi mismo el label. Resulta que al abrir estando en Salidas, me cambia a hoja Entradas y el caption me dice Entradas claro.

Debido a mi ignorancia y experiencia a dar con el fallo recurro a alguien de ustedes para la emmienda.

Gracias

Etiquetas: 

Cron
Imagen de Cron
Offline
última acción: Hace 14 horas 50 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 8700
Prueba esto:If activesheet

Prueba esto:

If activesheet.name = "Entra" then...

 

Te adjunto un pequeño archivo para que veas.

 

Un saludo

AdjuntoTamaño
File boton.xlsm22.29 KB
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 hora 52 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 15/12/2011 - 23:46
Puntos: 2675
Gracias cron, no pense en

Gracias cron, no pense en .Name, ahí estaba todo mi rollo

Gracias