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
Moderatori: Anthony47, Flash30005
Sub LaTuaMacro
If Sheets("Foglio1").Range("A1")="" then
MsgBox("Prima compila A1")
Exit Sub
End If
'Continua col tuo codice
'
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
Torna a Applicazioni Office Windows
Errore 1004 su macro salva file come mht - mhtml Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 4 |
Macro copia dati colonne non contigue su un altro file excel Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 16 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Visitano il forum: Nessuno e 41 ospiti