Nombrar hojas

05/02/2004 - 22:16 por Dolores Ortega | Informe spam
Hola, existe manera de que pueda nombrar una hoja de cálculo al ingresar el nombre dentro del documento
Y se puede ordenar las hojas por orden alfabético?
 

Leer las respuestas

#1 Héctor Miguel
06/02/2004 - 08:41 | Informe spam
hola, Dolores !

... manera de que pueda nombrar una hoja de calculo al ingresar el nombre dentro del documento?



si por 'hoja de calculo' te refieres a las hojas de un libro [NO al archivo 'en si']
[p.e.] en el modulo de codigo del libro [ThisWorkbook]
_______
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If TypeName(Sh) <> "Worksheet" Then Exit Sub
If Target.Address <> "$A$1" Then Exit Sub
If Target <> "" Then Sh.Name = Target
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
cambiara el nombre de 'cada' hoja de calculo al nombre que 'pongas' en la celda 'A1'

... se puede ordenar las hojas por orden alfabetico?



[p.e.] en un modulo de codigo 'normal'
_______
Sub Ordenar_Hojas()
Application.ScreenUpdating = False
Dim Fija As Integer, Mover As Integer
For Fija = 1 To Sheets.Count
For Mover = 1 To Sheets.Count - 1
If Sheets(Mover).Name > Sheets(Mover + 1).Name _
Then Sheets(Mover).Move After:=Sheets(Mover + 1)
Next
Next
Application.ScreenUpdating = True
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
hay otras alternativas para ordenar de diferentes maneras las hojas de un libro...
visita: http://cpearson.com/excel/sortws.htm [Sorting Worksheets In A Workbook]

saludos,
hector.

Preguntas similares