Programación General > VBA

 Ordenar Hojas Excel

(1/1)

pcisl:
Buenos días,
Tengo una aplicación hecha con VB que crea un libro Excel de varias hojas.
No consigo llevar la última hoja creada al principio del libro.
Saludos y muchas grácias de antemano.

F_Tanori:
Puedes mover las hojas asi



--- Código: Text ---Function MoverHoja(NombreHoja As String, Posicion) As BooleanOn Error Resume Next    Excel.Sheets(NombreHoja).Select    MoverHoja = Excel.Sheets(NombreHoja).Move(Before:=Sheets(Posicion))End Function 
Ejemplo:

Cambiar la hoja3 a la posicion 1 devuelve TRUE si se mueve la hoja


--- Código: Text --- if (MoverHoja("Hoja3",1)) then   Msgbox "Hoja Movida con exito"end if 

Saludos

pcisl:
Muchas grácias F_Tanori,
Tu código no acaba de funcionarme peró me has dado la idea.
He incluido el siguiente código
--- Código: Text ---ApExcel.WorkSheets("RESUMEN").Move Before:=ApExcel.WorkSheets(1) Y he conseguido lo que queria.
Repito, muchas grácias :D

Navegación

[0] Índice de Mensajes