Comment faire pour copier des colonnes spécifiques à partir d'une feuille et de le coller dans une autre feuille dans une autre gamme?

Je suis un débutant et j'ai ce code ci-dessous, mais cela ne fait que copier la dernière ligne de la feuille et les pâtes dans la feuille 2 de la gamme. Fondamentalement, la ligne vide n'est pas mis à jour. Et aussi jette erreur d'exécution 1004 - Application définie ou objet défini à l'erreur. Toute aide serait grandement appréciée.

Sub copypaste()
Dim lastrow As Long, erow As Long

lastrow = ThisWorkbook.Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow

Sheet1.Cells(i, 3).Copy
erow = ThisWorkbook.Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Sheet1.Paste Destination:=Worksheets("Sheet2").Cells(erow, 2)
Sheet1.Cells(i, 14).Copy
Sheet1.Paste Destination:=Worksheets("Sheet2").Cells(erow, 4)
Sheet1.Cells(i, 6).Copy
Sheet1.Paste Destination:=Worksheets("Sheet2").Cells(erow, 3)

Next i

Application.CutCopyMode = False
ThisWorkbook.Worksheets("sheet2").Columns().AutoFit
Range("A1").Select

End Sub

Permet de dire que c'est la feuille 1
la feuille 1

et c'est feuil2:
feuil2:

Où les en-têtes sont légèrement différentes de nommage et il y a aussi un changement de position. Et la dernière ligne de la feuille 1 est varié.

  • Vous avez expliqué ce que fait le code, pouvez-vous expliquer ce que vous voulez qu'il fasse. Un exemple du résultat souhaité serait utile également.
  • Ce que je veux c'est de copier la colonne 3 de la Feuille 1 pâte dans la colonne 2 de l'annexe 2, copie de la colonne 14 de la feuille 1 et de le coller dans la colonne 4 de la feuille 2, etc .. Et je veux faire la même chose sans la copie des en-têtes de les deux feuilles. Enfin, quand je lance la macro, j'ai envie de données à copier à partir de la feuille 1 feuille 2, SANS les en-têtes et dans une autre région. Espérons que cette aide
  • j'ai édité la question et ajouté des détails trop
InformationsquelleAutor Visa | 2016-05-11
  1. 1

    Essayer ce, toujours mieux pour éviter de copier et coller.

    Sub copypaste()
Dim lastrow As Integer, erow As Integer, sheet1 As Worksheet, sheet2 As Worksheet

Set sheet1 = Worksheets("Sheet1")
Set sheet2 = Worksheets("Sheet2")
lastrow = sheet1.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastrow
    erow = sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
    sheet2.Cells(erow, 2) = sheet1.Cells(i, 3)
    sheet2.Cells(erow, 3) = sheet1.Cells(i, 6)
    sheet2.Cells(erow, 4) = sheet1.Cells(i, 14)
Next i

'ThisWorkbook.Worksheets("Sheet2").Columns().AutoFit
'sheet1.Cells(1, 1).Activate
End Sub
    • C'est encore de me donner erreur d'Exécution 1004 -Application définie ou d'un objet défini erreur..
    • J'ai juste commenté les deux dernières lignes de la curiosité, pouvez-vous essayer avec le nouveau code et de voir si il arrive encore?
    • Son travail.. 🙂 Merci beaucoup.. Mais je suis curieux de savoir comment.
    • J'ai remarqué qu'il se passait un peu de temps sur le mien pour juste la toute dernière "Range("A1").Sélectionnez" et je dois être honnête, je n'ai aucune idée! Si cette réponse est de travailler s'il vous plaît n'oubliez pas de marquer comme acceptée.
    • Haha en tout cas merci beaucoup pour votre réponse rapide. Je viens de le marquer comme acceptée. Cheers!
    InformationsquelleAutor Tim Wilkinson