VBA incolla non fnziona

Question

ciao a tutti sto lavorando a un progettino di una classifica calcetto, in cui vorrei che attraverso un bottone macro mi inserisse in autometico i nomi dei vincitori delle partite in un database.

ho usato questa macro ma mi da come errore il comando incolla.

'

Range("F12:G12").Select 

Selection.Copy 

Range("Tabella5[[#Headers],[DATA]]").Select 

Selection.End(xlDown).Select 

Selection.ListObject.ListRows.Add AlwaysInsert:=False 

Range("A16").Select 

ActiveSheet.Paste 

End Sub

mi esce scritto: "errore di run-time 1004. errore nel metodo paste nella casse worksheet"

se qualcuno potrebbe aiutarmi gliene sarei molto grato.

grazie mille

Answer 1

Ciao Nicolo,

ciao a tutti sto lavorando a un progettino di una classifica calcetto, in cui vorrei che attraverso un bottone macro mi inserisse in autometico i nomi dei vincitori delle partite in un database.

ho usato questa macro ma mi da come errore il comando incolla.

'

Range("F12:G12").Select

Selection.Copy

Range("Tabella5[[#Headers],[DATA]]").Select

Selection.End(xlDown).Select

Selection.ListObject.ListRows.Add AlwaysInsert:=False

Range("A16").Select

ActiveSheet.Paste

End Sub

mi esce scritto: "errore di run-time 1004. errore nel metodo paste nella casse worksheet"

se qualcuno potrebbe aiutarmi gliene sarei molto grato.

grazie mille

Prova qualcosa del genere:

'========>>

Option Explicit

'-------->>

Public Sub Tester()

Dim oTabella As ListObject 

Dim oListRow As ListRow 

Const sTabella As String = **"Tabella5"                                   '<<=== Modifica** 

Const sIntervallo\_da\_Copiare As String = **"F12:G12"            '<<=== Modifica** 

With ActiveSheet 

    Set oTabella = .ListObjects(sTabella) 

    Set oListRow = oTabella.ListRows.Add 

    oListRow.Range.Value = .Range(sIntervallo\_da\_Copiare).Value 

End With 

End Sub

'<<========

Se dovessi avere ancora problemi, ti consiglio di caricare il tuo file problematico, privo di dati sensibili o estranei.

Per caricare il file su Microsoft OneDrive, vedi:

https://support.office.com/it-it/article/Condividere-file-e-cartelle-di-OneDrive-9fcc2f7d-de0c-4cec-93b0-a82024800c07

Nel caso di DropBox, vedi:

https://www.dropbox.com/it/help/topics/sharing_files_and_folders

===

Regards,

Norman