Zoeken

[Barend73]

Ik zou graag in meer dan 50 tabbladen willen zoeken naar een factuur nr.
Dus als ik de factuur nr invul in blad 1 dat hij dan de gegevens overneemt.
Is dat wel mogelijk in zoveel tabbladen tegelijk?
Bijgevoegd een voorbeeld bestandje.

Alvast bedankt!!!

 

[Cobbe]

Zo kan dat ook:

 

[Barend73]

werkt maar

Dit werkt prima.
Maar als ik de formules kopieer dan werkt het niet meer.
Snap er niks van.

 

[Cobbe]

Via ALT-F11 kom je in de VBE en zie je de 3 functies in een module staan.

 

[Barend73]

Cobbe heel erg bedankt hier heb ik wat aan!

 

[VenA]

Hoewel opgelost. Waarom leg je geen lijst aan met alle facturen? Door gebruik te maken van het autofilter of een draaitabel krijg je veel beter inzicht in jouw gegevens.

Sub VenA()
Application.ScreenUpdating = False
With Sheets("Alle Facturen")
    .AutoFilterMode = False
    .Cells(1).CurrentRegion.Offset(1).Clear
    For Each sh In Sheets
        If LCase(Left(sh.Name, 5)) = "klant" Then sh.Range("A3:F" & sh.Cells(sh.Rows.Count, 1).End(xlUp).Row).Copy .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
    Next sh
    .Cells(1).CurrentRegion.AutoFilter
End With
End Sub

 

[HSV]

@VenA, elk blad heeft evenveel rijen.

[SIZE=3][COLOR=#ff0000]sh.[/COLOR][/SIZE]Rows.Count
[SIZE=4][COLOR=#ff0000].[/COLOR][/SIZE]Rows.Count