Veri aktarmada satır sil ekle

[yıldız57]

iyi akşamlar aşağıda ki kodları ekte ki dosyam da kullanmak istiyorum, yani bilgi girişine de veri doğrulama ile oluşturduğum listeler kişi sayısına göre ilgili cetvel bozulmadan satır ekleyip satır silinmesini istiyorum ama bir türlü içinden çıkamadım. kod içersinde hangi kod hangi sayfayla ilgili bu konuda yardımcı olacak arkadaşlara şimdiden teşekkürler.
Sub Satir_Ekle()
SonSat = [b65536].End(3).Row + 1
Rows(SonSat).Insert Shift:=xlDown
Cells(SonSat, "b") = "'" & SonSat - 13 & "."
With Range("b" & SonSat & ":d" & SonSat).Borders
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Range("b" & SonSat & ":d" & SonSat).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
End With
End Sub
Sub Satir_Sil()
SonSat = [b65536].End(3).Row
If SonSat <= 14 Then Exit Sub
Rows(SonSat).Delete Shift:=xlUp
With Range("b" & SonSat - 1 & ":d" & SonSat - 1).Borders
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Range("b" & SonSat - 1 & ":d" & SonSat - 1).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlHairline
End With
End Sub
Sub Toplu_Ekle()
Tekrar:
Sor = Application.InputBox("Kaç satır eklensin")
If Sor = False Then Exit Sub
If Not IsNumeric(Sor) Then
MsgBox "Lütfen sayısal bir değer giriniz.", vbCritical, "UYARI"
GoTo Tekrar
End If
For x = 1 To Sor
Call Satir_Ekle
Next
End Sub

 

[yıldız57]

konuyu yanlış yerdemi açtım yoksa cevap veren olmadı nedense

 

[Korhan Ayhan]

Merhaba,

Bence sorunuz anlaşılmadığı için kimse cevap vermemiş olabilir.

Satır ekleme-silme işlemi hangi sayfada hangi alanda olacak?

 

[yıldız57]

korhan bey cevap vermenize ve hatamı hatırlatmanıza çok teşekkür ederim. Bilgi girişinde seçtiğim kişi sayısına göre icmal bordro ve banka listesinden satır eklenip silinecek.