Gegevens automatisch op het juiste tabblad noteren

[Gielleke25]

Hallo iedereen,

Kan iemand helpen aub?
Voor een project op het werk heb ik een Excel lijst gemaakt waarbij ik via een Toevoegknop, 4 gegevens laat wegschrijven in een lijst die steeds aangevuld wordt.
Dit geheel heb ik zelf al kunnen uitwerken...
Echter zou ik willen dat de lijst (ingaven) met data automatisch verdeeld wordt op de verschillende tabbladen.
Bijvoorbeeld:
Wanneer in de lijst van ingaven "Ruwijzerpan 1" is genoteerd dan zou op het tabblad "RY-pan" dezelfde data genoteerd moeten worden (enkel zonder het ruwijzernummer)
Op de tabbladen komt dus een soort van kopie van de gehele lijst enkel gesorteerd per ruwijzerpan...

Zou dit kunnen met enkel een formule of is dit een VBA werkje???

Alvast super bedankt!
Mvg,

 

[AHulpje]

Zo:

Private Sub CommandButton_toevoegen_Click()
    Dim nwRegel As Integer

    If Range("E3") <> "" Then
        nwRegel = Range("H:H").End(xlDown).Row + 1
        Range("H" & nwRegel).Value = Range("E3")
        Range("I" & nwRegel).Value = Range("E5")
        Range("J" & nwRegel).Value = Range("E7")
        Range("K" & nwRegel).Value = Range("E9")
    End If
    With Sheets("RY-pan " & Range("E3"))
        nwRegel = .Range("B:B").End(xlDown).Row + 1
        .Range("B" & nwRegel).Value = Range("E5")
        .Range("C" & nwRegel).Value = Range("E7")
        .Range("D" & nwRegel).Value = Range("E9")
    End With
    Range("E3:E9").ClearContents
    MsgBox "Ingave is toegevoegd aan de lijsten."
End Sub

Zelf hier en daar nog wat foutcontroles toevoegen.

 

[snb]

Is geen goed idee.
Zet alle gegevens in 1 werkblad en gebruik de autofilter om gegeven per ruwijzerpan te verkrijgen.
VBA is volledig overbodig.