CERRAR USER FORM

25/01/2009 - 22:36 por LUIS DANNY SALAS | Informe spam
Hola !
Tengo un User form que ejecuta una macro, pero quisiea que este se cerrara
automaticamente despues de haberla ejecutado
que instruccion tengo que usar?
por si sirve de algo aqui esta el codigo que se ejecuta al oprimr el boton
del user form

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect "VKF76KL"
Sheets("MATRICULA").Visible = True
Sheets("MATRICULA").Select
ActiveSheet.Unprotect "DFR56HG"
Range("A2").Select
Range("A1:Z5000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets("REGISTRO").Range("Q165:W166"), CopyToRange:=Range("AG1"),
Unique:= _
False
Range("AG2:AI43").Select
Selection.Sort Key1:=Range("AH2"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AF2").Select
Range("AG2:AI43").Select
Selection.Sort Key1:=Range("AI2"), Order1:=xlAscending, Header:=xlGuess,
_
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("AF2").Select
Range("AG2:AG43").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("REGISTRO").Select
ActiveWindow.SmallScroll Down:=-63
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("D4").Select
Sheets("MATRICULA").Select
Application.CutCopyMode = False
Range("AG1:BF1").Select
Selection.EntireColumn.Delete
Range("A5004").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
ActiveSheet.Protect "DFR56HG", DrawingObjects:=True, Contents:=True,
Scenarios:=True
ActiveSheet.EnableSelection = xlNoSelection
Sheets("MATRICULA").Visible = False
ActiveWorkbook.Protect "VKF76KL"
Sheets("REGISTRO").Select
Range("D4").Select
Application.ScreenUpdating = True
End Sub

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
26/01/2009 - 06:43 | Informe spam
hola, Luis !

Tengo un User form que ejecuta una macro, pero quisiea que este se cerrara automaticamente despues de haberla ejecutado
que instruccion tengo que usar?



prueba usando en una linea ANTES de la instruccion "End Sub" con una instruccion: Unload Me

saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida