การลบข้อมูลข้ามชีท
Posted: Fri Jul 17, 2020 2:50 pm
ชีทแรกมีช่องให้กรอกข้อมูลที่ต้องการลบ เมื่อกดปุ่ม Delete ต้องการให้ลบข้อมูลในชีทที่สองทั้งแถว ลองเขียนมาแล้วแต่ยังไม่ค่อยเข้าใจครับผม รบกวนด้วยนะครับ
ตัวอย่าง 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