Error con hojas ocultas

22/06/2005 - 17:24 por dargento | Informe spam

Buenas!
Estoy trabajando con unos formularios en excel, que necesitan trabaja
condatos de una hoja oculta.
Yo creo que hago bien el acceso a ella, pero me da error a la hora d
acceder a un rango.
¿Que puedo hacer?
Gracias

Sheets.Add
ActiveSheet.Name = "Dim1"
Sheets("Dim1").Select
ActiveWindow.SelectedSheets.Visible = False
Worksheets("Dim1").Range("a2").Select
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
conf = conf + 1
Loop
For k = 2 To conf + 1
frmDim1_3.cboPaneles1.AddItem (Worksheets("Dim").Range("a"
k).Value)
Next
frmDim1_3.cboPaneles1.ListIndex = 0
frmDim1_3.txtRendimiento1.Value = Range("b2").Value
frmDim1_3.txtPotencia1.Value = Range("c2").Value
frmDim1_3.txtArea1.Value = Range("d2").Value
frmDim1_3.txtCoeficienteT1.Value = Range("e2").Value
frmDim1_3.txtPerdidas1.Value = Range("f2").Value
frmDim1_3.txtTension1.Value = Range("g2").Value

Mas o menos eso es lo que hago,¿que hago mal

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187055645

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Error con hojas ocultas

Leer las respuestas

#1 dargento

23/06/2005 - 08:03 | Informe spam

Pues uso el bucle Do Until, porque si qu etengo datos en la hoja
loscargo de uan consulta a la base de datos access.En esa hoja vuelc
los resultados del recordset, ya que tampoco se como hacer para pone
los datos de la consulta directamente en un fromulario, no consig
recorrer los diferentes campos de cada registro de resultados.
Gracias por tu respuesta

dargent
dargento's Profile: http://www.msusenet.com/member.php?userid4
View this thread: http://www.msusenet.com/t-187055645

Responder a este mensaje

#2 KL

23/06/2005 - 09:57 | Informe spam

Hola dargento

Pues uso el bucle Do Until, porque si qu etengo datos en la hoja,
loscargo de uan consulta a la base de datos access.En esa hoja vuelco
los resultados del recordset

Pues no es lo que dice el trozo de codigo que expones. ?Alguna razon
especifica por la que no expones el codigo completo? Te digo que veo
bastantes oportunidades de simplificacion y depuracion ya en el trozo que he
visto.

De todas formas, creo que para obtener el valor de la variable "conf" en vez
de usar el bucle y hacer el numero de operaciones equivalnte al valor de
"conf", podrias hacerlo en una sola operacion:

Sheets("Dim1").Cells(65356,"A").End(xlUp).Row

Saludos,
KL

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida