[Risolto]Cancella contenuto celle dopo un determinato periodo

[ferro0099]

Vorrei cnacellare il contenuto di un range di celle dopo un determinato periodo di esempio (es. 3gg)
in giro per il web ho trovato questa macro:

Private Sub Workbook_Open()
Dim d As Date
d = Worksheets("Foglio1").Range("B1").Value
If DateDiff("d", d, CDate(Format(Now, "dd/mm/yyyy"))) >= 3 Then
Worksheets("Foglio1").Range("A1").Value = ""
End If
End Sub

modificandola in :

Sub CancellaTime()
Doc = ThisComponent
Foglio = Doc.Sheets.GetByName("Magazzino")

Dim d As Date
d = Foglio.GetCellRangeByName("B1").Value

If DateDiff("d", d, CDate(Format(Now, "dd/mm/yy"))) >= 3 Then
'Worksheets("Magazzino").Range("B5").String = ""
Foglio.GetCellRangeByName("B5:D14").ClearContents(7)

End If
End Sub

ho provato a modificare in .........., ma dà sempre errore :

Sub CancellaTime()
Doc = ThisComponent
Foglio = Doc.Sheets.GetByName("Foglio1")

d = Foglio.GetCellRangeByName("A1").data
d1 = Foglio.GetCellRangeByName("B1").data

If DateDiff("d",d,d1) > 3 then


Foglio.GetCellRangeByName("A2:D10").ClearContents(5)

End If
End Sub

[lucky63]

Vorrei cnacellare il contenuto di un range di celle dopo un determinato periodo di esempio (es. 3gg)

.
... se la data di cella B1 è maggiore di 3 giorni alla data di cella A1 cancellare con macro i dati del range A2:D10 ...
.

Test - CancellaRangeA2D10Condizionato - 01.png (23.02 KiB) Visto 1469 volte

.
dopo esecuzione macro
.

Test - CancellaRangeA2D10Condizionato - 02.png (9.04 KiB) Visto 1469 volte

[ferro0099]

Grazie Lucky , funziona benissimo

In allegato hoo modificato il tuo file , chiedendo ..... :

Se volessi cancellare solo il contenuto delle celle sempre basandomi sui 3 giorni ma prendendo in riferimento l'ultima data di inserimento (es 17/06/24) e farlo su tabelle distinte ?
E nelle stesso tempo riportare i dati sotto non cancellati nelle celle superiori
...spero di essermi spiegato , comnque nell'allegato dovrebbe essere comprensibile l'esempio

Grazie

[lucky63]

Nelle tabelle (DOPO) è cancellato tutto prima di OGGI 17/06/2024 ma in tabelle (PRIMA) hai anche date con giorno 14 e 15.
Cosa centrano i tre giorni ...

[ferro0099]

Nelle tabelle (DOPO) è cancellato tutto prima di OGGI 17/06/2024 ma in tabelle (PRIMA) hai anche date con giorno 14 e 15.
Cosa centrano i tre giorni ...

Intanto buongiorno e grazie per il supporto .....Non mi sono fatto capire .... la tabella prima sarebbe la tabella prima di eseguire una possibile macro, cioè vorrei che le righe dove in corrispondezza di date inferiori di 3 gg rispetto all'ultimo dato inserito , venisse cancellato il contenuto e le altre spostate in alto questo per ogni tabella singolarmente

Ho ri-allegato il file , con + istruzioni

Dimenticavo , il prima e dopo riferito alle tabelle non vuol dire che devono rimanere tutte e 4 le tabelle , ma è solo un esempio grafico , la tabella rimane sempre quella per ogni cliente ma con una possibile macro viene aggiornata

[lucky63]

date inferiori di 3 gg rispetto all'ultimo dato inserito , venisse cancellato il contenuto e le altre spostate in alto

.
Prima

Test - Macro - AggiornaAgliUltimiTreGiorniDelleDateDelleTabelleNeiRangeA5C13eE5G13 - 01.png (31.26 KiB) Visto 1407 volte

.
Dopo

Test - Macro - AggiornaAgliUltimiTreGiorniDelleDateDelleTabelleNeiRangeA5C13eE5G13 - 02.png (20.45 KiB) Visto 1407 volte

.
Note varie:
- La macro aggiorna contemporaneamente i dati delle due tabelle dei range A5:C13 e E5:G13
- Se si spostano e/o ampliano le tabelle è necessario adattare la macro ai nuovi range.
- NON COMPILARE LA RIGA 13 DELLE TABELLE oppure COPIARLA VUOTA SULLA 14 (e/o Adattare la macro).
.

[ferro0099]

Perfetto gentilissimo e TOP ....grazie