hola buen dia...
aqui de nuevo con una duda... esta parte de codigo que pongo es parte de una funcion que agrega a una grilla una hoja de excel previamente capturada... mi duda esta en la parte que se encuentra en
negritas... esa parte me truena la aplicacion y me indica un error y dice q el subindice esta fuera de intervalo... los valores que indican que columna y que fila si me los asigna correctamente pero el valor de esa celda es lo que quiero obtener
¿¿¿alguna idea de por que puede ser???...
se los agradesco de antemano
contador = 0
With xLibro
' Hacemos referencia a la Hoja
With .Sheets(1)
contador = .Cells(1, 1).Value
contador1 = contador + 1
'Recorremos las celdas
For Fila = 2 To contador1
For Col = 1 To 6
'Agregamos el valor de la celda a la grilla
fil = Fila - 1
co = Col - 1
frmBitacora.MSFlexGrid1.TextMatrix(fil, co) = Cells(Fila, Col).Value
' frmBitacora es el formulario donde esta el flex grid
Next Col
Next Fila
End With
End With
frmBitacora.MSFlexGrid1.TextMatrix(fil, co) = .Cells(Fila, Col).Value
tambien lo he puesta con el punto en cells y nada help...