waardes uit 86 bladen halen en in 1 kolom plaatsen

[don42]

beste helpers
heb nog een vraagje!

Wil graag in een kolom AQ van AQ2 tot QA 87 van (tabblad overzicht) de laatste waarde van kolom P uit 86 verschillende tabbladen blad 1 t/m 86
er zitten lege cellen tussen in de kolommen P dus de oplossing hier onder werkt wel
alleen moet ik deze regels dan 86 keer plaatsen wat vast erg vertragend zal werken
is hier een makkelijkere oplossing voor?


Range("aq2").Value = Sheets("1").Range("p65536").End(xlUp).Value
Range("aq3").Value = Sheets("2").Range("p65536").End(xlUp).Value
Range("aq4").Value = Sheets("3").Range("p65536").End(xlUp).Value
Range("aq5").Value = Sheets("4").Range("p65536").End(xlUp).Value

enz tot sheets 86

Don

 

[Jack Nouws]

Zo?

  For i = 1 To 86
    Range("AQ65536").End(xlUp).Offset(1) = Sheets(i).Range("P65536").End(xlUp).Value
  Next

 

[snb]

Moet een hele kolom in 1 cel gezet worden ?

 

[don42]

Ik had graag in cel AQ2 de laatste waarde van kolom P van tabblad 1
in cel AQ3 de laatste waarde van kolom P van tabblad 2
in cel AQ 4 de laatste waarde van kolom P van tabblad 3 enz tot blad 86