VBA code die kan onthouden op welke rij het zoek variabel gevonden is

[Giovan]

Hoi allemaal,

Hopelijk weet 1 van jullie een oplossing hiervoor.
Bedoeling is dat het code achteraf de gevonden variabelen kopieert en plakt in de desbetreffende blad.
Het macro werkt al maar bij grotere data te langzaam.
Wat de code nu doet is elke keer terug naar het data blad en de gevonden variabelen 1 voor 1 kopiëren en plakken in een andere blad.

Zie toegevoegde bestand

Bij voorbaat bedankt

Giovan

 

[VenA]

Probeer het eens met het autofilter.

Sub VenA()
  Application.ScreenUpdating = False
  For Each sh In Sheets
    If Left(sh.Name, 2) = "03" Then
      sh.UsedRange.clearcontents
      With Sheets("alle labels download").Cells(1).CurrentRegion
        .AutoFilter 22, sh.Name
        .Copy sh.Cells(1)
        .AutoFilter
      End With
    End If
  Next sh
End Sub

 

[Giovan]

Goedenavond,

Bedankt je duwde me in de goede richting, hij is stabieler geworden.
Nu kan ik verder en ik heb nu een andere idee om het wat sneller te maken.

Later:thumb:

 

[snb]

Ik zou helemaal van dat werkblad 'alle labels download' afblijven.
Je kunt er beter een intelligente tabel van maken.
Bekijk eens at die voor mogelijkhedne biedt.

Zo'n tabel is bovendien een ideale basis voor draaitabellen.

De afzonderlijke werkbladen zijn dan overbodig.