Ver formulario automáticamente
Llevo tiempo con la siguiente duda y sin poder resolver. Te comento, desde un archivo A, donde tengo un formulario con un combobox, y en el cual tengo cargados doumentos word, excel y carpetas, voy abriendo todos los documentos.
Ahora viene la duda, cuando cierro el archivo B, por ejemplo, y utilizando un botón salir, también desde un formulario B, al mostrarse el archivo A (inicial) no se muestra el formulario (UserForm1) automáticamente.
Te comento los códigos VBA que estoy utilizando:
- Para abrir documentos desde el formulario A:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
On Error GoTo NoTrobat
If UCase(ComboBox1.Value) = UCase("RE-VS01.01_Llistat control registres.xls") Then
Exit Sub
Else
ruta = "E:\ISO14001\REGISTRES\"
If Right(UCase(ComboBox1.Value), 3) = "XLS" Then
Workbooks.Open Filename:=ruta & ComboBox1.Value
UserForm1.Hide
Windows(ComboBox1.Value).Activate
ElseIf Right(UCase(ComboBox1.Value), 3) = "DOC" Then
Dim oWord As Word.Application
Set oWord = CreateObject("Word.Application")
oWord.Documents.Open Filename:=ruta & ComboBox1.Value
oWord.Visible = True
Set oWord = Nothing
UserForm1.Hide
End If
End If
Exit Sub
NoTrobat:
MsgBox "Arxiu no trobat!" & vbCrLf & _
"Comprovar ortografia i/o si existeix a l´ubicació original" & vbCrLf, _
vbExclamation
UserForm1.Show
Application.ScreenUpdating = True
- En el módulo ThisWorkbook, en el archivo A (inicial):
Private Sub WorkbooK_WindowActivate(ByVal Wn As Window)
UserForm1.Show
End Sub
- En el botón salir del archivo que cierro para volver al archivo inicial:
Private Sub CommandButton2_Click()
ActiveWorkbook.Close (1)
End Sub
Utilizando los siguientes códigos, me ha sido imposible conseguir que se muestre el formulario automáticamente en el archivo inicial, al cerrar los demás archivos, y siempre desde un botón (commandbutton) en el formulario.
Después de dedicar bastante tiempo en consultar y visitar foros, ¿la pregunta que me planteo es si será posible utilizando VB?
Ahora viene la duda, cuando cierro el archivo B, por ejemplo, y utilizando un botón salir, también desde un formulario B, al mostrarse el archivo A (inicial) no se muestra el formulario (UserForm1) automáticamente.
Te comento los códigos VBA que estoy utilizando:
- Para abrir documentos desde el formulario A:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
On Error GoTo NoTrobat
If UCase(ComboBox1.Value) = UCase("RE-VS01.01_Llistat control registres.xls") Then
Exit Sub
Else
ruta = "E:\ISO14001\REGISTRES\"
If Right(UCase(ComboBox1.Value), 3) = "XLS" Then
Workbooks.Open Filename:=ruta & ComboBox1.Value
UserForm1.Hide
Windows(ComboBox1.Value).Activate
ElseIf Right(UCase(ComboBox1.Value), 3) = "DOC" Then
Dim oWord As Word.Application
Set oWord = CreateObject("Word.Application")
oWord.Documents.Open Filename:=ruta & ComboBox1.Value
oWord.Visible = True
Set oWord = Nothing
UserForm1.Hide
End If
End If
Exit Sub
NoTrobat:
MsgBox "Arxiu no trobat!" & vbCrLf & _
"Comprovar ortografia i/o si existeix a l´ubicació original" & vbCrLf, _
vbExclamation
UserForm1.Show
Application.ScreenUpdating = True
- En el módulo ThisWorkbook, en el archivo A (inicial):
Private Sub WorkbooK_WindowActivate(ByVal Wn As Window)
UserForm1.Show
End Sub
- En el botón salir del archivo que cierro para volver al archivo inicial:
Private Sub CommandButton2_Click()
ActiveWorkbook.Close (1)
End Sub
Utilizando los siguientes códigos, me ha sido imposible conseguir que se muestre el formulario automáticamente en el archivo inicial, al cerrar los demás archivos, y siempre desde un botón (commandbutton) en el formulario.
Después de dedicar bastante tiempo en consultar y visitar foros, ¿la pregunta que me planteo es si será posible utilizando VB?
1 Respuesta
Respuesta de emperador20
1