Ho un file excel con una riga dove inserisco la data e, nella colonna di fianco, il numero di giorni

Vorrei una macro che, vada a creare sotto la data, un numero di date orogressive pari al numero di giorni

Mi potete aiutare?
Grazie
Moderatori: Anthony47, Flash30005
Option Explicit
Sub Inserisci_Date()
Dim I As Integer
Range("A3:A" & Range("B2") + 2).Select
Selection.Insert Shift:=xlDown
Range("A3") = Range("A2")
For I = 4 To Range("B2") + 2
Cells(I, 1) = Cells(I - 1, 1) + 1
Next I
Range("A2").Select
End Sub
Cells(I, 3) = Range("C2")
Option Explicit
Sub Inserisci_Date()
Dim I As Integer
Range("A3:A" & Range("B2") + 2).Select
Selection.Insert Shift:=xlDown
Range("A3") = Range("A2")
For I = 4 To Range("B2") + 2
Cells(I, 1) = Cells(I - 1, 1) + 1
Cells(I, 3) = Range("C2")
Cells(I, 4) = Range("D2")
Cells(I, 5) = Range("E2")
Next I
Range("A2").Select
End Sub
Sub Inserisci_Date()
Dim I As Integer
Rows("3:" & Range("B2") + 2).Insert Shift:=xlDown
For I = 3 To Range("B2") + 2
Cells(I, 1) = Cells(I - 1, 1) + 1
Cells(I, 3) = Range("C2")
Cells(I, 4) = Range("D2")
Cells(I, 5) = Range("E2")
Next I
Range("A2").Select
End Sub
Torna a Applicazioni Office Windows
Eliminare righe diverse dalla prima data del mese Autore: dipdip |
Forum: Applicazioni Office Windows Risposte: 4 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 5 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Aggiungere e eliminare righe senza alterare i riferimenti de Autore: trittico69 |
Forum: Applicazioni Office Windows Risposte: 4 |
Visitano il forum: Nessuno e 24 ospiti