Vincolare l’esecuzione di una macro

[lone wolf]

Buon giorno a tutto il forum, come posso fare a vincolare l’esecuzione di una macro al contenuto di una cella con un Msgbox, Esempio: se la cella A1 è vuota si visualizzi un msgbox “Inserire dati nella cella A1”,
grazie a tutti e buona giornata

[Anthony47]

Ad esempio

Codice: Seleziona tutto

Sub LaTuaMacro
If Sheets("Foglio1").Range("A1")="" then
    MsgBox("Prima compila A1")
    Exit Sub
End If
'Continua col tuo codice
'


[lone wolf]

Buon giorno, grazie Anthony47 per l'aiuto così va bene ma se vorrei provare anche con l'inserimento della data direttamente dalla finestra del msgbox come dovrei fare?, grazie ancora per l'aiuto e buona giornata a tutti

[Anthony47]

Qualcosa come

Codice: Seleziona tutto

Dim DataA1 As Date
If Sheets("Foglio1").Range("A1") = "" Then
    On Error Resume Next
    DataA1 = CDate(InputBox("Data?", "Inserisci la data", Format(Date, "dd/mm/yyyy")))
    On Error GoTo 0
    If DataA1 > 0 Then
        Sheets("Foglio1").Range("A1") = DataA1
    Else
        Exit Sub
    End If
End If
'Continua il tuo codice


[lone wolf]

Buona serata a tutti, ok funziona tutto benissimo, grazie Anthony47 per l'aiuto e per la tua grande disponibilità grazie anche a tutto il forum, una buona serata a tutti