Userform ลงข้อมูลโดยลงตามเงื่อนไขจาก Droplist

[kwantar]

จากภาพเลยครับคือ
SP IS JN
พอเลือกแล้ว
ข้อมูลที่เรากรอกด้านล่างจากไปลงที่ข้อมูลแถวตามที่เลือกจาก SP IS JN
ตอนนี้ทำออกมาเป็นแบบ Filter ครับ จะสามารถทำโดยใช้เงื่อนไขอย่างอื่นอย่างไรครับ
.find .findnext หรือ loop
เริ่มต้นไม่ถูกว่าจะเขียนอย่างไร

ขอบคุณครับ

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

[snasui]

ความหมายคือให้ทำการ Update ค่าเดิมหรือว่าเป็นเช่นไรกรุณาอธิบายมาอย่างละเอียดที่สุดเท่าที่จะทำได้ครับ