macro per copiare dati su altro foglio nella prima riga libera

Ciao a tutti!
Avrei una esigenza e non so proprio come fare....
Sto lavorando ad un file (http://sdrv.ms/Y9sl6t) composto da tre fogli:
- Report singolo: si inseriscono alcuni dati (il foglio linkato è molto semplice ma quello su cui sto lavorando ha moltissimi campi in più)
- Registro: nel quale dovrebbero essere trasferiti tutte le singole operazioni effettuate nel foglio "Report singolo";
- Report totale: un foglio che riassume l'attività svolta.
Per quest'ultimo nessun problema.
Il mio problema è sul "Report singolo" perchè mi occorrerebbe creare una macro che consenta, una volta inserito tutti i dati, di poterli trasferire nel foglio "Registro". Naturalmente, ogni volta occorrerà incollare i dati in una riga diversa (la prima libera)...
voi potreste aiutarmI????
Ve ne sarei grato!

Grazie a tuttiiiiiiiiiii

 

Informazioni domanda


Ultimo aggiornamento ottobre 25, 2018 Visualizzazioni 4.872 Si applica a:
Risposta
 
Il mio problema è sul "Report singolo" perchè mi occorrerebbe creare una macro che consenta, una volta inserito tutti i dati, di poterli trasferire nel foglio "Registro". Naturalmente, ogni volta occorrerà incollare i dati in una riga diversa (la prima libera)...
voi potreste aiutarmI????


Copia/incolla questa macro in un modulo standard:

 

Public Sub m()

    Dim shModulo As Worksheet
    Dim shRegistro As Worksheet
    Dim lRiga As Long
    Dim lng As Long
   
    With ThisWorkbook
        Set shModulo = .Worksheets("Report singolo")
        Set shRegistro = .Worksheets("Registro")
    End With
   
    With shRegistro
        lRiga = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        For lng = 4 To 11
            .Cells(lRiga, lng - 3).Value = shModulo.Cells(lng, 4).Value
        Next
    End With
   
   
    Set shModulo = Nothing
    Set shRegistro = Nothing
   
End Sub

 

Puoi poi eseguirla tramite pulsante di scelta rapida. Vedi qui se non hai mai utilizzato le macro di Excel:

http://www.maurogsc.eu/excel/xlsdoveinserirecodice.aspx

--
Mauro Gamberini
Microsoft© MVP (Excel)
http://www.maurogsc.eu

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.

Risposta

Ciao Ricciardi Francesco,

intanto che aspettiamo Mauro (ciao!)... Direi che

  • lRiga

e

  • IRiga

non siano la stessa cosa. Probabilmente non usi:

  • Option Explicit

che è la medicina per questi mali.

 

Per impostare tale (vitale!) opzione una volta per tutte:

  • Strumenti > Opzioni
    Editor
    [x] Dichiarazione di variabili obbligatoria
    [ OK ]
Ciao!
Maurizio

Il problema è stato risolto?

Siamo spiacenti che questo non sia stato d'aiuto.

Fantastico! Grazie per aver scelto questa risposta.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento, ci aiuta a migliorare il sito.

Sei soddisfatto di questa risposta?

Grazie per il tuo commento.