Deseo saber si es posible realizar filtros entre 2 fechas en 2 textbox y con una condicion(textbox.Codigo); una vez filtrada me permita realizar el reemplazo a una de las columnas por otro campo es decir otro (textbox.ruta), si tuvieran ejemplos excelente solo llegue a realizar el filtro, agradeceria su apoyo con el caso.
Private Sub CommandButton4_Click()
Dim total, total1 As Integer
Sheets("planificacion").Activate
Call iniciar
If Me.ComboBox1.Value = "" Then Exit Sub
ListBox1.Clear
j = 2
filaS = Range("a1").CurrentRegion.Rows.Count
Buenos tardes;
Requiero su apoyo con el siguiente caso.
Deseo saber si es posible realizar filtros entre 2 fechas en 2 textbox y con una condicion(textbox.Codigo); una vez filtrada me permita realizar el reemplazo a una de las columnas por otro campo es decir otro (textbox.ruta), si tuvieran ejemplos excelente solo llegue a realizar el filtro, agradeceria su apoyo con el caso.
Private Sub CommandButton4_Click()
Dim total, total1 As Integer
Sheets("planificacion").Activate
Call iniciar
If Me.ComboBox1.Value = "" Then Exit Sub
ListBox1.Clear
j = 2
filaS = Range("a1").CurrentRegion.Rows.Count
ComboBox2 = Range("B" & filaS).Value
ComboBox3 = Range("M" & filaS).Value
For i = 1 To filaS
If LCase(Cells(i, j).Offset(0, 1).Value) Like "*" & LCase(Me.ComboBox1.Value) & "*" Then
Me.ListBox1.AddItem Cells(i, j)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(i, j).Offset(0, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Cells(i, j).Offset(0, 3)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Cells(i, j).Offset(0, 20)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Cells(i, j).Offset(0, 7)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Cells(i, j).Offset(0, 8)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 6) = Cells(i, j).Offset(0, 9)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 7) = Cells(i, j).Offset(0, 10)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 8) = Cells(i, j).Offset(0, 11)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 9) = Cells(i, j).Offset(0, 12)
Else
End If
Next i
total = 0
For i = 0 To ListBox1.ListCount - 1
total = total + CInt(Val(ListBox1.List(i, 2)))
Next i
TextBox1.Text = total
Exit Sub
Exit Sub
Errores:
MsgBox "No se encuentra.","
End Sub
gracias