Forums Últimos mensajes - Powered by IBM
 

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
 

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

Preguntas similares