Risultati da 1 a 8 di 8

Discussione: Excel 2007- Copiare dati da riga in riga con formula



  1. #1
    L'avatar di tk71
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Svizzera
    Messaggi
    108
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    59

    Excel 2007- Copiare dati da riga in riga con formula

    Ciao a tutti,

    spero di postare in modo corretto. ho qualche dubbio...VBA o non VBA.
    Volentieri senza perche sono un zero in conoscenze.
    Mi necessita con una formula che mentr escrivo nella riga 3 - F3-J3 copiasse verso il basso della riga sotto e allo stesso tempo riga 3 tornasse di nuova bianca.
    Con impostazione tabella in Z-A per data.

    Allego tabella esempio.

    Grazie mille chi mi da un aiuto.
    File Allegati File Allegati
    Ultima modifica fatta da:Canapone; 11/01/16 alle 15:27

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da tk71 Visualizza Messaggio
    Ciao a tutti,

    spero di postare in modo corretto. ho qualche dubbio...VBA o non VBA.
    Volentieri senza perche sono un zero in conoscenze.
    Mi necessita con una formula che mentr escrivo nella riga 3 - F3-J3 copiasse verso il basso della riga sotto e allo stesso tempo riga 3 tornasse di nuova bianca.
    Con impostazione tabella in Z-A per data.

    Allego tabella esempio.

    Grazie mille chi mi da un aiuto.
    Scusa TK71 ma non è più comodo avere un form con i vari dati da inserire e quando premi un pulsante ti accoda i dati nelle varie celle?
    se vuoi ti faccio un esempio e lo allego

    Ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7149
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300
    Con le formule:

    Anni:
    =SE.ERRORE(INDICE(C$1:G$1;RIF.RIGA(C1));"")

    Prezzo
    =SE.ERRORE(INDICE(C$2:G$2;RIF.RIGA(C1));"")

    e trascini verso il basso.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #4
    L'avatar di tk71
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Svizzera
    Messaggi
    108
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    59
    Grazie Baloon, volentieri accetto tuoi suggerimenti.

    @Ges scusami, ma non ho capito bene il genere di formule.

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da tk71 Visualizza Messaggio
    Grazie Baloon, volentieri accetto tuoi suggerimenti.

    @Ges scusami, ma non ho capito bene il genere di formule.
    ok eccoti un prototipo di quanto ti ho suggerito. Se ti va bene possiamo migliorarlo in base alle tue esigenze.

    - Clic sul pulsante ed inserisci i dati dopodichè clic sul pulsante AGGIORNA
    Ne puoi inserire quanti e vuoi alla fine clic sul pulsante FINE e nel foglio 1 guardati il risultato

    Fammi sapere!


    P.S. se lo hai già scaricato riscaricalo perchè mi sono accorto che il terzo orario è una differenza degli altri due e l'ho modificato.

    Codice: 
    Option Explicit
    
    Private Sub CmdAggiorna_Click()
    
    
    Dim miadata As Date
    Dim miaora As Date
    Dim uriga As Long
    Dim wsh As Worksheet
    
    
    Set wsh = ThisWorkbook.Worksheets("Foglio1")
    
    
    uriga = wsh.Range("F" & Rows.Count).End(xlUp).Row + 1
    wsh.Range("G" & uriga).Value = TxtNominativo
    TxtData.Value = Format(TxtData.Value, "dd/mm/yyyy")
    miadata = TxtData
    wsh.Range("F" & uriga) = miadata
    
    
    TxtOra1.Value = Format(TxtOra1.Value, "hh:mm")
    miaora = TxtOra1
    wsh.Range("H" & uriga) = miaora
    TxtOra2.Value = Format(TxtOra2.Value, "hh:mm")
    miaora = TxtOra2
    wsh.Range("I" & uriga) = miaora
    
    
    TxtNominativo = ""
    TxtData = ""
    TxtOra1 = ""
    TxtOra2 = ""
    TxtNominativo.SetFocus
    
    
    End Sub
    
    
    Private Sub CmdFine_Click()
    Unload UserForm1
    
    End Sub

    File Allegati File Allegati
    Ultima modifica fatta da:Gerardo Zuccalà; 11/01/16 alle 17:40 Motivo: Mancava codice VBA

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  6. #6

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7149
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300
    Citazione Originariamente Scritto da tk71 Visualizza Messaggio
    @Ges scusami, ma non ho capito bene il genere di formule.
    Hai ragione, scusami ho risposto in questo thread ad un quesito posto in un altro... non ne tenere conto.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  7. #7

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7149
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300
    Giusto per mio esercizio propongo un'alternativa alla UserForm di Baloon, con inserimento dati direttamente dal foglio.

    Codice: 
    Option Explicit
    
    
    Sub InserisciDati()
        Dim wks1 As Worksheet
        Dim y As Long
        Set wks1 = Worksheets("Foglio1")
        With wks1
            For y = 1 To 100
                y = .Range("F" & Rows.Count).End(xlUp).Row + 1
                .Range("E" & y) = .Range("E" & y).Offset(-1, 0) + 1
                .Range("F" & y) = .Range("F3")
                .Range("G" & y) = .Range("G3")
                .Range("H" & y) = .Range("H3")
                .Range("I" & y) = .Range("I3")
                .Range("J" & y) = .Range("I" & y).Value - .Range("H" & y).Value
                Exit For
            Next
            .Range("F3") = ""
            .Range("G3") = ""
            .Range("H3") = ""
            .Range("I3") = ""
            Range("J3") = ""
        End With
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  8. #8
    L'avatar di tk71
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Svizzera
    Messaggi
    108
    Versione Office
    Excel 2007
    Likes ricevuti
    0
    Likes dati
    59
    Ciao a tutti, mi scuso con tutti per la latitanza ma sono un po preso. Appena posso, x sett. prossima riprendo il tema.
    Rifaro`in parte la tabella perche effettivamente con l`aggiunta di un menu a tendina mi trovo meglio.

Discussioni Simili

  1. Risposte: 8
    Ultimo Messaggio: 10/03/17, 21:48
  2. [Risolto] Inserire riga vuota ogni riga contenente testo
    Di Samuela nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 29/12/16, 14:00
  3. Risposte: 6
    Ultimo Messaggio: 23/10/16, 18:02
  4. Risposte: 6
    Ultimo Messaggio: 11/12/15, 12:07
  5. copiare cella saltando una riga
    Di Raffaele Esposito nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 14/09/15, 21:42

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •