- Katılım
- 26 Şubat 2008
- Mesajlar
- 25
- Excel Vers. ve Dili
- XP TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 18-07-2022
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
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