Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

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





End Sub


Private Sub cmdLimpiar_Click()
Me.CmbArticulo.Text = ""
Me.txtcantidad.Text = ""
Me.CmbMotivo.Text = ""
Me.CmbCondicion.Text = ""
Me.CmbArticulo.SetFocus




End Sub


Private Sub Image1_Click()


End Sub


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.

post-68852-145877008538_thumb.jpg

post-68852-145877008539_thumb.jpg

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.