Satır Yükseklik Ayarı Verme

[ILHAREFF]

Satır yükseklik ayarını nasıl verdirebilirim konuyla ilgili yardım edebilecek arkadaşlara şimdiden teşekkürler ederim.

Sub Boşluk_ata()
Dim i&, son_satir&
son_satir = Cells(Rows.Count, 1).End(xlUp).Row
For i = son_satir To 13 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then
Rows(i).Insert

End If
Next i
i = Empty: son_satir = Empty
MsgBox "İşlem Tamamlandı.", vbInformation, "BİLGİ"
End Sub

 

[çıtır]

Rows(i).RowHeight = "Belirlediğiniz satır yüksekliğini yazınız"

 

[ILHAREFF]

Rows(i).RowHeight = "Belirlediğiniz satır yüksekliğini yazınız"

İlginiz için teşekkürler. bir ricam daha olacaktı açılan boş satırı nasıl renklendirebilirim..

Sub Boşluk_ata()
Dim i&, son_satir&
son_satir = Cells(Rows.Count, 1).End(xlUp).Row
For i = son_satir To 13 Step -1
If Cells(i, 1) <> Cells(i - 1, 1) Then
Rows(i).Insert
Rows(i).RowHeight = "3"
End If
Next i
i = Empty: son_satir = Empty
MsgBox "İşlem Tamamlandı.", vbInformation, "BİLGİ"
End Sub

 

[çıtır]

Yüksekliği ayarladığınız koddan sonra ilave ediniz.4 renk kodu 56 kadar değiştirerek istediğiniz rengi belirleyiniz.

Rows(i).Interior.ColorIndex = 4