Copie de données d'une feuille à une autre avec des boucles VBA

Question

Je suis un débutant à la programmation VBA, j'ai donc besoin de votre aide ici. Je dois créer une macro qui copie des données d'une feuille à l'autre. Donc, ce que j'ai fait est d'enregistrer une macro (en utilisant un enregistreur de macro) pour les étapes que je dois copier/coller. Maintenant, je dois créer une boucle pour le faire pour toutes les informations dont j'ai besoin.

Voici des captures d'écran de la feuille contenant les données:

Voici capture d'écran de la feuille que les données doivent être collées:

permet donc parler les données, que mon rapport contient. J'ai un rapport mensuel pour les pays, que mon entreprise sert. Chaque jour du mois, j'ai des prévisions qui devraient être téléchargées dans notre base de données.

Voici le code que je l'ai déjà:

Sub manual_upload() 

    Sheets("Forecast").Select 

    Range("G1").Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Selection.Copy 
    Sheets("Upload").Select 
    Range("A2").Select 
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
     False, Transpose:=True 


    Sheets("Forecast").Select 
    'ActiveWindow.ScrollColumn = 2 
    'ActiveWindow.ScrollColumn = 1 

    Range("C2").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Upload").Select 

    Range("B2").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 


    Application.CutCopyMode = False 
    Range("A2").Select 
    Selection.End(xlDown).Select 
    ActiveCell.Offset(0, 1).Select 
    Range(Selection, Selection.End(xlUp)).Select 
    Selection.FillDown 

    'Selection.AutoFill Destination:=Range("B2:B31") 
    'Range("B2:B31").Select 

    Sheets("Forecast").Select 
    Range("E2").Select 
    Selection.Copy 
    Sheets("Upload").Select 

    Range("C2").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
    Application.CutCopyMode = False 

    Range("b2").Select 
    Selection.End(xlDown).Select 
    ActiveCell.Offset(0, 1).Select 
    Range(Selection, Selection.End(xlUp)).Select 
    Selection.FillDown 

    'Selection.AutoFill Destination:=Range("C2:C31") 
    'Range("C2:C31").Select 

    Sheets("Forecast").Select 
    Range("B2").Select 
    Selection.Copy 
    Sheets("Upload").Select 

    Range("D2").Select 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
     :=False, Transpose:=False 
    Application.CutCopyMode = False 

    Range("c2").Select 
    Selection.End(xlDown).Select 
    ActiveCell.Offset(0, 1).Select 
    Range(Selection, Selection.End(xlUp)).Select 
    Selection.FillDown 

    'Selection.AutoFill Destination:=Range("D2:D31") 
    'Range("D2:D31").Select 

    Range("E2").Select 
    Sheets("Forecast").Select 
    Range("G2").Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    Selection.Copy 
    Sheets("Upload").Select 
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
     False, Transpose:=True 
    Sheets("Forecast").Select 
    Range("D2").Select 
    Application.CutCopyMode = False 
    Selection.Copy 
    Sheets("Upload").Select 
    Range("F2").Select 
    ActiveSheet.Paste 
    Application.CutCopyMode = False 
    Selection.AutoFill Destination:=Range("F2:F31") 
    Range("F2:F31").Select 

    'next i 
End Sub 

Je ne sais pas comment démarrer la boucle. Quelles données devraient être ajoutées comme un divers et etc. J'apprécierai votre aide.

Answer 1

Voici un guide pour effectuer ces étapes sans VBA si les données sont en une seule feuille (vous pouvez utiliser la fusion de plusieurs requêtes avec même structure si les données sont dans différentes feuilles):

1) Sélectionnez vos données et mis en place comme une table en appuyant sur Ctrl + T.:

2) Importer vos données à l'aide powerquery (excel 2016 à partir de l'option de la table est dans l'onglet données, dans les versions précédentes, vous devez installer le powerquery ajouter et utiliser la onglet de puissance). Une fenêtre apparaîtra avec les données de votre table. Vous travaillerez ensuite avec cette vue de vos données.

3) Supprimer des colonnes indésirables en mettant en surbrillance, puis cliquez droit Ôtez

4) Sélectionnez les colonnes Date et UNPIVOT. Vous pouvez sélectionner la première colonne de date puis maintenez la touche Maj et sélectionnez dernière colonne de date pour mettre en évidence tous)

5) Double-cliquez dans têtes de colonne pour renommer par exempleAttribut -> Date, valeur -> Prévision, Nom DB -> Pays

6) Vérifiez les types de données sont corrects

7) ReOrder vos colonnes pour correspondre à la sortie désirée en les faisant glisser à réarranger

8) finale ment proche et la charge de votre feuille de calcul

9) Voir le résultat

10) Vous pouvez ajouter des données à votre table de source, puis cliquez sur Actualiser la requête pour tout mettre à jour. Excuses table différente dans l'image que cette image est une modification ultérieure en réponse à une question. Lorsque vous sélectionnez une cellule dans votre tableau de résultats, la fenêtre de requête apparaît et vous verrez le nom de votre requête et une flèche d'actualisation verte. Cliquez sur ceci pour mettre à jour quand les données de source ont changé.