Crear o insertar datos específicos a un listbox (con Varias Columnas).
Excelente Día.
Tengo un UserForm y quiero insertar datos de un listbox a mi tabla, en la hoja del Excel, esta pregunta es para crear un nuevo cliente, y que automáticamente se actualice mi combobox para la búsqueda y los datos que contiene este nuevo cliente pasen a mi listbox.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código para ingresar un nuevo cliente, en el formulario debes capturar el cliente y la carpeta, el código busca en la hoja el orden que le corresponde al nuevo cliente y lo inserta.
Private Sub CommandButton9_Click()
'Por.Dante Amor
'Insertar nuevo cliente
If TextBox4 = "" Then
MsgBox "Escribe el nuevo cliente"
TextBox4.SetFocus
Exit Sub
End If
If TextBox5 = "" Then
MsgBox "Inserta el folio"
TextBox5.SetFocus
Exit Sub
End If
'
Set h = Sheets("Archivo 2015")
Set b = h.Columns("A").Find(TextBox4, lookat:=xlWhole)
If Not b Is Nothing Then
MsgBox "El cliente ya existe"
TextBox4.SetFocus
Exit Sub
End If
For i = 3 To h.Range("A" & Rows.Count).End(xlUp).Row
If h.Cells(i, "A") <> "" Then
Select Case StrComp(h.Cells(i, "A"), TextBox4, vbTextCompare)
'Case 0: Exit Sub
Case 1
h.Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
h.Cells(i, "A") = TextBox4
h.Cells(i, "D") = TextBox5
TextBox4 = ""
TextBox5 = ""
Exit For
End Select
End If
Next
cargacombo
MsgBox "Nuevo cliente insertado"
End Sub
