Satır Gizle ,Göster ve Ekle

[bedersu]

Sayın Metin1981,
Kodlardaki

    Sheets("HARCIRAH").Rows("42:42").Select

satırını

    Sheets("HARCIRAH").Rows("40:40").Select

olarak değiştirip dener misiniz biçimlendirme için.

 

[bedersu]

Aşağıdaki kodlarla da HARCIRAH sayfasındaki boş satırlar silinir ama veri girişi sayfasında birden çok boş satır olabilir ve siz butona her tıkladığınızda her bir boş satır için bir boş bir satır eklemiş oluyorsunuz.Farklı zamanlarda farklı sayılarda boş satır eklenecektir.Dolayısıyla kaç tane satır silineceği hesaplanamaz.Ya da en azından bunun mantığını ben kuramadım.Boş satırları silme kodu şu şekilde:

For i = 12 To Sheets("HARCIRAH").Cells(65536, 2).End(xlUp).Row
Next
Sheets("HARCIRAH").Range("B12:B" & i - 4).SpecialCells(xlCellTypeBlanks).EntireRow.Delete