Verplaatsen op voorwaarde

[Rein0213]

Hallo allemaal,
Ik hoop dat jullie mij kunnen helpen. Ik ben met diverse bestelformulieren bezig en wil het geen wat er besteld moet worden op 1 verzamelsheet zetten.
Ik heb al uren zitten zoeken op het net maar kom er niet uit. Alvast heel erg bedankt voor een reactie.
Rein

 

[VenA]

Ik zie een heleboel opgemaakte tabbladen maar nergens wat nu de bedoeling is. Te bestellen is overal leeg er is geen verzamelstaat te vinden. Al die losse tabjes geven alleen maar ellende. Je kan veel beter werken vanuit 1 tabel met alle producten en 1 tabel met de bestellingen. En dan eens kijken of je er overzichten van kan maken.

 

[HSV]

Maak van elk bereik in elk tabblad een dynamische/intelligente tabel (Listobject).

Vul ook elke 1e kolom met artikelcodes (elke rij).

Sub hsv()
Dim sh As Worksheet, TB As Worksheet
 On Error Resume Next
   Application.DisplayAlerts = False
   Sheets("totale bestelling").Delete
 On Error GoTo 0
  Sheets.Add(, Sheets(Sheets.Count)).Name = "totale bestelling"
  Set TB = Sheets("totale bestelling")
For Each sh In Sheets
  If sh.Name <> "totale bestelling" Then
        With sh.ListObjects(1)
         .DataBodyRange.AutoFilter .ListColumns("Te bestellen").Index, ">0"
         .DataBodyRange.Copy TB.Cells(Rows.Count, 1).End(xlUp).Offset(1)
         .DataBodyRange.AutoFilter .ListColumns("Te bestellen").Index
        End With
  End If
Next sh
End Sub

 

[Rein0213]

Dank je wel voor de reactie, ik ga er mee aan de slag...
Thanks