È soltanto un Pokémon con le armi o è un qualcosa di più? Vieni a parlarne su Award & Oscar!
 
Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

come aggiungere righe su un foglio excel inserendo dati in una cella

Ultimo Aggiornamento: 10/02/2017 12:28
Post: 1
Registrato il: 09/02/2017
Utente Junior
2010
OFFLINE
09/02/2017 13:01

ciao a tutti , premetto che non ho nessuna esperienza di programmazione delle macro.
Avrei questa necessità:
su un foglio excel che contiene un migliaio di righe, dovrei poter aggiungere una riga sotto quella dove sto inserendo dati se in una determinata cella inserisco una data.
Nella riga aggiunta dovrebbero essere copiati contenuti a sinistra della cella lavorata con la data.
esempio
rossi data esito , se metto la data sulla riga sotto mi riporta
rossi e se metto una nuova data ripete l'aggiunta di una riga
qualcuna sa dirmi come fare
la cella in questione e la x2
[SM=x423017]
Post: 2.724
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
09/02/2017 14:52

Ciao Stefano

Non so se riuscirò ad aiutarti ma probabilmente è il caso che tu alleghi un file di esempio spiegando, sulla base di questo, quello che vuoi fare/ottenere.

Alfredo
Post: 1
Registrato il: 09/02/2017
Utente Junior
2010
OFFLINE
09/02/2017 15:35

aggiungere righe
ecco il file
lo scopo è quello di duplicare la riga se nel campo data viene inserita la data
questo per tutte le righe del foglio come da esempio
alfrimpa, 09/02/2017 14.52:

Ciao Stefano

Non so se riuscirò ad aiutarti ma probabilmente è il caso che tu alleghi un file di esempio spiegando, sulla base di questo, quello che vuoi fare/ottenere.

Post: 2.727
Registrato il: 21/06/2013
Città: NAPOLI
Età: 70
Utente Veteran
Excel 365
OFFLINE
09/02/2017 19:55

Ciao Stefano

Premetto di non essere sicuro di aver capito bene comunque ti allego il tuo file con la seguente macro inserita

vb
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Not Intersect(Target, Range("l:l")) Is Nothing Then
    If IsDate(Target.Value) Then
        Target.Offset(1, 0).EntireRow.Insert
        For i = 1 To 11
            Cells(ActiveCell.Row, i).Value = Target.Offset(0, i - 12).Value
        Next i
    End If
End If
End Sub


Quando vai ad inserire una data in colonna L dovrebbe fare quello che hai chiesto.

Fai sapere.

Alfredo
Post: 2
Registrato il: 09/02/2017
Utente Junior
2010
OFFLINE
10/02/2017 12:28

funziona grazieeeeeee
[SM=x423030]
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 05:29. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com