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

Questo thread è bloccata. È possibile votare come utile, ma non è possibile rispondere o sottoscrivere questo thread.

Risposta

Mauro Gamberini

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