Het overdragen van gegevens tussen werkbladen Met behulp van een Macro

Leonard is het schrijven van een macro om gegevens van het ene werkblad naar het andere. Beide werkbladen in dezelfde werkmap. De gegevens hij wil overbrengen op het eerste blad en gebruikt een benoemd bereik: "SourceData". Het bestaat uit een enkele gegevensrij. Leonard wil, binnen de macro, overdragen van deze gegevens uit het eerste werkblad naar de eerste lege rij op het tweede werkblad, maar hij is niet helemaal zeker hoe om te gaan over dit.

Er zijn eigenlijk verschillende manieren waarop je kunt het doen, maar alle methoden hebben twee vereisten: De identificatie van de bron bereik en de identificatie van het doelbereik. De bron bereik is eenvoudig, omdat het vernoemd is. U kunt de bron opgeven in uw macro op deze manier:

Stel rngSource = Worksheets ("Blad1"). Range ("SourceData")

Het uitzoeken van de eerste lege rij in het doel werkblad is een beetje lastiger. Hier is een relatief gemakkelijke manier om het te doen:

iRow = Worksheets ("Blad2"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1
Stel rngTarget = Worksheets ("Blad2"). Range ("A" & iRow)

Wanneer voltooid, de rngTarget variabele punten in de richting van het bereik van cel A in welke de eerste lege rij is. (In dit geval een lege rij wordt gedefinieerd als elke rij die niet iets kolom A heeft)

Nu alles wat je hoeft te doen is deze bron en het doel varieert om te gebruiken met de methode Kopiƫren:

Sub copySource ()
Dim rngSource als Waaier
Dim rngTarget als Waaier
Dim iRow As Integer

Stel rngSource = Worksheets ("Blad1"). Range ("SourceData")
iRow = Worksheets ("Blad2"). Cells (Rows.Count, 1) .End (xlUp) .Row + 1
Stel rngTarget = Worksheets ("Blad2"). Range ("A" & iRow)
rngSource.Copy Bestemming: = rngTarget
End Sub

Merk op dat met de reeksen gedefinieerd, alles wat je hoeft te doen is gebruik maken van de Copy-methode van de bron bereik en geef het doelbereik als de bestemming voor de operatie. Wanneer voltooid, de oorspronkelijke gegevens is nog steeds in de bron bereik, maar is gekopieerd naar het doel.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (3852) is van toepassing op Microsoft Excel 97, 2000, 2002 en 2003. U kunt een versie van deze tip voor de ribbon-interface van Excel (Excel 2007 en later) vinden hier: Data overbrengen tussen Werkbladen Met behulp van een Macro.