Biçimlendirme sorunu

[yavuz829]

Arkadaşlar aşağıdaki kodlarla satır sil yapiyorum. Satırları sildikten sonra ilk veri girişi yapacağım satırdaki biçimlendirmeyi kaldırıyor. Örneğin Satırları sildikten sonra ilk veri girişimde tarihi 10/03 tutarları 100 şeklinde kayıt ediyor. Kayıt etmeğe devam ettiğim zaman 10.03.2013 100,00 şeklinde düzeliyor. Bu konuda yardımlarınızı bekliyorum.

Private Sub CommandButton13_Click()
ActiveSheet.Unprotect "123"
If TextBox15.Text = "" Then
MsgBox "SİLİNECEK SATIRI SEÇİNİZ!!!"
Exit Sub
End If
MsgBox "KAYIT SİLİNDİ!!!"
satır = ActiveCell.Row
'Rows(satır).Delete Shift:=xlUp
Range(Cells(satır, "A"), Cells(satır, "K")).Delete
ComboBox2.Text = ""
ComboBox3.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox13.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & [a65536].End(3).Row
Range("A65535").End(xlUp).Offset(1, 0).Select
ActiveSheet.Protect "123"
End Sub

 

[Huseyinkis]

Eğer K sutunundan sonrasında bilgi yoksa satır silmek için Rows(satır).delete kısmını kullanın.

Range(Cells(satır, "A"), Cells(satır, "K")).Delete formulu ile sildiğinizde L:V sutunlarını A:K sutunlarına taşımakta buda oradaki satırların biçimlerinin düzenlenmediğinden biçimler istediğiniz gibi gözükmez.

K sutunundan sonra bilgi var ise


Range(Cells(satır, "A"), Cells(satır, "K")).Delete

yukarıdaki kodun altına

Range(Cells(satır+1, "A"), Cells(satır+1, "K")).copy
Range(Cells(satır, "A"), Cells(satır, "K")).PasteSpecial Paste:=xlPasteFormats
Cells(satır, "A").select
Application.CutCopyMode = False

kodlarını ekleyin.

 

[yavuz829]

Çok teşekürler hocam ellerinize sağlık.