Condividi:        

EXCEL creazione date in righe sottostanti

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL creazione date in righe sottostanti

Postdi Marco75CT » 18/02/15 13:40

Ciao a tutti.
Ho un file excel con una riga dove inserisco la data e, nella colonna di fianco, il numero di giorni
Immagine
Vorrei una macro che, vada a creare sotto la data, un numero di date orogressive pari al numero di giorni
Immagine
Mi potete aiutare?
Grazie
Marco75CT
Utente Senior
 
Post: 146
Iscritto il: 05/08/11 11:54

Sponsor
 

Re: EXCEL creazione date in righe sottostanti

Postdi ricky53 » 18/02/15 13:45

Ciao,
si può fare.

Le date da inserire devono essere nella riga successiva a quella dove hai scritto la data?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL creazione date in righe sottostanti

Postdi Marco75CT » 18/02/15 14:31

Ciao Ricky
si e le nuove righe dovrebbero inserirsi tra la data e le righe sottostanti.
Marco75CT
Utente Senior
 
Post: 146
Iscritto il: 05/08/11 11:54

Re: EXCEL creazione date in righe sottostanti

Postdi ricky53 » 18/02/15 14:47

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL creazione date in righe sottostanti

Postdi Marco75CT » 18/02/15 15:22

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
Immagine
Marco75CT
Utente Senior
 
Post: 146
Iscritto il: 05/08/11 11:54

Re: EXCEL creazione date in righe sottostanti

Postdi ricky53 » 18/02/15 15:41

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 !!!
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL creazione date in righe sottostanti

Postdi Marco75CT » 18/02/15 15:56

Scusa! :oops:
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)
Immagine
Marco75CT
Utente Senior
 
Post: 146
Iscritto il: 05/08/11 11:54

Re: EXCEL creazione date in righe sottostanti

Postdi ricky53 » 18/02/15 16:03

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 ?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL creazione date in righe sottostanti

Postdi Marco75CT » 18/02/15 17:25

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
Marco75CT
Utente Senior
 
Post: 146
Iscritto il: 05/08/11 11:54

Re: EXCEL creazione date in righe sottostanti

Postdi ricky53 » 18/02/15 17:37

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL creazione date in righe sottostanti

Postdi Marco75CT » 18/02/15 17:47

Ciao, si tutto perfetto!
Spero di poter sbrigarmela da solo d'ora in avanti.
Grazie per il tuo impegno.
Marco75CT
Utente Senior
 
Post: 146
Iscritto il: 05/08/11 11:54

Re: EXCEL creazione date in righe sottostanti

Postdi ricky53 » 18/02/15 18:02

Ciao,
bel proposito.
Tieni duro.

Leggi la mia firma e ... in caso sai che ci trovi QUI
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL creazione date in righe sottostanti

Postdi Marco75CT » 18/02/15 19:35

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
Marco75CT
Utente Senior
 
Post: 146
Iscritto il: 05/08/11 11:54

Re: EXCEL creazione date in righe sottostanti

Postdi ricky53 » 19/02/15 00:12

Ciao,
e no ancora una cosa diversa ... meno male che ne sei uscito in autonomia. Bene.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL creazione date in righe sottostanti":


Chi c’è in linea

Visitano il forum: Nessuno e 34 ospiti