Error al cargar datos de combobox a textbox desde otro formulario
publicado
HOLA A TODOS, Y DE ANTEMANO GRACIAS POR LA AYUDA QUE SIEMPRE NOS BRINDAN, TENGO UN FORMULARIO QUE TIENE VARIOS COMBOBOX, Y UN BOTON DE AGREGAR, PERO COMO ESTE FORMULARIO ES INDEPENDIENTE, LO QUE QUIERO ES CARGAR LOS DATOS DESDE OTRO COMO SE MUESTRA EN LA IMAGEN, PERO ME RESALTA UN ERROR, Y AGRADECERÍA QUE ALGUIEN PUEDA BRINDARME UNA SOLUCION, ESTE ES EL CODIGO QUE TENGO DENTRO DEL FORM,
Private Sub CmdAgregar_Click()
If Trim(Me.txtcantidad.Text) = "" Then MsgBox ("DEBES INGRESAR LA CANTIDAD !!!"): Exit Sub
If Me.CmbArticulo.Text = "" Then MsgBox ("DEBES INGRESAR UN ARTICULO !!"): Exit Sub
With frmCentral
.txtArticulo.AddItem (Me.CmbArticulo.Text)
.Cantidad.AddItem (Me.txtcantidad.Text)
.lstMotivo.AddItem (Me.CmbMotivo.Text)
End With
Private Sub txtcantidad_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' esto es para que el textbox solo acepte numeros
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Private Sub UserForm_Activate()
Dim sultimacelda As String
Me.CmbCondicion.Clear
Sheets("ESTADO").Activate
If Trim(Range("B2").Value) = "" Then Exit Sub
If Trim(Range("B3").Value) = "" Then
Me.CmbCondicion.AddItem (Range("A2").Value)
Exit Sub
End If
sultimacelda = Range("B1").End(xlDown).Address
For Each F In Range("B2:" & sultimacelda).Cells
Me.CmbCondicion.AddItem (F.Value)
Next
Me.CmbMotivo.Clear
Sheets("ESTADO").Activate
If Trim(Range("A2").Value) = "" Then Exit Sub
If Trim(Range("A3").Value) = "" Then
Me.CmbMotivo.AddItem (Range("A2").Value)
Exit Sub
End If
sultimacelda = Range("A1").End(xlDown).Address
For Each F In Range("A2:" & sultimacelda).Cells
Me.CmbMotivo.AddItem (F.Value)
Next
Me.CmbArticulo.Clear
Sheets("ARTICULOS").Activate
If Trim(Range("A2").Value) = "" Then Exit Sub
If Trim(Range("A3").Value) = "" Then
Me.CmbArticulo.AddItem (Range("A2").Value)
Exit Sub
End If
sultimacelda = Range("A1").End(xlDown).Address
For Each F In Range("A2:" & sultimacelda).Cells
Me.CmbArticulo.AddItem (F.Value)
Next
End Sub
[/CODE]
EL ERROR, SE MUESTRA EN LA IMAGEN POR FAVOR NECESITO LA AYUDA DE TODOS, GRACIAS A TODOS.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
HOLA A TODOS, Y DE ANTEMANO GRACIAS POR LA AYUDA QUE SIEMPRE NOS BRINDAN, TENGO UN FORMULARIO QUE TIENE VARIOS COMBOBOX, Y UN BOTON DE AGREGAR, PERO COMO ESTE FORMULARIO ES INDEPENDIENTE, LO QUE QUIERO ES CARGAR LOS DATOS DESDE OTRO COMO SE MUESTRA EN LA IMAGEN, PERO ME RESALTA UN ERROR, Y AGRADECERÍA QUE ALGUIEN PUEDA BRINDARME UNA SOLUCION, ESTE ES EL CODIGO QUE TENGO DENTRO DEL FORM,
EL ERROR, SE MUESTRA EN LA IMAGEN POR FAVOR NECESITO LA AYUDA DE TODOS, GRACIAS A TODOS.