Waarde uit verschillende tabbladen kopieren

[klim]

Beste,
Ik kom er maar niet achter... Hoe kan ik op bijv blad 1 waar ik een kol artikel nummer en prijs heb de kolommen vullen met gegevens uit verschillende tabbladen waar deze waardes in identieke cellen staan?

Dus blad1 heeft A1 Artikel nummer en B1 prijs. en alle vervolg tabbladen in A2 artikel nummer en C22 prijs. Vanuit alle tabbladen wil ik de cellen A2 en C22 kopieren naar blad1 (of een ander excel file als dat handiger is) naar de kolommen A en B van blad 1.

iemand een idee?

 

[AlexCEL]

Een idee in bijlage.

 

[klim]

Een idee in bijlage.

Geweldig! werkt super. Thanks

 

[klim]

Ik was toch iets te snel met mijn enthousiasme...

Wat nu als de tabbladen niet de naam hebben blad1, blad2, blad3, etc. maar de artikel nummers.... heb 500 tabbladen met verschillende art. no. als tabbladnaam..

 

[AlexCEL]

Daar was ik al bang voor... dan wordt het VBA. Even googelen levert wel het e.e.a. op. De VBA-cracks hier zullen het wel verbeteren kunnen.

En 500 tabbladen? Yikes...:shocked:

 

[klim]

ok, ik wacht tot een vba expert zich meldt want het zegt mij helemaal niets

 

[AlexCEL]

Een voorbeeld met VBA-code zit al in het bijgevoegde bestandje bij post #5.

 

[emields]

Hetzelfde maar dan zonder kopiëren en plakken.

 

[VenA]

Als je een lijst hebt met alle artikelnummers dan kan je deze in bv Kolom A zetten en dan de formule van @AlexCEL in #2 daarop aanpassen.

Met een iets snellere macro dan de eerdere suggesties.

Sub VenA()
 With Sheets("Blad1").Cells(1).CurrentRegion.Offset(1)
  .ClearContents
    Set c = CreateObject("System.Collections.ArrayList")
    For Each sh In Sheets
      If sh.Name <> "Blad1" Then c.Add Array(sh.[A2], sh.[C22])
    Next sh
    .Cells(1).Resize(c.Count, 2) = Application.Index(c.toarray, 0, 0)
  End With
End Sub