Risultati da 1 a 12 di 12

Discussione: Copiare dati celle in colonne altro foglio



  1. #1
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Copiare dati celle in colonne altro foglio

    Tenendo conto (come vedrete dall'allegato) che di vba ne capisco praticamente zero, prendendo esempio da un aiuto precedente in questo forum vorrei poter inserire (tramite pulsante) i dati che ho nel foglio "Inserimento Dati" in "Registro Partite", nelle varie righe a seconda del numero partita che ho scritto/selezionato nel primo foglio.

    Ho provato a buttare giù del codice sulla falsariga di un aiuto precedente ma mi sono perso...

    Vi chiedo anche se è possibile creare un pulsante che fa il contrario (ovvero azzera i dati relativi al numero di partita selezionata).

    L'importante è che mi potete spiegare l'eventuale codice che mettete così che posso capire e imparare e non fare solo copia/incolla.

    Vi ringrazio infinitamente come sempre.
    File Allegati File Allegati

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304

    Re: Copiare dati celle in colonne altro foglio

    Ciao,
    correggo ed integro il tuo codice, vedi se può andar bene.
    Codice: 
    Option Explicit
    Sub pulsantepartite()
    Dim wks1 As Worksheet, wks2 As Worksheet, uRow As Long
        Set wks1 = Worksheets("Inserimento Dati")
        Set wks2 = Worksheets("Registro Partite")
            uRow = wks2.Range("A" & Rows.Count).End(xlUp).Row + 1
            With wks2
                  .Range("A" & uRow) = wks1.Range("B3")
                  .Range("B" & uRow) = wks1.Range("B4")
                  .Range("C" & uRow) = wks1.Range("B5")
                  .Range("D" & uRow) = wks1.Range("B6")
                  .Range("E" & uRow) = wks1.Range("B7")
                  .Range("F" & uRow) = wks1.Range("B8")
                  .Range("G" & uRow) = wks1.Range("B9")
                  .Range("J" & uRow) = wks1.Range("B10")
                  .Range("K" & uRow) = wks1.Range("B11")
                  .Range("L" & uRow) = wks1.Range("B12")
                  .Range("M" & uRow) = wks1.Range("B13")
                  .Range("N" & uRow) = wks1.Range("B14")
            End With
            wks1.Range("B3:B13") = ""
        Set wks1 = Nothing
        Set wks2 = Nothing
        MsgBox "Partita registrata correttamente!", vbInformation, "AVVISO"
    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!

  3. #3
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Copiare dati celle in colonne altro foglio

    Ti ringrazio GES come sempre.
    Unica cosa io non vorrei però che i dati venissero inseriti incrementando le righe in Registro Partite.
    Io vorrei poter fare che ad ogni riga di Registro Partite è associato un numero partita e quando inserisco i dati relativi ad una partita, esempio partita n°5, in Registro Partite mi vengono inseriti (o sovrascritti) i dati relativi alla partita 5, quindi senza incremento.


    Guardavo inoltre come poter fare un pulsante che invece azzerasse i valori relativi ad una partita: ho trovato un codice del genere Worksheets("Registro Partite").Range("Range celle").Clear, ma anche qui non saprei come associarlo ai numeri partita voluti.

    Grazie ancora!!!

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Copiare dati celle in colonne altro foglio

    Ciao Cavier80, visto che Ges non ti ha ancora risposto, lo faccio io. Prova così:
    Codice: 
    Option Explicit
    Sub PulsantePartite()
    Dim wks1 As Worksheet, wks2 As Worksheet, iRow As Long, i As Integer
    Dim Domanda As String
        
    Set wks1 = Worksheets("Inserimento Dati")
    Set wks2 = Worksheets("Registro Partite")
    
    
    iRow = wks1.Range("B3")
    
    
    If wks2.Cells(iRow + 2, 2) <> "" Then
        Domanda = MsgBox("Partita già registrata" & Chr(13) & "Vuoi sovrascrivere?", vbInformation + vbYesNo, "Attenzione")
        If Domanda = vbNo Then Exit Sub
    End If
    
    
    For i = 1 To 11
        If i < 8 Then
            wks2.Cells(iRow + 2, i) = wks1.Cells(i + 2, 2)
        Else
            wks2.Cells(iRow + 2, i + 2) = wks1.Cells(i + 2, 2)
        End If
        
    Next
    
    
    Set wks1 = Nothing
    Set wks2 = Nothing
    
    
    MsgBox "Partita registrata correttamente!", vbInformation, "AVVISO"
    
    
    End Sub
    
    
    Sub Reset()
    Dim iRow As Long
    
    
    iRow = Worksheets("Inserimento Dati").Range("B3") + 2
    
    
    Worksheets("Registro Partite").Range(Cells(iRow, 2), Cells(iRow, 14)).ClearContents
    End Sub

  5. #5
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Copiare dati celle in colonne altro foglio

    Che dire? Proprio questo volevo! Grazie.

    Unica cosa è il pulsante reset che ho creato a cui ho assegnato la macro reset: mi da "Errore definito dalla applicazione o dall'oggetto".

    Comunque l'immissione dati è perfetta. Molto gentile grazie ancora.

  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Copiare dati celle in colonne altro foglio

    Scusa colta mia. Sostituisci la macro reset:
    Codice: 
    Sub Reset()
    Dim iRow As Long
    
    
    iRow = Worksheets("Inserimento Dati").Range("B3") + 2
    
    
    Worksheets("Registro Partite").Range("B" & iRow & ":N" & iRow).ClearContents
    End Sub

  7. #7
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Copiare dati celle in colonne altro foglio

    Troppo bravo. E' tutto veramente perfetto!!!
    Più che ringraziare te e GES non posso.
    Mitici!!!!!

  8. #8

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304

    Re: Copiare dati celle in colonne altro foglio

    Bene, se hai risolto segna questa discussione come RISOLTA dal menu in alto alla voce "Strumenti discussione".

    P.S. - Se quando fai il reset non ti serve lasciare il numero inserito nel registro partite modifica la sub di Rubik cambiando la lettera della colonna (in rosso):
    Codice: 
    Sub Reset()
    Dim iRow As Long
    iRow = Worksheets("Inserimento Dati").Range("B3") + 2
    Worksheets("Registro Partite").Range("A" & iRow & ":N" & iRow).ClearContents
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  9. #9
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Copiare dati celle in colonne altro foglio

    Capito! Grazie.

  10. #10
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Copiare dati celle in colonne altro foglio

    Ancora una cosa.. ho dovuto allungare di una riga l'intestazione nel Registro Partite.
    Per quanto riguarda l'inserimento ho risolto ma non riesco a sistemare il pulsante di reset in modo che "punti" correttamente alla riga giusta.
    Cosa devo aggiungere/modificare? un +1 dove è scritto iRow?
    Vi ringrazio

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Scusa colta mia. Sostituisci la macro reset:
    Codice: 
    Sub Reset()
    Dim iRow As Long
    
    
    iRow = Worksheets("Inserimento Dati").Range("B3") + 2
    
    
    Worksheets("Registro Partite").Range("B" & iRow & ":N" & iRow).ClearContents
    End Sub

  11. #11

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Copiare dati celle in colonne altro foglio

    Citazione Originariamente Scritto da Cavier80 Visualizza Messaggio
    Ancora una cosa.. ho dovuto allungare di una riga l'intestazione nel Registro Partite.
    Per quanto riguarda l'inserimento ho risolto ma non riesco a sistemare il pulsante di reset in modo che "punti" correttamente alla riga giusta.
    Cosa devo aggiungere/modificare? un +1 dove è scritto iRow?
    Vi ringrazio
    Esatto:286:

  12. #12
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Copiare dati celle in colonne altro foglio

    :286:

Discussioni Simili

  1. Risposte: 14
    Ultimo Messaggio: 16/11/16, 20:36
  2. Risposte: 3
    Ultimo Messaggio: 14/11/16, 22:00
  3. Risposte: 10
    Ultimo Messaggio: 08/11/16, 15:13
  4. Copiare colonne e accodarle in altro foglio
    Di milanetti nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 02/08/16, 11:22
  5. copiare celle con dati su altro foglio
    Di dorico75 nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 30/05/16, 18:20

Tag per Questa Discussione

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
  •