Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Sign in to follow this  
francisco ahv

al cerrar libros quedan ventanas vacias abiertas

Recommended Posts

hola  he creado un a aplicacion y en uno de los modulos abre y cierra otro libro de excel dependiendo los cambios que se le hagan  guarda y  cierra pero al terminar de usar la aplicacion quedan muchas ventanas vacias abiertas tantas como capturas o modificaciones que hice

 

 

 

este es mi codigo


Private Sub MultiPage2_Click(ByVal Index As Long)
If MultiPage2.Value = 0 Then
Application.Visible = False
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "server.xlsx"
Worksheets("MATERIALES").Activate
Worksheets("MATERIALES").AutoFilter.Sort.SortFields.Clear
Worksheets("MATERIALES").AutoFilter.Sort.SortFields.Add Key:= _
        Range("A1:A1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortTextAsNumbers
    With Worksheets("MATERIALES").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
 Range("a1").Select
Set rngsource = Worksheets("MATERIALES").Range("a2:d1000")
With ListBox1
.List = rngsource.Cells.Value
End With
Windows("server.xlsx").Activate

ActiveWindow.Close savechanges:=False


Else
If MultiPage2.Value = 2 Then
Application.Visible = False
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "server.xlsx"
Worksheets("MATERIALES").Activate
Worksheets("MATERIALES").AutoFilter.Sort.SortFields.Clear
Worksheets("MATERIALES").AutoFilter.Sort.SortFields.Add Key:= _
        Range("A1:A1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortTextAsNumbers
    With Worksheets("MATERIALES").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
 
 Range("a1").Select
Set rngsource = Worksheets("MATERIALES").Range("a2:d1000")
With ListBox2
.List = rngsource.Cells.Value
End With
Windows("server.xlsx").Activate

ActiveWindow.Close savechanges:=False

End If

End If

Application.Visible = False
Application.ScreenUpdating = True

End Sub

 

 

image.thumb.png.73205eb01c55751dcf0677d5fcab78bf.png

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png