cambiar de hoja en libro de excel mediante codigo
Hola:
Mi problema es que necesito saber como se puede cambiar de hoja en un libro de excel mediante código, es decir tengo 66 hojas y necesito obtener datos de ellas, pero quiero saber como puedo hacer referencia automaticamente mediante codigo..
Mi problema es que necesito saber como se puede cambiar de hoja en un libro de excel mediante código, es decir tengo 66 hojas y necesito obtener datos de ellas, pero quiero saber como puedo hacer referencia automaticamente mediante codigo..
Hola, si quieres activar una hoja puedes hacerlo así:
Worksheets("Hoja2").Activate
Y si quieres acceder al valor de una celda de una hoja X, puedes hacerlo así:
Worksheets("HojaX").Range("A2").Value
Worksheets("Hoja2").Activate
Y si quieres acceder al valor de una celda de una hoja X, puedes hacerlo así:
Worksheets("HojaX").Range("A2").Value
Gracias una vez más Rosa, pero oye me quedo una duda entonces X seria una variable que indica el número de hoja????
Hola, me refiero a cualquier hoja, por ejemplo si quieres abrir la segunda será:
Worksheets("Hoja2").Range("A2").Value
Y si lo tienes en inglés
Worksheets("Sheet2").Range("A2").Value
Worksheets("Hoja2").Range("A2").Value
Y si lo tienes en inglés
Worksheets("Sheet2").Range("A2").Value
Gracias Rosa:
Ya encontre la respuesta se las dejo para quien tenga la misma duda que un servidor.
Este código cambia de hoja y obtiene datos de la columna 1 del renglon 3 al 51 de cada hoja, en este caso 66, es decir hace un concentrado de cifras en la hoja 67
Dim y, i, j, nh
For i = 2 To 67
Sheets.Item(i).Activate
For j = 3 To 11
Hoja67.Cells(j, 6) = Hoja67.Cells(j, 6) + Worksheets(i).Cells(j, 6)
Next j
Next i
MsgBox "La actualización concluyo corectamente", vbInformation, "Actualizar"
Saludos
Ya encontre la respuesta se las dejo para quien tenga la misma duda que un servidor.
Este código cambia de hoja y obtiene datos de la columna 1 del renglon 3 al 51 de cada hoja, en este caso 66, es decir hace un concentrado de cifras en la hoja 67
Dim y, i, j, nh
For i = 2 To 67
Sheets.Item(i).Activate
For j = 3 To 11
Hoja67.Cells(j, 6) = Hoja67.Cells(j, 6) + Worksheets(i).Cells(j, 6)
Next j
Next i
MsgBox "La actualización concluyo corectamente", vbInformation, "Actualizar"
Saludos