Satır Ekleme Butonu

[Sarigol_937]

Merhaba arkadaşlar ben örnek bir Sayfada satır ekle butonu ile, belirttiğim satır numarasından sonra(Örn.54 satır için 54 gircem ve ekle deyince iki tane otomatik 2 satır eklettiren bir kod varmıdır??Yardımlarınız için şimdiden teşekkürkler

 

[Emir Hüseyin Çoban]

. . .

Sub Kod()
    sat = InputBox("Satır No Giriniz")
    
    If sat = "" Then Exit Sub
    Rows(sat + 1).Insert Shift:=xlDown
    Rows(sat + 1).Insert Shift:=xlDown

End Sub

. . .

 

[Sarigol_937]

teşekkürler kod için ama. yapamadım buton ekledim ama kodu nasıl yapıştırcam beceremedim kod görüntüle deyip modüled çalışma sayfasınıda ekledim olmadı.Uğraştığım dosya ektedir

 

[Emir Hüseyin Çoban]

. . .

Yeni bir modül ekleyip, kodları bu modüle almışsınız.
Şimdi bu kodları çalıştıracak buton ekleyip, kodları bu butona atamak gerekiyor.

2003 için
https://www.youtube.com/watch?v=nfNBYQjbs2c


2007 için
https://www.youtube.com/watch?v=WU7P7pSvJTc

. . .

 

[Murat OSMA]

Alternatif olarak, hücreye çift tıkladığınızda istediğiniz kadar satır eklemek için Ömer Bey'in bu kodlarını da kullanabilirsiniz;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    a = InputBox("Satır Sayısını Yazın.!", "Veri Girişi")
    Rows(Target.Row & ":" & a + Target.Row - 1).Insert Shift:=xlDown
    Cancel = True
End Sub

 

[Sarigol_937]

Çok teşekkürler sağolun

 

[kadirbektas]

belirttiğim satır numarasından sonra n sayıda satırı nasıl ekleyebilirim

. . .

Sub Kod()
    sat = InputBox("Satır No Giriniz")
    
    If sat = "" Then Exit Sub
    Rows(sat + 1).Insert Shift:=xlDown
    Rows(sat + 1).Insert Shift:=xlDown

End Sub

. . .

belirttiğim satır numarasından sonra n sayıda satırı nasıl ekleyebilirim

 

[Emir Hüseyin Çoban]

belirttiğim satır numarasından sonra n sayıda satırı nasıl ekleyebilirim

. . .

Sub Kod()
    sat = InputBox("Satır No Giriniz")
   
    Application.ScreenUpdating = False
    If sat = "" Then Exit Sub
    kac = InputBox("Ekleme Sayısı Giriniz")
    If kac = "" Then Exit Sub
    
    For i = 1 To kac
    Rows(sat + 1).Insert Shift:=xlDown
    Next
    Application.ScreenUpdating = True
    
End Sub

. . .

 

[kadirbektas]

İstenen sayıda satır eklemek için

arkadaşlar,
İstenen sayıda satır eklemek için aşağıdaki kodu yazdım çalışıyor. sizden ricam; eklemeyi istediğim n satır sayısını inpubox'a girmeden excell de cursorun bir üst veya yan hücrede yer alan sayıyı alıp çalışmasıdır.

Sub ekle()
eklemeadedi = InputBox("EKLEME SAYISINI GİRİNİZ")
If eklemeadedi = "" Then Exit Sub
For a = 1 To eklemeadedi
'Insert blank row.
ActiveCell.EntireRow.Insert shift := xldown
'Move down one row.
Next
ActiveCell.Offset(-1,0).Select

End Sub

 

[kadirbektas]

Hüseyin Bey,
İstenen sayıda satır eklemek için n satır sayısını inputbox'a girmeden excell de cursorun bir üst veya yan hücrede yer alan sayıyı nasıl aldırabilirim. asıl amacım ekleme sayısını otomatik aldırmak

 

[Emir Hüseyin Çoban]

Hüseyin Bey,
İstenen sayıda satır eklemek için n satır sayısını inputbox'a girmeden excell de cursorun bir üst veya yan hücrede yer alan sayıyı nasıl aldırabilirim. asıl amacım ekleme sayısını otomatik aldırmak

. . .

eklemeadedi = range("A1") şeklinde olabilir. Ancak net çözümler için sorunuzu örnek dosya ile desteklemelisiniz.

. . .