gabriel
09 de Febrero del 2006

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..

Rosa
09 de Febrero del 2006

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

gabriel
09 de Febrero del 2006

Gracias una vez m谩s Rosa, pero oye me quedo una duda entonces X seria una variable que indica el n煤mero de hoja????

Rosa
09 de Febrero del 2006

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

gabriel
09 de Febrero del 2006

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

gabriel
09 de Febrero del 2006

Perd贸n hago las siguientes correcciones:

For i = 2 To 67
Sheets.Item(i).Activate
For j = 3 To 51
Hoja67.Cells(j, 1) = Hoja67.Cells(j, 1) + Worksheets(i).Cells(j, 1)
Next j
Next i
MsgBox \"La actualizaci贸n concluyo corectamente\", vbInformation, \"Actualizar\"