Snasui Excel Forum

Code: Select all

If Application.CountA(Range("AC17")) <> 0 Then
    MsgBox "ไม่ต้อง ใสชื่อ่ผู้ตรวจสอบงาน"
End If
Dim row As Integer
row = 10
If Cells(row, 30).Value <> "" Then
ActiveSheet.Unprotect Password:="1234"
    Application.Goto Reference:="OFFSET(R10C30,0,12,1,2)"
    Selection.Copy
    Workbooks.Open Filename:="\\ACCOUNT\Data (D)\SALE\DataBase.xlsx"
    ThisWorkbook.Activate
    Application.Goto Reference:= _
        "OFFSET('[DataBase.xlsx]Sheet1'!R1C1,MATCH(R10C30,INDEX('[DataBase.xlsx]Sheet1'!R2C1:R5000C1,0),0),40)"
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
   End If

Code: Select all

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Set Target = Range("AC10")

If Application.CountA(Range("AE15")) = 0 Then
 Sheets("AEW").Shapes("Button 2").Visible = msoTrue 'ไม่ซ่อน
 Else
 Sheets("AEW").Shapes("Button 2").Visible = msoFalse 'ซ่อน

 End If

End Sub