Commenti a: Excel: avviso scadenze con pop-up (alert)

Di: 3333742384 domenico

3333742384 domenico — Fri, 03 Jan 2025 16:38:32 +0000

NON RIESCO A ESEGUIRE LA MACRO PERCHE’ MICROSOFT NE HA BLOCCATO L’ESECUZIONE.
POTETE AIUTARMI?

Di: adematte

adematte — Tue, 08 Aug 2023 15:21:05 +0000

Buongiorno, non ho mai usato prima le macro. Ho seguito il video e ho provato a modificare il testo del modulo per adattarlo alle mie esigenze ma senza successo. Avrei bisogno di un alert che manda un avviso 15 giorni prima della scadenza del pagamento. Ho messo come riferimento della data la colonna che indicava i 15 gg prima (ho aggiunto una colonna oltre la data di scadenza), ho modificato la parola “scadute” con “inscadenza”, ma non riesco a far funzionare la macro. Potreste cortesemente scrivermi un testo da copiare nel modulo?
Grazie mille e cordiali saluti.

Di: smoke_68

smoke_68 — Tue, 25 Apr 2023 07:23:57 +0000

Ho giocato un po’ con il codice semplificando la routine:
Sub NewControl()

Dim CellaF As Range
Dim CellaE As Range
Dim NumeroRecord As String
Dim ListaRecordScaduti As String
Dim ultimaR As Long

Application.ScreenUpdating = False

ultimaR = Cells(Rows.Count, 4).End(xlUp).Row

For Each CellaE In Range(“E2:E” & ultimaR)
If CellaE.Value < Range("H2").Value Then
CellaE.Offset(0, 1).Value = "SCADUTA"
NumeroRecord = Format(CellaE.Offset(0, -1).Value, "0000")

If ListaRecordScaduti = "" Then
ListaRecordScaduti = NumeroRecord
Else

ListaRecordScaduti = ListaRecordScaduti & ", " & NumeroRecord
End If

Else
CellaE.Offset(0, 1).Value = "OK"

End If
Next CellaE

If ListaRecordScaduti “” Then
MsgBox “Queste fatture sono SCADUTE: ” & ListaRecordScaduti
End If
Application.ScreenUpdating = True

End Sub

E’ grazie a chi divulga come te la propria conoscenza che ci si mette in gioco per imparare sempre qualcosa in più!

Di: Pino Montalto

Pino Montalto — Thu, 06 Apr 2023 16:43:56 +0000

NON RIESCO A ESEGUIRE LA MACRO PERCHE’ MICROSOFT NE HA BLOCCATO L’ESECUZIONE.
POTETE AIUTARMI?