Listar Hojas

02/03/2007 - 22:48 por Angelo Vernaza | Informe spam
Buenas tengo el siguiente codigo sacado de una respuesta enviada por KL:

Sub ListSheetNames()
Dim s As Variant
Dim Counter As Integer
Counter = 1
With ThisWorkbook
For Each s In .Sheets
.Sheets("Intereses").Cells(Counter, 1) = s.Name
Counter = Counter + 1
Next s
End With
End Sub

quisiera q al listar las hojas me empieze es en la fila 9, que tengo que
cambiar?

Saludos,

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
03/03/2007 - 00:09 | Informe spam
hola, Angelo !

solo modifica la tercera instruccion dentro del procedimiento...
de: -> Counter = 1
a: -> Counter = 9

saludos,
hector.

__ la consulta original __
... el siguiente codigo sacado de una respuesta enviada por KL:
Sub ListSheetNames()
Dim s As Variant
Dim Counter As Integer
Counter = 1
With ThisWorkbook
For Each s In .Sheets
.Sheets("Intereses").Cells(Counter, 1) = s.Name
Counter = Counter + 1
Next s
End With
End Sub
quisiera q al listar las hojas me empieze es en la fila 9, que tengo que cambiar?
Respuesta Responder a este mensaje
#2 Angelo Vernaza
05/03/2007 - 22:23 | Informe spam
Gracias Héctor...

Saludos,

"Héctor Miguel" escribió en el mensaje
news:eCrOa$
hola, Angelo !

solo modifica la tercera instruccion dentro del procedimiento...
de: -> Counter = 1
a: -> Counter = 9

saludos,
hector.

__ la consulta original __
... el siguiente codigo sacado de una respuesta enviada por KL:
Sub ListSheetNames()
Dim s As Variant
Dim Counter As Integer
Counter = 1
With ThisWorkbook
For Each s In .Sheets
.Sheets("Intereses").Cells(Counter, 1) = s.Name
Counter = Counter + 1
Next s
End With
End Sub
quisiera q al listar las hojas me empieze es en la fila 9, que tengo que
cambiar?




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