กำหนดปุ่มมาโคร ในการลบข้อมูล

[songyot]

ต้องการใส่ IDในCombo box เพื่อ ลบ row และแถวเลื่อนขึ้นตามลำดับ
ใช้ปุ่ม vba หรือ ปุ่มมาโคร ในการลบข้อมูล

[snasui]

ตัวอย่าง Code ตามด้านล่าง ลองปรับใช้ดูครับ

Code: Select all

Sub cmdCLEAR()
    Dim rngAll As Range, rng As Range, i As Integer
    Dim Msg, Style, Title, Response
    Msg = "คุณต้องการลบข้อมูลหรือไม่?"   ' Define message.
    Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
    Title = "คุณต้องการลบข้อมูลหรือไม่"  ' Define title.
    ' Display message.
    Response = MsgBox(Msg, Style, Title)
    If Response = vbYes Then    ' User chose Yes.
        Sheets("database").Select
        Set rngAll = Range("d2", Range("d" & Rows.Count).End(xlUp))
        For Each rng In rngAll
            If rng.Value = Me.ComboBox1.Text Then
                rng.Value = ""
                i = i + 1
            End If
        Next rng
        If i > 0 Then
            rngAll.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        End If
    End If
End Sub

การถามเกี่ยวกับ Code ให้แจ้งมาด้วยว่า Code ที่ติดปัญหาชื่ออะไร อยู่ที่ Module ใด ตามกฎการใช้บอร์ดข้อ 5 ด้านบน จะได้สะดวกแก่ผู้ตอบไม่ต้องไปค้นหาเองว่า Code อยู่ที่ไหนครับ

[songyot]

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