การลบข้อมูลข้ามชีท

[Daboynut]

ชีทแรกมีช่องให้กรอกข้อมูลที่ต้องการลบ เมื่อกดปุ่ม Delete ต้องการให้ลบข้อมูลในชีทที่สองทั้งแถว ลองเขียนมาแล้วแต่ยังไม่ค่อยเข้าใจครับผม รบกวนด้วยนะครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

'Other code
Set rr = Worksheets("Sheet1").Range("C6")
Set rt = Worksheets("Sheet2").Range("A1:A5")
If Application.CountIf(rt, rr) > 0 Then
    i = Application.Match(rr, rt, 0)
    rt(i).EntireRow.Delete
End If
'Other code

[Daboynut]

ขอบคุณมากๆครับ สามารถใช้งานได้ตรงความต้องการครับ