Cierre Inesperado de UserForm
Publicado por Eduardol (10 intervenciones) el 10/01/2023 23:02:56
Buenas tardes.
Les cuento, tengo un codigo que se ejecuta en un boton de comando de un userform
El problema, surge cuando termina de ejecutar el procedimiento, ya que al cambiar del foco, se cierra el userform, y no deberia. No se como hacer para controlar el comportamiento del formulario y prevenir que se cierre.
Espero haber sido claro.Saludos
Les cuento, tengo un codigo que se ejecuta en un boton de comando de un userform
El problema, surge cuando termina de ejecutar el procedimiento, ya que al cambiar del foco, se cierra el userform, y no deberia. No se como hacer para controlar el comportamiento del formulario y prevenir que se cierre.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Userform1()
Userform1.InitializeEnd Sub
Private Sub AdFiles_Click() ' Aqui, luego de inicializar el formulario, el usuario tiene la opcion de buscar un archivo
Arch = Application.GetOpenFilename(FileFilter:= _
"Archivos (*.PDF;*.Docx;*.Doc;*.xlsx; *.xls; *.pptx; *.ppts), *.PDF;*.Docx;*.Doc;*.xlsx; *.xls; *.pptx; *.ppts", _
Title:="Selecciona un archivo a adjuntar", MultiSelect:=False)
If Arch <> False Then
File = LTrim(Mid(Arch, 1 + InStrRev(imag, "\")))
If MsgBox("Quieres mover el archivo", vbYesNo) = vbYes Then
ruta = ThisWorkbook.Path
On Error GoTo sincopia
FileCopy Arch, ruta & "\" & File
'Kill imag MsgBox "El Archivo se cambió de carpeta"End If
End If
End
sincopia: MsgBox "El archivo no se pudo mover"End Sub
Espero haber sido claro.Saludos
Valora esta pregunta
0
