Copiez et Insérez les lignes d'une feuille à l'autre en appuyant sur un bouton de macro

J'ai ce classeur:
J'ai besoin d'avoir un bouton de macro que mon les utilisateurs peuvent cliquer sur la mention "Cliquez Ici pour Copier", puis j'ai besoin d'un code qui copie les lignes nombre de 5-25 de la feuille intitulée "TC-Star Ici", et j'ai besoin de la copie de lignes à insérer (j'ai besoin de l'collé les lignes à ne pas automatique supprimer celles qui étaient là auparavant, de sorte que les lignes insérées aurait à transférer les précédents vers le bas) sur une autre feuille nommée "Temps des Cartes". Les lignes insérées, j'ai besoin d'avoir à code à insérer de départ à la cellule A1. Donc, chaque fois que la macro bouton est cliqué, les lignes sont copiées, et insérés avec les données précédentes non modifiés/supprimés.

J'ai ce code pour l'instant:

Sub CopyInfo()
On Error GoTo Err_Execute
    Sheet2.Range("A1:F11").Value = Sheet1.Range("A1:F11").Value
    Sheet1.Range("A1:F11").Copy
    Sheet2.Range("A1").InsertCopiedCells
Err_Execute:
    MsgBox "All have been copied!"

End Sub

Mais à chaque fois que le bouton est cliqué, il colle les lignes sur les lignes existantes.

S'Il Vous Plaît Aider.

Oh, et vous pouvez troquer votre On Error GoTo, au moins temporairement. Il est peut-être la suppression de messages d'erreur qui pourrait être utile dans le diagnostic du problème.

OriginalL'auteur Dora | 2012-08-07

5

Est-ce que vous essayez?
```
Sub CopyInfo()
    On Error GoTo Err_Execute

    Sheet1.Range("A1:F11").Copy
    Sheet2.Range("A1").Rows("1:1").Insert Shift:=xlDown

Err_Execute:
    If Err.Number = 0 Then MsgBox "All have been copied!" Else _
    MsgBox Err.Description
End Sub
```
J'ai essayé ce code, Il semble que j'en ai besoin, mais j'ai besoin de faire une boucle et continue à copier depuis le haut déplacement vers le bas. Maintenant, il copie seulement à la première ligne, puis à chaque fois que je clique sur la macro, il garde d'adaptation au cours de la même zone.
Donc, ce serait joli si le code pourrait en quelque sorte à identifier la première ligne vide du haut, et à chaque fois, insère la sélection copiée qui en transférant la totalité du document vers le bas.
Hmm, j'ai raté ces messages. Le code ci-dessus copies Range("A1:F11") et pas seulement la 1ère ligne...

OriginalL'auteur Siddharth Rout
1

Cette ligne

Sheet2.Range("A1:F11").Value = Sheet1.Range("A1:F11").Value

est le réglage de la valeur de ces cellules sur la feuille Feuil2 pour les valeurs dans la feuille Sheet1, c'est de copier les valeurs et remplacer ce qui était là. ENSUITE, vous faites votre copie-opération d'insertion.

Supprimer/commentez cette ligne et de voir ce qui se passe.

Aussi, je crois que la copie de la zone et de la zone de collage doivent être de la même taille. Essayez de rendre Sheet2.Range("A1:F11").InsertCopiedCells

J'ai essayé de le supprimer, mais maintenant, rien de copies dans la Feuil2.
Ok. Je pense que la copie de la zone et de la zone de collage doivent être de la même taille. Essayez de rendre Sheet2.Range("A1:F11").InsertCopiedCells
J'ai tout essayé. J'ai essayé de faire ça, et il ne fonctionne pas. J'ai donc commencé avec ce nouveau code:Sub CopyInfo() on Error GoTo Err_Execute Sheets("Feuil1").Select Range("A1:F11").Sélectionnez Sélection.Copy Sheets("Feuil2").Sélectionnez Sélection.Insérez Err_Execute: MsgBox "Les Données ont été Copiés avec succès" End Sub TOUT ce que je VRAIMENT BESOIN est un code qui copie des lignes à partir d'une feuille et les insère dans une autre feuille sans que mes données soient remplacés.Quelqu'un peut s'il vous plaît aider moi. Je suis au-delà de la frustration.

OriginalL'auteur DGH

Simple - Utiliser une boucle (et Aussi, éteindre ScreenUpdating d'accélérer considérablement le temps de traitement)
Le suivant va copier toutes les lignes de la feuille nommée "Feuil2" sur la même ligne dans la feuille nommée "Feuil1"

Sub CopyOver()
    Application.ScreenUpdating = False
    For j = 1 To 1560 'Or however many rows u have
        On Error GoTo Err_Execute
        Sheets("Sheet2").Rows(j).Copy
        Sheets("Sheet1").Rows(j).Insert Shift:=xlDown
    Next j
    Application.ScreenUpdating = True
    Err_Execute:
        If Err.Number = 0 Then MsgBox "All have been copied!" Else _
        MsgBox Err.Description
End Sub

OriginalL'auteur HelpNeeded

Merci pour le poste mec~, chaque réponse fournisseur de résoudre mon problème,~.

Voici mon codage à utiliser dans excel, pour chaque sélection insertion de la Feuille 2,

  Private Sub CommandButton2_Click()

      Selection.Copy
      Sheet2.Range("A4").Rows("1:1").Insert Shift:=xlDown
      Sheets("Sheet1").Select
      Application.CutCopyMode = False
      Selection.Delete Shift:=xlUp

  End Sub

OriginalL'auteur Han

0
```
Sub Test()
    With ActiveSheet
    lastrow = .Cells(.rows.Count, "A").End(xlUp).Row
    lastrow = lastrow - 1
    MsgBox lastrow
    End With
End Sub
```
à Partir de l'examen de la file d'attente: puis-je vous demander à s'il vous plaît ajouter un peu plus le contexte autour de votre réponse. Code-seulement les réponses sont difficiles à comprendre. Il aidera le demandeur et les futurs lecteurs à la fois si vous pouvez ajouter plus d'informations dans votre post.

OriginalL'auteur kumar

Vous devez vous connecter pour publier un commentaire.