filtros y reemplazo

[crodriguez]

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

 

[Haplox]

Sube tu archivo explicando en el que necesitas