Error en userform

Ir abajo

Error en userform

Mensaje  raptor91 el Vie Mayo 30, 2014 1:53 am

Hola amigos expertos en excel, este es mi primer tema en el foro y quisiera pedir un poco de su ayuda para la solución de un tema un poco complicado para mi.

En un libro de excel tengo 3 hojas (entradas, salidas y devoluciones), el form se llena con datos de la hoja entradas y debe descargar su información en las hojas "salidas y devoluciones" respectivamente. El combobox1 carga aquellos datos que no contengan información en la columna 10, es decir en la columna J. Al mismo tiempo se rellenan los textboxs 1,2,8. Mi petición es que me puedan ayudar a obtener un código diferente al que  tengo, uno mas eficiente, es que por alguna razón siempre me esta marcando error de la clase worksheetFunction, y la verdad me gustaría poder contar con un código diferente a este. Espero me puedan ayudar amigos. De ante mano muchas gracias.


P.D. No puedo subir el archivo al foro porque excede los kbps sugeridos por el reglamento,y aun no puedo incluir links de descarga por el hecho de ser nuevo en el foro, pero anexo el código, espero me puedan ayudar nuevamentegracias.




Private Sub UserForm_Initialize()
'CARGA RANGO DEL COMBOBOX1 E INDICA LA CANTIDAD DE COLUMNAS QUE DESEA VACÍAR A LOS TEXTBOXS
Sheets("ENTRADAS").Unprotect
Dim uf As Long
Dim cel As Range
With Sheets("ENTRADAS")
uf = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A8:M" & uf).AutoFilter 10, ""
ComboBox1.Clear
For Each cel In .Range("A9:A" & uf).SpecialCells(xlCellTypeVisible)
ComboBox1.AddItem cel.Value
Next
.Range("A8:M" & uf).AutoFilter
End With

Sheets("DEVOLUCIONES A PROVEEDOR").Select

ComboBox1.SetFocus

End Sub




Private Sub ComboBox1_Change()

Dim i As Variant
Dim x As Variant
Dim j As Variant
i = ComboBox1
With Sheets("ENTRADAS")
j = .Range("A" & Rows.Count).End(xlUp).Row

x = WorksheetFunction.Match(i, .Range("A1:A" & j), 0)

'NO CARGA TEXTBOXS AL EJECUTAR FORM
TextBox1 = .Cells(x, 2) 'COLOR
TextBox2 = .Cells(x, 3) 'DESCRIPCIÓN
TextBox8 = .Cells(x, 11) 'SALDO

'TEXTBOXS 3,4,5,6 SE INTRODUCEN A MANO
'COMBOBOX2 SE CARGA AUTOMATICO
' TEXTBOX 1,2,3,4,5,6 Y COMBOBOX1,2, SE VACÍAN EN 2 HOJAS, SALIDAS Y DEVOLUCIONES EN SUS RESPECTIVAS CELDAS

End With

End Sub




raptor91

Cantidad de envíos : 1
Fecha de inscripción : 23/05/2014

Ver perfil de usuario

Volver arriba Ir abajo

Error en userform

Mensaje  Olenka_Martinez el Lun Nov 24, 2014 3:24 am

Hola, para poder interactuar con las tres hojas de entradas, salidas y devoluciones puedes crear un formulario.
Ingresa al siguiente lik, donde encontraras la macro que se ajusta a tu problema: excel-avanzado.com/userform-en-excel

Saludos

Olenka_Martinez

Cantidad de envíos : 2
Fecha de inscripción : 24/11/2014

Ver perfil de usuario

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.