MACRO CHE COPIA E INCOLLA DEI DATI DI UNA TABELLA NELLA PRIMA CELLA VUOTA

[tempusfugitPartecipante tempusfugit]

Buonasera gente del Forum,

come faccio a copiare delle celle da una tabella nella prima riga vuota?

in allegato codice e file di esempio.

Grazie.

Massimiliano

Sub COPIADATI()
    Application.ScreenUpdating = False
    Dim Prova
    Prova = MsgBox("ATTENZIONE VUOI COPIARE I DATI DALLE CELLE A5 A M12?                   VUOI PROSEGUIRE?", vbYesNo)
    If Prova = vbYes Then
    Range("A5:M12").Select
    Selection.Copy
    Range("A13").Select
    ActiveSheet.Paste
    End If
End Sub

Allegati:

You must be logged in to view attached files.

[Luca73Partecipante Luca73 Karma: 58 pts]

Ciao Visto il tuo schema assumo che la colonna B sia sempre occupata pertanto:

Sub COPIADATI_LT()
    Application.ScreenUpdating = False
    If MsgBox("ATTENZIONE VUOI COPIARE I DATI DALLE CELLE A5 A M12?" & vbCrLf & "VUOI PROSEGUIRE?", vbYesNo) = vbYes Then
        Range("A5:M12").Copy Destination:=Cells(4, 2).End(xlDown).Offset(1, -1)
    End If
    Application.ScreenUpdating = True
End Sub

[Autore]

Articoli