gegevens uit lijst filteren en dan kopieren naar een ander blad

[davidbouckhuyt]

Hallo,

Aan de hand van deze exel wil ik de geldflow opslaan van een festival. Op blad Ingave voer ik de data in met een form. Waar er 3 gegevens ingevuld worden "Hoeveel,Wat,commentaar". Deze gegevens worden opgeslagen op blad Data.


Mijn probleem:

Ik wil de gegevens in blad Data filteren op "Wat". En per soort "Wat" de hele rij naar een andere pagina verplaatsen,om zo een overzicht te creeëren wat de uitgave is per Wat.

 

[wieter]

David,
Het lijkt me beter om alles op één blad te houden.
Zet een filter op blad "Data" dan kan je daar toch elke WAT uitfilteren.

Bekijk bijlage festival boekhouding.xlsm

 

[Warme bakkertje]

Hier kan je al mee starten
1.Gegevens wegschrijven uit UF

Private Sub CommandButton1_Click()

    Sheets("Data").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 4) = Array(TextBox1.Text, ComboBox1.Value, DateTime.Now(), TextBox2.Text)

End Sub

2.Nieuwe werkbladen toevoegen, naam geven en titels maken.

Sub addsheets()

    For Each it In Array("Ingang", "Bonnetjes", "WC-madam", "Artiesten", "Logistiek", "Elektriciteit", "Opbouw varia", "Catering", "Bar")
        Sheets.Add , Sheets(Sheets.Count)
        With ActiveSheet
            .Name = it
            .Range("A1").Resize(, 4) = Array("Hoeveel", "Wat", "Tijd", "Commentaar")
        End With
    Next
        
End Sub

3. Gegevens uit Data verdelen over werkbladen

Sub filterdata()

    For Each it In Array("Ingang", "Bonnetjes", "WC-madam", "Artiesten", "Logistiek", "Elektriciteit", "Opbouw varia", "Catering", "Bar")
        With Sheets("Data")
            .Range("A1").Resize(, 4).AutoFilter 2, it
            .AutoFilter.Range.Offset(1).SpecialCells(12).Copy Sheets(it).Range("A" & Rows.Count).End(xlUp).Offset(1)
        End With
    Next
    Sheets("Data").ShowAllData
    
End Sub