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
posizionati prima cella non "popolata" ma contenente formula Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel, Creare un Inventario delle macro Autore: Anthony47 |
Forum: Applicazioni Office Windows Risposte: 0 |
Trovare file Excel sapendo il nome di una macro Autore: papiriof |
Forum: Applicazioni Office Windows Risposte: 3 |
Filtro automatico non filtra più di un certo numero di righe Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 57 ospiti