Rijhoogtes kopiëren met macro o.i.d

[Danielle22]

Hallo allemaal,

Ik heb een erg groot bestand. Ik kopieer zelf altijd de rijhoogtes van het ene blad naar het andere blad. Dit duurt altijd erg lang. Ik vroeg mij daarom ook af of het mogelijk is met een macro o.i.d. om de rijhoogtes van blad 1 te kopiëren naar blad 2.

Alvast bedankt voor de eventuele reacties.

Groetjes,

Danielle

 

[Cobbe]

Deze code doet dat voor u:

Sub cobbe()
With Sheets(2)
 For rw = 1 To .UsedRange.Rows.Count
  .Rows(rw).RowHeight = Sheets(1).Rows(rw).RowHeight
 Next
End With
End Sub

Hij past de rijhoogte aan aan de rijhoogte van blad 1.
Je moet wellicht het bereik afbakenen.

 

[Danielle22]

Heel erg bedankt voor je oplossing! :thumb:

Dit is wat ik zoek

Waar in de macro kan ik een bereik aangeven?

Groetjes,

Danielle

 

[Cobbe]

For rw = 1 To .UsedRange.Rows.Count

In deze regel staat dat de code loopt van regel(rw) 1 tot de laatste regel van het gebruikte bereik.
Je kan deze regel aanpassen als bv:

For rw = 10 To 85

dan loopt de code van regel 10 tot 85, snappy?

Succes.

 

[Danielle22]

Heel erg bedankt :thumb:

Groetjes,

Danielle