Column O and Column P shall filled if there are contents in Column A before Close

Hi dear all,


would you pls help me on a special makro issue, since this is quite urgent and my own skill is not so fit:


The effect I want is in every sheet in this workbook to ensure the Column O and Column P are filled with contents if Column A is not blank.


And this rule should be controlled everytime when trying to close the Workbook.

Many thanks for every tips from your side)))))



Cheers
Tina

Hi Tina
How many rows do you want to check?
Tony

Hi Tony,

it should be 250 rows for every worksheet.

Tina

Welcome to the Forum. Maybe:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
Dim i As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
    ws.Activate
        For i = Range("A" & Rows.count).End(3)(1).Row To 2 Step -1
            If Range("A" & i) <> "" Then
                If Range("O" & i) = "" Or Range("P" & i) = "" Then
                    MsgBox "Sheets " & ws.Name & " is not complete"
                    Cancel = True
                    Exit For
                    Exit Sub
                End If
            End If
        Next i
 Next ws
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Many many thanks! It works

You're welcome. Glad to help out and thanks for the feedback. Please comply with Forum Rule No. 9.

9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.