Snasui Excel Forum

Code: Select all

Sub MacroDelPageDataBudge()
' code ค้นหาชื่อเมื่อตรงกันให้ทำการลบข้อมูลให้ตรงกับหัวข้อ

Dim r As Range
Dim i As Integer

    If Sheets("Edit_budget").Range("N8").Value <> "" Then
            With Worksheets("data_budget")
                Set r = .Range(.Range("E12"), .Range("E100000").End(xlUp))
            End With
            For i = r.Rows.Count To 1 Step -1
                If r(i) = Sheets("Edit_budget").Range("N8").Value Then
                        r(i).EntireRow.Delete
                End If
            Next i
            MsgBox "ดำเนินการลบ รหัสเก็บข้อมูล  " & Sheets("Edit_budget").Range("N8") & "  แล้วเสร้จ"
            Range("F4:G4").ClearContents
            Call MacroClearEditBudget
                    Else
                            MsgBox "ยังไม่ดำเนินการลบข้อมูล ให้ทำการคลิกปุ่ม Find เพื่อดำเนินการค้นหาจึงจะดำเนินการลบทั้ง Record ได้้"
    End If
 
End Sub

Code: Select all

'Other code
Dim ans As VbMsgBoxResult
ans = MsgBox("ดำเนินการลบ รหัสเก็บข้อมูล  " & Sheets("Edit_budget").Range("N8") & "  แล้วเสร้จ")
If ans = vbYes Then
    Range("F4:G4").ClearContents
End If
'Other code

Code: Select all

Sub MacroDelPageDataBudge()
' code ค้นหาชื่อเมื่อตรงกันให้ทำการลบข้อมูลให้ตรงกับหัวข้อ

Dim r As Range
Dim i As Integer
Dim ans As VbMsgBoxResult
ans = MsgBox("ดำเนินการลบ รหัสเก็บข้อมูล  " & Sheets("Edit_budget").Range("N8") & "  แล้วเสร้จ")
    
If Sheets("Edit_budget").Range("N8").Value <> "" Then
            With Worksheets("data_budget")
                Set r = .Range(.Range("E12"), .Range("E100000").End(xlUp))
            End With
            
            If ans = vbYes Then
                For i = r.Rows.Count To 1 Step -1
                    If r(i) = Sheets("Edit_budget").Range("N8").Value Then
                            r(i).EntireRow.Delete
                    End If
                Next i
                Range("F4:G4").ClearContents
                 'Call MacroClearEditBudget
            End If
                    Else
                            MsgBox "ยังไม่ดำเนินการลบข้อมูล ให้ทำการคลิกปุ่ม Find เพื่อดำเนินการค้นหาจึงจะดำเนินการลบทั้ง Record ได้้"
End If
End Sub