Button voor invoer data

[wessie]

Goeiendag allemaal,

Ik zou graag een button in een sheet willen hebben die de data archiveert, maar ik heb even geen idee waar te beginnen. Dus als iemand tips heeft, graag!Bekijk bijlage vb2.xlsm
De sheet invoer haal ik uit een data base en ik zou willen dat als ik op de knop druk dat de data van de invoer sheet naar de andere sheets word verplaatst dus alle Atjes naar sheet A enz. De data staat wel altijd op volgorde van datum dus dat kan zo blijven.

Wie weet wat??

 

[gast0660]

Hoi,
Zoiets?
Groet

 

[VenA]

Omdat deze vraag maar een paar keer per week voorbij komt doe ik het eens andersom. Als de tab bestaat dan worden de gegevens in die tab gezet en uit de tab 'Invoer' verwijderd. Anders blijven de gegeven in de tab 'Invoer' staan.

Private Sub CommandButton1_Click()
For Each sh In Sheets
    If sh.Name <> "Invoer" Then
        With Sheets("Invoer").Cells(1).CurrentRegion
            .AutoFilter 2, sh.Name
            .Offset(1).Copy sh.Cells(Rows.Count, 1).End(xlUp).Offset(1)
            .Offset(1).EntireRow.Delete
            .AutoFilter
        End With
    End If
Next sh
End Sub

 

[gast0660]

Hoi,
@, VenA,Hartelijk dank

 

[blakkie]

Misschien is deze website handig voor u: https://nl.wikipedia.org/wiki/Microsoft_Excel