data automatisch verplaatsen

[stefano]

Ik wil data filteren uit een kolom ( unieke data ) en die automatisch overzetten naar een tweede tabblad. Kan iemand helpen aub ?
dbv,

Stefano

PS : zie bijlage

 

[Warme bakkertje]

Al eens gedacht aan Uitgebreid filter ?

Mvg

Rudi

 

[stefano]

Rudi,

Ik heb daar gisteren een halve dag op gezocht, geloof het of niet, maar

Sub filter()
[a_msv_1!A2].CurrentRegion.Columns(1).AdvancedFilter xlFilterCopy, , [Blad2!A2], True
End Sub

uit mijn duim zuigen, sorry, dat kan ik niet, ik heb daar de kennis niet voor.

hartelijk dank voor de hulp

Stefaan

 

[stefano]

Maar Rudi ....

Ik probeer die code automatisch te laten uitvoeren bij openen van het bestand . Dus probeer ik :

Sub filter()
[a_msv_1!A2].CurrentRegion.Columns(1).AdvancedFilter xlFilterCopy, , [Blad2!A2], True
End Sub

Private Sub Workbook_Open()
    Run filter()
End Sub

maar zelfs het kleinste kind weet dat dat niet zal werken

 

[Warme bakkertje]

Ofwel

Private Sub Workbook_Open()
Call filter
End Sub

of anders

Private Sub Workbook_Open()
[a_msv_1!A2].CurrentRegion.Columns(1).AdvancedFilter xlFilterCopy, , [Blad2!A2], True
End Sub

Mvg

Rudi

 

[stefano]

Alleen krijg ik hem nu niet aan de praat ...

 

[Warme bakkertje]

1.Een Workbook_Open event hoort in ThisWorkbook
2.Er ontbrak een kolomletter waar het filter geplaatst moest worden. Heb 'm nu eventjes in G1 gezet. Dat moet je dan zelf maar naar wens aanpassen

Mvg

Rudi

 

[stefano]

na het plakken en overzetten van de gegevens gebruik ik onderstaande formule om gegevens op te halen . Dat lukt voor de cijferdate, maar niet voor de tekstdata. Nochthans gebruik ik onderstaande formule voor allebei.
Als ik echter de cel a6 met 1 vermenigvuldig, dan lukt alles prima. Hoe kan ik dit oplossen zonder vermenigvuldigen ?

=ALS(ISFOUT(VERT.ZOEKEN(formules!A6;Blad2!I3:J271;2;ONWAAR));"";VERT.ZOEKEN(formules!A6;Blad2!I3:J271;2;ONWAAR))

 

[Warme bakkertje]

Post eens een voorbeeld zodat we kunnen zien waar en waarom het misloopt, want nu is het maar raden naar de oorzaak.

Mvg

Rudi

 

[stefano]

zie bijlage

dbv,

Stefaan

 

[Warme bakkertje]

Op blad1 staan je codes als tekst, op blad2 maak je er een getal van door de vermenigvuldiging *1 en op blad3 terug tekst. Maak er op alle bladen ofwel getallen van of verwijder de vermenigvuldiging op blad2 en je probleem is opgelost

Mvg

Rudi