Enable button if specific cells have values

[bobbieatendido]

Hi,

May i please ask for help on this excel problem i have?

My sheet looks like this: Picture1.png

I have 3 buttons, which already have macro's.
The buttons are, Button (Form Control)
I'm not really good at excel macros so what i did was, i duplicated the sheet to a new excel, recorded a macro then copied that macro code to the Button (Form Control).

I need these buttons to only be clickable when all cells have values in them.

Note: 9 are dropdown lists and 5 are manually entered.
Dropdown: C4, C6, (C14 D14 E14 F14 G14), M8 and M12
Manually entered: C8, C10, (C12 E12) and M1

[Olly]

Add this code to your module:

Public Function BlankCells() As Boolean
    Dim c As Range
    BlankCells = False
    For Each c In ActiveSheet.Range("C4,C6,C14,D14,E14,F14,G14,M8,M12,C8,C10,C12,E12,M1")
        If IsEmpty(c) Then
            BlankCells = True
            Exit Function
        End If
    Next c
End Function

Then insert this line at the very top of each of the individual button macros:

    If BlankCells Then Exit Sub

[bobbieatendido]

Hi Olly,

Thank you so much for your help!
It worked!

Last; would it be possible to add a pop up warning message saying that you cannot proceed since the cells are blank?

Thanks a bunch!

[Olly]

Happy to help.

Last; would it be possible to add a pop up warning message saying that you cannot proceed since the cells are blank?

Of course. Change the line you inserted at the top of each macro to:

    If BlankCells Then
        MsgBox "Unable to continue: some required cells are blank", vbExclamation + vbOKOnly
        Exit Sub
    End If

Change the message text to suit.

[bobbieatendido]

Thank you for solving everything Olly!

Please have a nice day ahead.

Cheers!

[Olly]

Happy to help, thanks for the feedback