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
Sintassi vba excel "salva come" Autore: antonio.lanciano |
Forum: Applicazioni Office Windows Risposte: 2 |
Inserire commento su cella attiva con macro Autore: lone wolf |
Forum: Applicazioni Office Windows Risposte: 35 |
Excel Macro x Adatta.h.righe SE più di 270 carat Autore: servicedynergy |
Forum: Applicazioni Office Windows Risposte: 2 |
Collegamento alla prima cella libera di colonna Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 20 ospiti