Loop over verschillende sheets heen

[Humadgen]

Hallo

Ik gebruik regelmatig loops om bereiken aan te vullen met formules.
Bijvoorbeeld:

Range("B2").Select
Selection.Copy
Range("B3").Select
Do
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))

Bovenstaand werkt binnen hetzelfde werksheet.

Ik wil nu echter kolom B vullen met formules die stopt zodra er in een het werksheet Blad2 geen informatie meer staat in kolom A.

Het lijkt me dat de verwijzing naar de andere sheet moet komen te staan achter:
Loop Until
maar ik weet niet hoe ik dat moet wegschrijven.
Iemand een idee?

Alvast bedankt:thumb:
Humadgen

 

[Roncancio]

Hallo

Ik gebruik regelmatig loops om bereiken aan te vullen met formules.
Bijvoorbeeld:

Range("B2").Select
Selection.Copy
Range("B3").Select
Do
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell.Offset(0, -1))

Bovenstaand werkt binnen hetzelfde werksheet.

Ik wil nu echter kolom B vullen met formules die stopt zodra er in een het werksheet Blad2 geen informatie meer staat in kolom A.

Het lijkt me dat de verwijzing naar de andere sheet moet komen te staan achter:
Loop Until
maar ik weet niet hoe ik dat moet wegschrijven.
Iemand een idee?

Alvast bedankt:thumb:
Humadgen

Het kan wat korter.
Onderstaande code zet de formules van bereik A1 t/m ... in het bereik B1 t/m ...

Range("B1:B" & Range("A65536").End(xlUp).Row).Formula = Range("A1:A" & Range("A65536").End(xlUp).Row).Formula

Met vriendelijke groet,


Roncancio

 

[Wigi]

Sub f()

    Dim wsDoel As Worksheet
    Dim wsBron As Worksheet
    
    Set wsDoel = ActiveSheet
    Set wsBron = ThisWorkbook.Worksheets("Blad2")
    
    wsDoel.Range("B2:B" & wsBron.Range("A" & Rows.Count).End(xlUp).Row).FillDown
    
    Set wsDoel = Nothing
    Set wsBron = Nothing
    
End Sub

Wigi

 

[Humadgen]

Wigi and Roncancio

Heel erg bedankt het werkt.

Ik vind het altijd prettig om terug te kunnen lezen en begrijpen wat ieder stukje van een code doet. en ik snap deze oplossingen nog niet helemaal, maar ik zal het eens vergelijken met wat ander stukjes code, en dan kom ik er vast wel uit.

Grtnx
Humadgen