EXCEL creazione date in righe sottostanti

[Marco75CT]

Ciao a tutti.
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

[ricky53]

Ciao,
si può fare.

Le date da inserire devono essere nella riga successiva a quella dove hai scritto la data?

[Marco75CT]

Ciao Ricky
si e le nuove righe dovrebbero inserirsi tra la data e le righe sottostanti.

[ricky53]

Ciao,
allora in "A2 tu scrivi una data, vorresti inserire prima di "A3" n-volte (tante quante il numero in "B2") delle date a partire da quella scritta in A2 andando in sequenza giornaliera (secondo il tuo esempio iniziale).

DOMANDA: se la data che scrivi in "A2" è maggiore di quella esistente nella "A3" le date vanno comunque inserite prima di "A3" ?


Intanto prova questo codice

Codice: Seleziona tutto

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

[Marco75CT]

Ciao Ricky,
è perfetto!
Ora ti chiedo, se possibile, di indicarmi come dire alla macro di copiare di fianco alla data creata, le celle presenti alla destra della cella con la data inserita.
Cercherò di spiegarmi con un esempio

[ricky53]

Ciao,
... perchè non lo hai scritto prima che ti occorreva anche questa informazione?

NON mi è molto chiaro cosa ti occorre (i dati da copiare in quali colonna si trovano?) ... ci provo:
nel ciclo For/Next aggiungi

Codice: Seleziona tutto

Cells(I, 3) = Range("C2")

Ho ipotizzato che "Banane" sia scritto in "C2" altrimenti cambia !!!


E' preferibile che tu invii un'immagine completa: ossia anche con le colonne e le righe ... e parti dalla colonna "A" prima riga !!!

[Marco75CT]

Scusa!
Ho fatto come mi hai detto:

Codice: Seleziona tutto

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

Ma le celle inserite non mi spostano in basso quelle già esistenti (con la scritta TEST)

[ricky53]

Ciao,
è giusto che NON si sono spostate perchè tu non avevi detto bene cosa ti occorreva ed io ho ... dovuto interpretare e ... avrei dovuto farti le domande prima di proporti la soluzione (cosa che faccio sempre ma questa volta ... ho trasgredito alla mia regola ... e male me ne è incorso !!!!)

Facezie a parte tu vuoi spostare in basso l'intera riga "3" e non solo la prima colonna come avevi fatto intendere ....
Confermi ?

[Marco75CT]

Esatto!
praticamente l'intento è quello di inserire una data ed il numero di giorni totali.
Fatto ciò, la macro creerà sotto la data e sopra l'intera riga A3, tante righe quante sono i giorni e queste righe dovranno contenere:
A3=A2
B3=""
C3=C2
D3=D2
E3=E2
poi, se i gg. sono più di 1
A4=A2+1
B4=""
C4=C2
D4=D2
E4=E2
e così via
So che non sono stato chiaro, ma sto cercando anche io di immaginare come fare per arrivare al risultato desiderato ed è possibile che abbia ancora bisogno del vostro utilissimo aiuto, sempre che sia possibile.
Grazie 1000

[ricky53]

Caio,
prova con questa nuova versione:

Codice: Seleziona tutto

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

Nella colonna "B", in base a quanto hai scritto adesso, non ti occorre alcun dato!
Confermi?


Per ulteriori esigenze ci trovi QUI ... in caso l'argomento e/o la richiesta fossero diversi inserisci un nuovo quesito

[Marco75CT]

Ciao, si tutto perfetto!
Spero di poter sbrigarmela da solo d'ora in avanti.
Grazie per il tuo impegno.

[ricky53]

Ciao,
bel proposito.
Tieni duro.

Leggi la mia firma e ... in caso sai che ci trovi QUI

[Marco75CT]

Ciao Ricky,
scusami, ma non riesco ad andare avanti.
Il codice Cells(I, 3) = Range("C2") copia i valori della cella C2, ma come faccio a far incollare la formula?
Grazie

RISOLTO
Ho aggiunto .FormulaR1C1

[ricky53]

Ciao,
e no ancora una cosa diversa ... meno male che ne sei uscito in autonomia. Bene.