Libro con userform para buscar datos y elimina
¿Para Dante Amor Como estás? Tengo un libro con un userform que busca datos según criterios:
Cliente, fecha y/o código
Yo quería agregarle unos criterios más de búsqueda como ser:
Numero de remito y proveedor
Y además la opción en ese userform o en otro de eliminar un ingreso
1 Respuesta
Respuesta de Dante Amor
1
Te anexo el código para buscar por proveedor y remito
'
Private Sub CommandButton1_Click()
'
' Por Dante Amor
'
If ComboBox1.Value = "" Or ComboBox1.ListIndex = -1 Then
MsgBox "Selecciona un Empresa", vbExclamation, "INGRESAR"
ComboBox1.SetFocus
Exit Sub
End If
If TextBox1.Value <> "" Then
If Not IsDate(TextBox1.Value) Then
MsgBox "Captura una fecha valida", vbExclamation, "INGRESAR"
TextBox1.SetFocus
Exit Sub
End If
End If
' If ComboBox2.Value = "" Or ComboBox2.ListIndex = -1 Then
' MsgBox "Selecciona un Código", vbExclamation, "INGRESAR"
' ComboBox2.SetFocus
' Exit Sub
' End If
' If TextBox4.Value = "" Or Not IsNumeric(TextBox4.Value) Then
' MsgBox "Captura una Cantidad valida", vbExclamation, "INGRESAR"
' TextBox4.SetFocus
' Exit Sub
' End If
'
Set h1 = Sheets(ComboBox1.Value)
h3.Range("AB1:AF3").ClearContents
h3.Range("AB1") = h1.Range("A2") 'fecha
h3.Range("AC1") = h1.Range("A2") 'fecha
h3.Range("AD1") = h1.Range("B2") 'cod
h3.Range("AE1") = h1.Range("D2") 'prove
h3.Range("AF1") = h1.Range("E2") 'remito
'h3.Range("E1") = h1.Range("C2")
'
If ComboBox2.ListIndex > -1 Then
If IsNumeric(ComboBox2.Value) Then codigo = Val(ComboBox2.Value) Else codigo = ComboBox2.Value
h3.Range("AD2").Value = codigo
End If
If TextBox1.Value <> "" Then
h3.Range("AB3") = CDate(TextBox1)
h3.Range("AB2") = "="">=""&R[1]C"
If TextBox2.Value = "" Then
h3.Range("AC3") = CDate(TextBox1)
h3.Range("AC2") = "=""<=""&R[1]C"
End If
End If
If TextBox2.Value <> "" Then
If IsDate(TextBox2) Then
If CDate(TextBox2) >= CDate(TextBox1) Then
h3.Range("AC3") = CDate(TextBox2)
h3.Range("AC2") = "=""<=""&R[1]C"
Else
MsgBox "Captura una fecha hasta valida"
TextBox2.SetFocus
Exit Sub
End If
Else
MsgBox "Captura una fecha hasta valida"
TextBox2.SetFocus
Exit Sub
End If
End If
'
If TextBox3 <> "" Then h3.Range("AE2").Value = TextBox3
If IsNumeric(TextBox4) Then remito = Val(TextBox4) Else remito = TextBox4
If TextBox4 <> "" Then h3.Range("AF2").Value = remito
'
Application.ScreenUpdating = False
u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1
'
h1.Range("A2:H" & u).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=h3.Range("AB1:AF2"), CopyToRange:=h3.Range("B1:I1"), Unique:=False
h3.Columns("B:I").WrapText = False
h3.Columns("B:I").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
