Temat: Zmiana wyskości wiersza pętlą

Witam,

Chcę stworzyć pętle która bedzie sprawdzać po kolei wiersze od 2 wiersza do 2000 i w każdym wierszu w którym RowHeight < 62.25 ustawiało tą wysokośc wiersza. Próbowałem coś stworzyć ale operowanie na wierszach mi nie wychodzi narazie:)
Ma ktoś pomysł jak przekształcić moją pętle aby działa

Range("A1").Select



Do

If ActiveCell.Row.Height > 62.25 Then

ActiveRow.RowHeight = 62.25

ActiveCell.Offset(1, 0).Select

Else

ActiveCell.Offset(1, 0).Select

If ActiveCell.Interior.Color = 65535 Or ActiveCell.Row = 2000 Then Exit Do

End If

Loop

Temat: Zmiana wyskości wiersza pętlą

Witam,

No własnie nie za bardzo

W skrócie chodzi o to, że mam makro które ustawia mi
dla wierszy po każdej aktualizacji pliku optymalną wysokość

Rows("2:2001").EntireRow.AutoFit

ale chcę aby minimlna wysokośc jaka się ustawi to właśnie = 62.25 (aby na wydruku było czytelnie)
Jeżeli użyjemy Arkusz1.Range("A2:A2000").EntireRow.RowHeight = 62.25 to komórki które mają
wyższą wyskość bedą miały znów 62.25 i nie będzie widoczne całe pole komórki dlatego pomyślałem o pętli która po ustawieniu optymalnej wyskosci wyrówna wiersze które mają niższą niż 62.25 wysokość

Dodam tylko że mój plik ma dużo kolumn i aby wydruk był czytelny ustawienie optymalne kolumn nie wchodzi w grę

Pozdrawiam

Temat: Zmiana wyskości wiersza pętlą

Darek J.:
Więc spróbuj może tak ?

Sub Wys()

Dim i&



For i = 2 To 2000

  If Cells(i, 1).RowHeight < 62.25 Then Cells(i, 1).RowHeight = 	[/quote]> 62.25[quote]Next i

End Sub

Pozdarwiam.

Dokładnie o coś takie mi chodziło dziękuję serdecznie za pomoc:)