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