Question : Copier la rangée entière et la coller dans une nouvelle feuille de travail Excel VBA

Salut là, le

Hoping quelqu'un peut assister le code ci-dessous. Je suis nouveau à VBA et avais recherché des manières de réaliser ceci sur le filet et est ce ce qui j'ai jusqu'ici. le
Dim LastRow du

Sub SendtoStorage () comme Integer
LastRow = feuilles (« ResultsLog »). Range (« B » et Rows.Count). Extrémité (xlUp). Br entier/> de Row'< de Select

'Copy si c n'est rien destination du _
de Then
LastRow = de LastRow + de 1
olData.EntireRow.Copy : =Sheets (« Storage »). Extrémité With

I AM d'If
Next
de fin du
de Range (« A » et LastRow) essayant de copier la rangée entière de la feuille « ResultsLog », gamme « B4 : Y253 » si les rangées sont peuplées. Je veux que les rangées soient copiées à la feuille « stockage » de destination commençant dans A2. Des données seront continuellement ajoutées à ceci ainsi elles doivent trouver que la prochaine rangée vide et coller les données dans le
Once de la colonne A etc. que ces données ont été copiées, il doit dégager le contenu dans « ResultsLog », s'étendent " B4 : Y253 ». le

Hope ceci semble raisonnable. Je suis sûr que je suis totalement incorrect avec mon code, mais vraiment ai essayé de lui donner un aller. Quand j'utilise l'enregistreur cela ne fonctionne pas.
class= de

Réponse : Copier la rangée entière et la coller dans une nouvelle feuille de travail Excel VBA

Ce code fonctionnera pour ce que vous voulez, je peut le changer pour rechercher des valeurs plus blanches, en ce moment il seulement qu'il vérifie pour voir si les valeurs dans la colonne B sont blanches. J'ai attaché quelques essais avec les cellules blanches aléatoires dans la colonne B. Le macro suppose que vous avez un en-tête de colonne sur la feuille de stockage.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : 39 : 40 : 41 : 42 : 43 : 44 : 45 : 46 : 47 : 48 : 49 : 50 :

checkForValue secondaire () Faible currentSheet comme feuille de travail, WS comme feuille de travail Faible currentSelection comme gamme, cible comme gamme, subTarget comme gamme Faible screenUpdate comme booléen screenUpdate = Application.ScreenUpdating Application.ScreenUpdating = faux 'le programme enregistre la feuille de travail courante et le choix courant 'ainsi à la fin du programme vous pouvez faire retourner le programme à 'où vous étiez à l'origine Placer le currentSheet = l'Application.ActiveSheet Placer le currentSelection = l'Application.Selection Placer la cible = le champ de tir (« B4 : B253 ») Pour chaque subTarget dans la cible Si "" <> de subTarget.Value alors Gamme (subTarget, subTarget.End (xlToRight)). Copie Feuilles de travail (« stockage »). Choisi Gamme (« A1 »). Activer 'vérifier pour voir si la cellule A2 est blanche, si elle n'est pas blanche alors 'presser essentiellement Crtl + vers le bas flèche pour trouver dynamiquement la dernière cellule Si ActiveCell.Offset (1, 0). "" <> de valeur alors Selection.End (xlDown). Choisi Finir si 'compenser l'adresse de la cellule active par 1 rangée et puis la coller, 'si vous ne faisiez pas ceci vous recouvririez les vieilles valeurs ActiveCell.Offset (1, 0). Activer 'coller tout xlPasteAll d'ActiveCell.PasteSpecial Feuilles de travail (« ResultsLog »). Choisi Finir si Après Application.CutCopyMode = faux currentSheet.Select currentSelection.Select Application.ScreenUpdating = ScreenUpdating Placer le currentSheet = rien Placer le WS = rien Placer le currentSelection = rien Fixer l'objectif = rien Placer le subTarget = rien Finir le sous-marin