Snasui Excel Forum

Code: Select all

With ActiveSheet
    If .Range("b5") = "" Or .Range("d5") = "" Or .Range("f5") = "" Or _
        .Range("h5") = "" Or .Range("h10") = "" Then
        MsgBox "Your data not complete. Please verify and try again."
        Exit Sub
    End If
End With

Code: Select all

Sub Save()
' Save Macro
Sub MessageBox_2()
' Keyboard Shortcut: Ctrl+s
A = MsgBox("ต้องการบันทึก", vbCritical + vbYesNo)
If A = vbYes Then
 For i = 1 To 12
 With ActiveSheet
    If .Range("b5") = "" Or .Range("d5") = "" Or .Range("f5") = "" Or _
        .Range("h5") = "" Or .Range("h10") = "" Then
        MsgBox "กรุณาใส่ข้อมูลให้ครบถ้วน"
        Exit Sub
    Application.Goto Reference:="masterrecord"
    Selection.Copy
    Application.Goto Reference:="uldatarecord"
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("Pivot").Select
    ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
    ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
    ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
    Sheets("CN For Team").Select
    Range("B5,D5,F5,H5,H10").Select
    Range("H10").Activate
    Selection.ClearContents
    Range("A1").Select
End If
End With
End If
End Sub

Code: Select all

=IFERROR(MAX(IF(SupData=$J$14,IF(เงื่อนไขคืนData=K12,ลังData))),"")