ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ

[joyziie]

ลบแถวอัตโนมัติ ตามเงื่อนไขที่ต้องการ

รบกวนขอคำแนะนำคะ ต้องการ ลบแถวอัตโนมัติตามเงื่อนไขที่ต้องการ โดย
ถ้าช่อง Stock + BO + Forecast = 0 ให้ลบบรรทัดนั้นทิ้ง

ขอบคุณมากคะ

[songsug]

ถ้าคอล้มน์ว่างๆสักช่อง เอา Stock + BO + Forecast แล้วก็ใช้ autofilter กรองค่าบรรทัดที่เป็น 0 แล้วลบออกก็ได้นี่ครับ

[joyziie]

ถ้าคอล้มน์ว่างๆสักช่อง เอา Stock + BO + Forecast แล้วก็ใช้ autofilter กรองค่าบรรทัดที่เป็น 0 แล้วลบออกก็ได้นี่ครับ

คือ ขออธิบายเพิ่มเติมคะ รายงานนี้มาจากการประมลผลผ่าน jet report ทำให้ไม่สามารถกำหนดการ filter ได้คะ เนื่องจากจำนวนข้อมูลจะเปลี่ยนแปลงไปตามช่วงเวลาที่เราเรียกข้อมูลคะ

ขอบคุณสำหรับคำแนะนำนะคะ

[songsug]

แบบนี้ได้หรือป่าวครับ ใช้ Code เข้ามาช่วย

Code: Select all

Sub Test()
Dim intRow As Integer
intRow = 19
Do While Range("G" & intRow).Value <> ""
     If (Range("R" & intRow).Value + Range("S" & intRow).Value + Range("T" & intRow).Value) = 0 Then
    Rows(intRow).Delete Shift:=xlUp
    End If
    intRow = intRow + 1
Loop
MsgBox "Complete."
End Sub

จะเอาไปไว้ใน Module แล้ว Run ผ่าน ShortKey หรือใส่ปุ่มกดก็ได้ น่าจะช่วยได้ครับ