creacion de hojas en excel (problemas para escribir datos sobre la hoja creada)

15/09/2005 - 02:30 por Jesus Ramon | Informe spam
Grupo tengo la necesidad de crear hojas en excel en base a un formato, y
cada renglon me llenara una hoja de las que yo cree con codigo

preguntas

1.- cuantas hojas me soporta un libro?

2.- la primera hoja se crea muy bien pero a partir de la segunda me crea la
hoja pero los datos me los pone en la primera que creeo, y le doy select a
la hoja nueva para que me los coloque en ella pero no funsiona, les anexo
parte del codigo.

Private Sub BtnFormatos_Click()
Dim vlI As Double
Dim vlContHoja As Integer
vlI = 2
vlContHoja = 5
Do While Sheet2.Cells(vlI, 1) <> ""
If Sheet1.Cells(16, 3) = Sheet2.Cells(vlI, 61) Then
Sheets("SOL").Select
Sheets("SOL").Copy After:=Sheets(4)
Sheets(vlContHoja).Select
Sheets(vlContHoja).Name = Sheet2.Cells(vlI, 1)


' este codigo llena la hoja con los datos del renglon que
coincidio
Sheets(vlContHoja).Cells(10, 32) = Sheet2.Cells(vlI, 1)
Sheets(vlContHoja).Cells(11, 7) = "X"



de antemano gracias por su ayuda

saludos
jrlopdom
 

Leer las respuestas

#1 KL
15/09/2005 - 11:18 | Informe spam
Hola Jesus Ramon,

1.- cuantas hojas me soporta un libro?



Segun Microsoft el unico limite es la memoria de tu PC.

2.- la primera hoja se crea muy bien pero a partir de la segunda me crea
la hoja pero los datos me los pone en la primera que creeo, y le doy
select a la hoja nueva para que me los coloque en ella pero no funsiona,
les anexo parte del codigo.



No he podido simular tu caso en Excel por que de momento no tengo acceso a
un PC con Office, pero he intentado modificar tu codigo directamente en el
mensaje a ver site funciona.

Saludos,
KL

Sub test()
Dim vlI As Double
Dim vlContHoja As Integer
vlI = 2
vlContHoja = 5
Do While Sheet2.Cells(vlI, 1) <> ""
If Sheet1.Cells(16, 3) = Sheet2.Cells(vlI, 61) Then
Sheets("SOL").Copy After:=Sheets(vlContHoja - 1)
With Sheets(vlContHoja)
.Name = Sheet2.Cells(vlI, 1)
.Cells(10, 32) = Sheet2.Cells(vlI, 1)
.Cells(11, 7) = "X"
End With
End If
vlI = vlI + 1
Loop
End Sub

Preguntas similares