Snasui Excel Forum

Code: Select all

Private Sub Submit_Click()

With Sheet6
            .AutoFilterMode = False
                With .Range("A2:C2")
                     .AutoFilter
                     .AutoFilter Field:=1, Criteria1:=cb2.Value
                     .AutoFilter Field:=2, Criteria1:=cb1.Value
                     .AutoFilter Field:=3, Criteria1:=cb3.Value
                        
                End With
Lastrow = Range("B1048576").End(xlUp).Row

.Cells(Lastrow, 10).Value = c1.Value
.Cells(Lastrow, 11).Value = c2.Value
.Cells(Lastrow, 14).Value = c3.Value
.Cells(Lastrow, 15).Value = c4.Value
.Cells(Lastrow, 16).Value = c5.Value
.Cells(Lastrow, 17).Value = c6.Value
.AutoFilterMode = False
    End With
End Sub