Cambio de hojas
HOla tengo una pregunta quisiera que me pudieras ayudar con esto. Lo q
intento es sacar 2 datos de varias hojas de excel y lo que hice es
lo siguiente:
Sub horas()
For X = 451 To 557
cont = Sheet1.Cells(1, 10)
Sheet1.Cells(cont, 1) = HojaX.Cells(25, 1)
Sheet1.Cells(cont, 2) = HojaX.Cells(25, 2)
cont = cont + 1
Cells(1, 10) = cont
Next i
End Sub
Pero no pasa de hoja, y me aparece error, Si me pudieras ayudar pooooorfa GRACIAS
intento es sacar 2 datos de varias hojas de excel y lo que hice es
lo siguiente:
Sub horas()
For X = 451 To 557
cont = Sheet1.Cells(1, 10)
Sheet1.Cells(cont, 1) = HojaX.Cells(25, 1)
Sheet1.Cells(cont, 2) = HojaX.Cells(25, 2)
cont = cont + 1
Cells(1, 10) = cont
Next i
End Sub
Pero no pasa de hoja, y me aparece error, Si me pudieras ayudar pooooorfa GRACIAS
1 respuesta
Respuesta de Juan Carlos González Chavarría
1
No veo ninguna rutina que le diga a tú código cuántas hojas existen en tu libro.
Dim SheetCount As Integer
Dim i As Integer
If ActiveWorkbook Is Nothing Then Exit Sub ' No hay libro activo
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
Tendría que ver tu libro para analizarlo.
Otra posible solución sería:
For X = 451 To 557
cont = Sheet1.Cells(1, 10)
Sheet1.Cells(cont, 1) = SheetNames(i).Cells(25, 1)
Sheet1.Cells(cont, 2) = SheetNames(i).Cells(25, 2)
cont = cont + 1
Cells(1, 10) = cont
Next X
Otro error que veo es que inicias el ciclo for con POR y lo terminas con i.
Dim SheetCount As Integer
Dim i As Integer
If ActiveWorkbook Is Nothing Then Exit Sub ' No hay libro activo
SheetCount = ActiveWorkbook.Sheets.Count
ReDim SheetNames(1 To SheetCount)
Tendría que ver tu libro para analizarlo.
Otra posible solución sería:
For X = 451 To 557
cont = Sheet1.Cells(1, 10)
Sheet1.Cells(cont, 1) = SheetNames(i).Cells(25, 1)
Sheet1.Cells(cont, 2) = SheetNames(i).Cells(25, 2)
cont = cont + 1
Cells(1, 10) = cont
Next X
Otro error que veo es que inicias el ciclo for con POR y lo terminas con i.
