Perchè non funziona

Hai un problema con Excel?

Nuova discussione

Perchè non funziona?
di EF (utente non iscritto) data: 01/10/2017 10:09:16
salve a tutti
non riesco a capire perchè questo codice non funziona.
Vorrei che l'ultimo giorno di ogni mese, e soltanto l'ultimo giorno, il clic su un pulsante realizzasse qualcosa ( nell'esempio un copia incolla di una cella su un'altra).
L'elenco degli ultimi giorni di ciascun mese è da A1 ad A12.
Il blocco If non funziona anche quando nella finestra variabili locali Oggi e LastDay sono uguali.
L'idea finale sarebbe, dopo averne verificato il funzionamento, di porre Oggi=Date

Sub prova()
Dim LastDay As Date, Oggi As Date
Oggi = Cells(1, 3)
For r = 1 To 12
LasdDay = Cells(r, 1)
 If LastDay = Oggi Then
 Range("B1").Select
 Selection.Copy
 Range("B3").End(xlDown).Offset(1, 0).Select
 ActiveSheet.Paste
 End If
Next
End Sub

di patel data: 01/10/2017 10:29:08
allega il file per testare la macro
di Vecchio Frac data: 01/10/2017 14:28:08
1) La discussione è marcata come risolta: perchè?
2) LasDay è diverso da LastDay (impariamo a usare Option Explicit?)
3) Il titolo della discussione è inappropriato.

Vuoi Approfondire?