Foros del Web » Soporte técnico » Ofimática »

[SOLUCIONADO] Dos butones para 1 solo formulario abrir en cualquier de las 2 hojas

Estas en el tema de Dos butones para 1 solo formulario abrir en cualquier de las 2 hojas en el foro de Ofimática en Foros del Web. Hice esta minúscula macro Código: If*Sheets("Entra").Select*Then frmEntraSale.Caption*=*"Entradas" Label3.Caption*=*"Entradas" Else Sheets("Sale").Select frmEntraSale.Caption*=*"Salidas" Label3.Caption*=*"Salidas" End*If Private Sub UserForm_Initialize() La idea es que si estoy en la hoja2, ...
  #1 (permalink)  
Antiguo 03/08/2017, 15:35
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.940
Antigüedad: 10 años
Puntos: 39
Dos butones para 1 solo formulario abrir en cualquier de las 2 hojas

Hice esta minúscula macro
Código:
If*Sheets("Entra").Select*Then
frmEntraSale.Caption*=*"Entradas"
Label3.Caption*=*"Entradas"
Else
Sheets("Sale").Select
frmEntraSale.Caption*=*"Salidas"
Label3.Caption*=*"Salidas"
End*If
Private Sub UserForm_Initialize()

La idea es que si estoy en la hoja2, presiono el botón que tengo en esa hoja y abre el formulario con la caption Entradas
Si estoy en la hoja6, presiono el botón que tengo en esa hoja y abre el mismo formulario con la capción Salidas
Así 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 enmienda.
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg
  #2 (permalink)  
Antiguo 04/08/2017, 11:44
Avatar de Triby
Mod on free time
 
Fecha de Ingreso: agosto-2008
Ubicación: $MX->Gto['León'];
Mensajes: 9.682
Antigüedad: 9 años
Puntos: 2096
Respuesta: Dos butones para 1 solo formulario abrir en cualquier de las 2 hojas

Solo necesitas verificar el nombre de la hoja activa.

Código VBA:
Ver original
  1. If ActiveSheet.Name = "Entra" Then
  2.     frmEntraSale.Caption = "Entradas"
  3.     Label3.Caption = "Entradas"
  4. Else
  5.     frmEntraSale.Caption = "Salidas"
  6.     Label3.Caption = "Salidas"
  7. End If
__________________
- León, Guanajuato
- GV-Foto
  #3 (permalink)  
Antiguo 10/08/2017, 15:36
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.940
Antigüedad: 10 años
Puntos: 39
Respuesta: Dos butones para 1 solo formulario abrir en cualquier de las 2 hojas

Gracias amigo Triby

Resuelto
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg



La zona horaria es GMT -6. Ahora son las 20:46.