seçtiğim sayı kadar satırlar silinsin yada eklesin

[ordulu82]

arkadaşlar örnekte de belirttim. istediğim elimde olan 3-4 satırlık hesaplama listesi var. bu liseye çoğu zaman birden fazla kişinin hesaplaması yapılıyor. yazdığım sayı kadar hesaplama satırı eklenmesi yada sayı düşünce silinmesini veya gizlenmesini istiyorum.

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil olabilir.

Sub sekle()
For i = 1 To 50
son = Cells(Rows.Count, "e").End(xlUp).Row + 1
Cells(son, "e").EntireRow.Insert
s = s + 1
If s >= [b3] Then Exit For
Next
End Sub

Sub ssil()
For i = 1 To 50
son = Cells(Rows.Count, "e").End(xlUp).Row + 1
Cells(son, "e").EntireRow.Delete shift:=xlUp
s = s + 1
If s >= [b3] Then Exit For
Next
End Sub

 

[ordulu82]

Bu şekil olabilir.

Sub sekle()
For i = 1 To 50
son = Cells(Rows.Count, "e").End(xlUp).Row + 1
Cells(son, "e").EntireRow.Insert
s = s + 1
If s >= [b3] Then Exit For
Next
End Sub

Sub ssil()
For i = 1 To 50
son = Cells(Rows.Count, "e").End(xlUp).Row + 1
Cells(son, "e").EntireRow.Delete shift:=xlUp
s = s + 1
If s >= [b3] Then Exit For
Next
End Sub

Üstadım ben bunu yapamadım
rica etsem kodları ekleyip dosyayı göndermeniz mümkün mü