Excel - Kopieer gegevens naar de volgende lege cel in een nieuw blad

Kwestie

Ik probeer een werkmap van 2 pagina's te maken met de invoergegevens in Blad1

A1 en dit wordt wekelijks gewijzigd, maar de informatie in deze cel moet dan zijn

ingevoegd in de eerste lege cel in kolom A in blad 2.

Ik heb deze code geprobeerd (hieronder) maar het lijkt niet te werken en misschien ben ik dat ook

iets verkeerd doen. Kan iemand me laten weten of deze code zou moeten werken

voor dit doel of is er een andere code die ik zou kunnen proberen?

Code die momenteel wordt gebruikt:

 Sub copytonextsheet () Met Sheets ("Sheet2") n = .Cells (Rows.Count, "A"). End (xlUp). Row + 1 .Cells (n, "A"). Resize (, 4) .Waarde = _ Cellen (1, "A"). Formaat wijzigen (, 4) .Waarde einde met eind Sub 

Oplossing

Probeer dit:

 Sub CopyRowsWithNumbersInG () Dim X als lange Dim LastRow als lange dim-bron als werkblad Dimbestemming als werkblad Dim RowsWithNumbers als bereik Set Source = Werkbladen ("naam") Set Bestemming = Werkbladen ("naam") Met Source LastRow = .Cells (. Rows.Count, "E"). Einde (xlUp). Row For X = 2 To LastRow If IsNumeric (.Cells (X, "E"). Value) And .Cells (X, "E"). Waarde "" Then If RowsWithNumbers Is Nothing Then RowsWithNumbers = .Cells (X, "E") Else Set RowsWithNumbers = Union (RowsWithNumbers, .Cells (X, "E")) End If End If Next If Not RowsWithNumbers Is Nothing Then RowsWithNumbers.EntireRow . Kopieer Bestemming. Rangschik ("A4") Einde Als Einde Met MsgBox "Gegevens zijn bijgewerkt !!", vbExclamation + vbInformation, "Bedrijfsnaam" Einde Sub 

Bedankt aan Kioskea_1 voor deze tip.