satır yüksekliği ayarlama

[ismailozkan4224]

değerli arkadaşlar aşağıdaki kodla BR sütunundaki değere göre (Ax,BRx)satır yüksekliğini ayarlamaya çalıştım. ancak hata veriyor. ve eksikliği bulamadım. yardımlarınızı bekliyorum.

Sub satiryuksekligiayarla()
Dim i As Integer
For i = 1 To 150
If Range(i, BR) < 1 And X < 85 Then
Cells(i, BR).RowHeight = 15
If Range(i, BR) < 85 And X < 170 Then
Cells(i, BR).RowHeight = 30
If Range(i, BR) < 170 And X < 255 Then
Cells(i, BR).RowHeight = 45
If Range(i, BR) < 255 And X < 335 Then
Cells(i, BR).RowHeight = 60
If Range(i, BR) < 335 And X < 420 Then
Cells(i, BR).RowHeight = 75
If Range(i, BR) < 420 And X < 505 Then
Cells(i, BR).RowHeight = 90

End If

End Sub

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyiniz
Satır yüksekliği "A:BR" aralığıyla sınırlı olmaz; komple satır için geçerli olur.

[SIZE="2"]Sub satiryuksekligiayarla()
Dim i As Integer
For i = 1 To 150
Select Case Cells(i, "BR").Value
Case 1 To 85
Rows(i).RowHeight = 15
Case 86 To 170
Rows(i).RowHeight = 30
Case 171 To 255
Rows(i).RowHeight = 45
Case 256 To 335
Rows(i).RowHeight = 60
Case 336 To 420
Rows(i).RowHeight = 75
Case 421 To 505
Rows(i).RowHeight = 90
End Select
Next
End Sub
[/SIZE]