İstenilen miktarda satır ekleme,silme

[janvaljan85]

Merhaba,

Site içerisinde arama yaptım ancak tam olarak istediğim şeye ulaşamadım.

Ekteki dosyada ekip oluşturma kısmında + tuşuna basınca sadece 1 satır eklenmesini ve eklenirken de noyu 1 arttırmasını istiyorum. ++ tuşuna basıldığında bir ekran çıkmasını ve kaç satır eklenmesini istediğini sormasını ve bu sayı kadar satır eklenmesini, - tuşuna bastığında da en son eklenen satırdan bir satır silmesini istiyorum.

Hocalarım bununla ilgili yardımcı olursanız çok sevinirim.

Şimdiden teşekkürler, iyi çalışmalar.

 

[Muhammet Okumuş]

dosyayı inceleyiniz.

 

[leumruk]

Merhaba,
Alternatif olarak aşağıdaki örneği inceleyebilirsiniz.

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

 

[Muhammet Okumuş]

Sn leumruk kodlarınız güzel gerçekten. Kod silen koda 16.satırı silemeyen bir kod eklerseniz hata vermez.

 

[leumruk]

Sn leumruk kodlarınız güzel gerçekten. Acaba kod silen koda 16.satırı silemeyen bir kod eklerseniz hata vermez.

Sn. muokumus,
Önemli bir eksikliğe dikkat etmişsiniz. Teşekkür ederim.
Silme koduna 14. satırdan itibaren silmeyi engelleyen bir satır ekledim.