overnemen stocktelling

[patje8]

Wekelijks wordt het tabblad GeteldeStock ingevuld en overschreven.
Nu wil ik de totalen overzetten naar het volgend tabblad Stocktellingen.

Dus alles wat in kolom F komt bij GeteldeStock moet overgenomen worden via een button naar tabblad Stocktellingen.

Ik geprobeerd met deze macro maar dit werkt niet.

Sub OvernemenSTOCK()
Dim lRij As Long
Dim lEndRij As Long
Dim lSRij As Long

  
Dim Rng As Range, DelCol As New Collection, x
Dim i As Long, j As Long, k As Long
  
    lSRij = Worksheets("Stocktellingen").Range("C65536").End(xlUp).Row + 1
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    lEndRij = Worksheets("GeteldeStock").Range("F65536").End(xlUp).Row
    For lRij = 1 To lEndRij
        If Worksheets("GeteldeStock").Cells(lRij, "F").Value = Worksheets("Stocktellingen").Cells(lRij, "C") Then
            For lkol = 6 To 6
                Worksheets("Stocktellingen").Cells(lSRij, lkol).Value = Worksheets("GeteldeStock").Cells(lRij, lkol).Value
            Next
        lSRij = lSRij + 1
    End If
    Next
  Sheets("GeteldeStock").Select
End Sub

wie kan me helpen?

 

[Haije]

doet Knop 2 wat je ervan verwacht?

 

[patje8]

Super!! Dank U

 

[VenA]

Waarom zet je de data niet onder elkaar?

Zonder loop kan ook wel

Sub VenA()
  With Sheets("Stocktellingen")
    x = Application.Match(CDbl(Range("F1").Value), .Rows(1), 0)
    If IsNumeric(x) Then .Cells(3, x).Resize(13) = Range("F3:F16").Value
  End With
End Sub