Que esta mal con este codigo

02/12/2006 - 19:20 por zz | Informe spam
Despues de varios dolores de cabeza, me rindo y pido ayuda

tengo este codigo que me carga una lista guardada en una hoja de excel



Private Sub load_certifications()
Dim stritem, strdesc As String
Dim i As Integer
i = 0
Sheets("Entrenamientos").Activate
ActiveSheet.Range("a2").Activate
Do Until ActiveCell.Value = ""
With ActiveCell
stritem = CStr(.Offset(, 1).Value)
strdesc = CStr(.Offset(, 2).Value)
End With
Cmbtrainings.AddItem CStr(stritem)
Cmbtrainings.ColumnCount = 2
Cmbtrainings.ColumnHeads = True
Cmbtrainings.Column(2) = strdesc
i = i + 1
ActiveCell.Offset(1, 0).Activate
Loop
End Sub

pero al ejecutarlo me marca el error "381"

could not set the column property, Invalid property array index
la verdad no le encuentro donde esta el error




zz [MX]
cuasi-musico,semi-poeta y loco

Preguntas similare

Leer las respuestas

#11 zz
05/12/2006 - 15:52 | Informe spam
Muchas gracias a todos por sus aportes. tomare en cuenta todas las
correcciones/mejoras que le dieron a mi código.

Nunca deja uno de aprender cuando pregunta a quien sabe...

Mil Gracias.

zz [MX]
cuasi-musico,semi-poeta y loco



"zz" wrote in message
news:
Despues de varios dolores de cabeza, me rindo y pido ayuda

tengo este codigo que me carga una lista guardada en una hoja de excel



Private Sub load_certifications()
Dim stritem, strdesc As String
Dim i As Integer
i = 0
Sheets("Entrenamientos").Activate
ActiveSheet.Range("a2").Activate
Do Until ActiveCell.Value = ""
With ActiveCell
stritem = CStr(.Offset(, 1).Value)
strdesc = CStr(.Offset(, 2).Value)
End With
Cmbtrainings.AddItem CStr(stritem)
Cmbtrainings.ColumnCount = 2
Cmbtrainings.ColumnHeads = True
Cmbtrainings.Column(2) = strdesc
i = i + 1
ActiveCell.Offset(1, 0).Activate
Loop
End Sub

pero al ejecutarlo me marca el error "381"

could not set the column property, Invalid property array index
la verdad no le encuentro donde esta el error




zz [MX]
cuasi-musico,semi-poeta y loco

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida