Records afdrukken vanuit meerdere tabbladen

Status
Niet open voor verdere reacties.

Faecon

Nieuwe gebruiker
Lid geworden
6 mrt 2018
Berichten
1
ik heb een excel bestand met x-aantal tabbladen, die er allemaal hetzelde uitzien.

In elke 6e kolom van het tabblad staat ofwel m of y ( maandelijks of jaarlijks)

nu wil ik alle rijen met "m" onder elkaar op een nieuw leeg werkblad, met in rij 1 de naam van het desbetreffende tabblad waar het record uitkomt. (

Hoe pak ik dit aan ?
 
Met zoiets.
Code:
Sub hsv()
Dim sh As Worksheet
If IsError(Evaluate("'verzamelblad'!A1")) Then Sheets.Add(, Sheets(Sheets.Count)).Name = "verzamelblad"
For Each sh In Sheets
 If sh.Name <> "verzamelblad" Then
    With sh.Cells(1).CurrentRegion
       .AutoFilter 6, "m"
       sh.AutoFilter.Range.Offset(1).Copy Sheets("verzamelblad").Cells(Rows.Count, 6).End(xlUp).Offset(1, -5)
       .AutoFilter
    End With
 End If
Next sh
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan