Alguien me puede constar a esto:
-Se puede ordenar alfabeticamente los nombre de las hojas de un libro?
-Es posible que al imprimir me salgan las hojas por orde alfabetico?
Gracias
Francesc
Dim N As Integer
Dim M As Integer
Dim FirstWSToSort As Integer
Dim LastWSToSort As Integer
Dim SortDescending As Boolean
SortDescending = False
FirstWSToSort = 1
LastWSToSort = Worksheets.Count
For M = FirstWSToSort To LastWSToSort
For N = M To LastWSToSort
If SortDescending = True Then
If UCase(Worksheets(N).Name) > _
UCase(Worksheets(M).Name) Then
Worksheets(N).Move Before:=Worksheets(M)
End If
Else
If UCase(Worksheets(N).Name) < _
UCase(Worksheets(M).Name) Then
Worksheets(N).Move Before:=Worksheets(M)
End If
End If
Next N
Next M
End Sub
Ahora con tu segunda pregunta lo que puedes hacer es presionas Shift, clicas
en la primera pestaña de libro y luego clicas en la ultima y todas las hojas
se van a resaltar, entonces cuando le das el comando de imprimir imrprimira
todas las hojas en el orden en que estan.
Espero te sirva
Fernando
"FRANCESC" <adminis...@el-raco.com> wrote in message
news:O8K9iDw5BHA.1864@tkmsftngp04...
"FRANCESC" <adminis...@el-raco.com> escribió en el mensaje
news:O8K9iDw5BHA.1864@tkmsftngp04...