Ciao a tutti,
vi pongo questo quesito sperando inun vostro aiuto, ho un foglio excel nel quale mi interssa incrementare di 1, una cella, quindi un contatore progressivo, ogni 5 del mese
grazie a tutti
Moderatori: Anthony47, Flash30005
Private Sub Workbook_Open()
If Sheets("Foglio1").Range("B1") <> "" Then
Dim Mese As Integer, Diff_Mesi As Integer
Mese = Month(Sheets("Foglio1").Range("B1"))
Diff_Mesi = 0
If Mese <> Month(Date) Then
Diff_Mesi = Month(Date) - Mese
If Diff_Mesi < 0 Then
Diff_Mesi = 12 + Diff_Mesi
End If
End If
If Day(Date) >= 5 And Diff_Mesi > 0 Then
Sheets("Foglio1").Range("A1") = Sheets("Foglio1").Range("A1") + Diff_Mesi
Sheets("Foglio1").Range("B1") = Date
End If
Else
Sheets("Foglio1").Range("A1") = 1
Sheets("Foglio1").Range("B1") = Date
End If
End Sub
=DATA.DIFF("01/01/2015";OGGI()-5;"M")
Torna a Applicazioni Office Windows
colora parte di frase/ Parola in stessa cella Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 6 |
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
Automatizzare numero settimane nel mese di un anno Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 123 ospiti