Snasui Excel Forum

Code: Select all

Sub Msgbox_show()
    Dim rall As Range
    For Each r In Range("L3:L203")
        If r.Value = "ครบกำหนด" Then
            MsgBox r.Address(0, 0) & " ครบกำหนดแล้ว"
        End If
    Next r
End Subb

Code: Select all

Sub Msgbox_show()
    Dim rall As Range
    For Each r In Range("L3:L203")
        If r.Value = "ครบกำหนด" Then
            MsgBox r.Address(0, 0) & " ครบกำหนดแล้ว"
        End If
    Next r
End Subb

Code: Select all

Private Sub CommandButton1_Click()
        If Worksheets("Data").Range("A3") = "" Then
            MsgBox "คุณไม่มีข้อมูลที่จะส่งไป กรุณากรอกข้อมูลก่อน", vbExclamation, "กรุณากรอกข้อมูล"
        Else
        ActiveSheet.Unprotect  
        Selection.AutoFilter       
        ActiveSheet.Range("$A$2:$M$202").AutoFilter Field:=12, Criteria1:="ครบกำหนด"
        Sheets("Data").Range("Source").Copy Sheets("Report").Range("Target")
        Range("Source").ClearContents           
        ActiveSheet.Range("$A$2:$M$202").AutoFilter Field:=12
        Sheets("Data").Range("Source").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True  
        ActiveWorkbook.Save       
        Application.DisplayAlerts = False
        Application.Quit         
        End If
End Sub