kiwikiki718
Board Regular
- Joined
- Apr 7, 2017
- Messages
- 80
- Office Version
- 365
- Platform
- Windows
hello I have the below code that I want to run before the workbook is saved. but nothing happens when I press save.
VBA Code:
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Worksheets("TUESDAY").Range("A3") = 0 Or Worksheets("TUESDAY").Range("B3") = 0 Then
Worksheets("TUESDAY").Range("A3:B3").Value = Worksheets("MONDAY").Range("A3:B3").Value
End If
If Worksheets("TUESDAY").Range("A13") = 0 Or Worksheets("TUESDAY").Range("B13") = 0 Then
Worksheets("TUESDAY").Range("A13:B13").Value = Worksheets("MONDAY").Range("A13:B13").Value
End If
If Worksheets("TUESDAY").Range("A23") = 0 Or Worksheets("TUESDAY").Range("B23") = 0 Then
Worksheets("TUESDAY").Range("A23:B23").Value = Worksheets("MONDAY").Range("A23:B23").Value
End If
If Worksheets("TUESDAY").Range("A33") = 0 Or Worksheets("TUESDAY").Range("B33") = 0 Then
Worksheets("TUESDAY").Range("A33:B33").Value = Worksheets("MONDAY").Range("A33:B33").Value
End If
If Worksheets("TUESDAY").Range("A43") = 0 Or Worksheets("TUESDAY").Range("B43") = 0 Then
Worksheets("TUESDAY").Range("A43:B43").Value = Worksheets("MONDAY").Range("A43:B43").Value
End If
End sub