ต้องการใช้ปุ่ม vba หรือ ปุ่มมาโคร ในการลบข้อมูลแบบมีเงื่อนไข

[moogati]

ผมมีตารางกรอก id ที่ไม่ซ้ำกันอยู่ใน sheet 1 ครับ และมีตารางที่เก็บข้อมูล id ที่ไม่ซ้ำกันใน sheet2 ครับ แล้วผมต้องการสร้างปุ่ม VBA หรือ ปุ่ม มาโคร ในการกำหนดว่า id ใน sheet1 ตรงกับ sheet2 ในแถวไหนบ้าง และต้องการให้ลบทั้งแถวนั้นใน sheet2 ทิ้งครับ จำมีวิธีการเขียนโค้ด VBA หรือ ทำมาโครยังไง แนะนำด้วยครับ

มีไฟล์แนบตัวอย่างมาด้วยครับ

[snasui]

ลองบันทึก Macro ตามนี้ครับ

1. ที่ Sheet2 เซลล์ C4 คีย์คำว่า Filter

2. ที่ Sheet2 เซลล์ C5 คีย์สูตร

=COUNTIF(Sheet1!$B$8:$B$14,A5)>0

Enter > Copy ลงด้านล่าง

3. ทำการ Filter เลือกเฉพาะ True

4. คลุมข้อมูลที่ได้จากการ Filter > กดแป้น F5 > Special > เลือก Visible cells only

5. ลบทิ้งโดยคลิกขวา > Delete row > OK

6. ลบคอลัมน์ C ทิ้งไป

[moogati]

ขอบคุณมากครับ


เนื่องจากงานของผมสามารถเพิ่มข้อมูลได้เรื่อยๆ sheet2 มันเลยไม่มีขอบเขตครับ ถ้าผมก๊อปปี้สูตรลงมาสมมุตสัก 500 แถว พอเวลารันมาโครแล้วมันเกิด runtime error 1004 ครับ จะมีวิธีแก้ หรือมีวิธีอื่น ยังไงบ้างครับ

[logic]

ผมคิดว่าแนบโค้ดมาด้วยน่าจะดีกว่า ผู้รู้จะได้แนะนำได้ถูกครับ

[moogati]

ผมรู้แล้วครับ เพราะว่า ผมเรียกใช้ มาโครใน sheet 1 มันเลยเกิด error ครับ แต่ถ้าไปเรียกใช้ใน sheet 2 ไม่มีปัญหาอะไร

แต่ปัญหาของผมคือ ต้องการคลิกปุ่มจาก sheet 1 ครับ แต่มันเกิด error 1004 ขึ้นครับ มีวิธีแก้ยังไงครับ

[moogati]

ไฟล์แนบพร้อมโค้ดครับ ช่วยดูปัญหาที่เกิดขึ้นด้วยครับ

[snasui]

ลองดู Code ตามด้านล่างครับ

Code: Select all

Sub Macro1()
'
' Macro1 แมโคร
'
'
    Sheets("Sheet2").Select
    Range("C4").FormulaR1C1 = "filter"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=COUNTIF(Sheet1!R8C2:R14C2,Sheet2!RC[-2])>0"
    Range("C5").Select
    Selection.AutoFill Destination:=Range("C5:C425"), Type:=xlFillDefault
    Range("C4").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$4:$C$425").AutoFilter Field:=3, Criteria1:="TRUE"
    Range("C5:C7").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Delete
    Columns("C:C").Select
    Selection.Delete Shift:=xlToLeft
    Range("B4").Select
    Selection.AutoFilter
End Sub

มีการเพิ่ม Code

Code: Select all

Sheets("Sheet2").Select

เพื่อให้โปรแกรมรู้ว่าจะทำงานกับ Sheet2 ครับ