Columna con mombre de hojas

Utiliza este codigo

Dim Fila As Long
Dim FilaJ, FilaK As Long

FilaJ = 3: FilaK = 3

For Fila = 1 To Sheets.Count
If Left(Sheets(Fila).Name, 3) = "REC" Or Left(Sheets(Fila).Name, 3) = "GAS"
Then
Sheets("Hoja1").Range("K" & FilaK) = Sheets(Fila).Name
FilaK = FilaK + 1
End If
If Left(Sheets(Fila).Name, 3) = "PEN" Then
Sheets("Hoja1").Range("J" & FilaJ) = Sheets(Fila).Name
FilaJ = FilaJ + 1
End If
Next Fila


Luis Medina
Menufazt - Utilidades y juegos en Excel
http://www11.brinkster.com/LUISM0/


"Lucas D." escribió en el mensaje
news:098101c4bf40$e374c7b0$

Hola Amigos del Foro:
Tengo en un libro varias hojas , quiero hacer lo siguiente
en la hoja1:
Llenar la columna K desde K3 con los nombres de las hojas
que empiecen con REC.. y GAS
y la columna J desde J3 con los que empiecen PEN.
Muchas Gracias por tratar de ayudarme.
Lucas D.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.783 / Virus Database: 529 - Release Date: 10/25/2004

Perfecto Luis, es lo que necesitaba ,pense que nadie me
iba responder.
Muchísimas gracias y un saludo.
Lucas Daniel

Utiliza este codigo

Dim Fila As Long
Dim FilaJ, FilaK As Long

FilaJ = 3: FilaK = 3

For Fila = 1 To Sheets.Count
If Left(Sheets(Fila).Name, 3) = "REC" Or Left(Sheets

(Fila).Name, 3) = "GAS"

Then
Sheets("Hoja1").Range("K" & FilaK) = Sheets(Fila).Name
FilaK = FilaK + 1
End If
If Left(Sheets(Fila).Name, 3) = "PEN" Then
Sheets("Hoja1").Range("J" & FilaJ) = Sheets(Fila).Name
FilaJ = FilaJ + 1
End If
Next Fila


Luis Medina
Menufazt - Utilidades y juegos en Excel
http://www11.brinkster.com/LUISM0/


"Lucas D." escribió

en el mensaje

news:098101c4bf40$e374c7b0$

Hola Amigos del Foro:
Tengo en un libro varias hojas , quiero hacer lo

siguiente

en la hoja1:
Llenar la columna K desde K3 con los nombres de las

hojas

que empiecen con REC.. y GAS
y la columna J desde J3 con los que empiecen PEN.
Muchas Gracias por tratar de ayudarme.
Lucas D.

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.783 / Virus Database: 529 - Release Date:

10/25/2004

.