• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Gerektiğinde veri tabanının altına satır ekleme

gecemavisi

gecemavisi

Katılım
20 Şubat 2006
Mesajlar
259
Saygıdeğer arkadaşlar,
Ben veri tabanımı sınırlandırmaktan bıktım. İstiyorum ki bir butona basayım ve D ve E sütunlarının en son verisinin altına ya da en son dolu satırın altına Yeni bir satır eklesin. Üst satırdaki tüm biçimlendirmeler ve formüller yeni açılacak olan satıra da aynen ilave edilsin.
Sizce bu konuda gerekli kodları nasıl yazabilirim.
Bilen bir arkadaşımızdan özellikle rica ediyorum.
Bir de çalışma sayfasında save as özelliğini nasıl disable ederim.
Saygılarımla.....
 
Sn gecemavisi,

"Bir buton ile" yapmak isteğinize uygun olarak küçük bir örnek gönderiyorum.

[vb:1:677e002cee]Sub Makro1()
son = Cells(65536, 4).End(3).Row
Rows(son + 1).Select
Selection.Insert Shift:=xlDown
Cells(son + 1, 4).Select
End Sub[/vb:1:677e002cee]

Bu makroyu bir butona veya kısa yola atayabilirsiniz.
 
Sn Mehmet Hocam, Mükemmel olmuş. Çok teşekkür ediyorum..
Exelin Üstadları olmasa kimbilir halimiz nice olur.
Saygılarımla....
 
Saygıdeğer Üstadım. Formülleri Kopyalamıyor?????

Hücre Kenarlıklarını da kopyalamıyor...

Örneği incelemenizi rica ediyorum..
Saygılarımla.
 
Bu sefer aşağıdaki kodu deneyin;

[vb:1:2c3b86d668]Sub Makro1()
son = Cells(65536, 4).End(3).Row
Rows(son).Copy
Rows(son + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(son + 1, 3).Select
End Sub[/vb:1:2c3b86d668]
 
Sn Mehmett Bey;
Kodlarınız çok güzel ama bir tek sorunum kaldı gibi gözüküyor. Üstteki satırın Formüllerini Biçimlerini Kopyalayıp en alt satırın altına yeni boş veri girecek. Burda sadece formül olacak. veri olmayacak..
Yardımcı olabilirseniz sevinirim.
saygılarımla..
 
Aşağıdaki kod veri tabanına sabit değerleri olmayan ama formülleri olan yeni bir boş satır ekler. Yalnız eklenen bu satırı doldurmadan başka satır eklemez. Bu şekilde işinizi görür mü? Yoksa satırı doldurmaya gerek kalmadan butona her tıklandığında bir satır eklensin mi?

[vb:1:73f34179b7]Sub Makro1()
son = Cells(65536, 4).End(3).Row
Rows(son).Copy
Rows(son + 1).Select
ActiveSheet.Paste
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Cells(son + 1, 3).Select
End Sub[/vb:1:73f34179b7]
 
Saygıdeğer Mehmet Bey;
Sizce hocam, userform da bir text kutusu açsam ve oraya girilen değer kadar satır eklese,
Kodları bu sefer nasıl düzenlemek gerekir.
Saygılarımla...
 
Sn gecemavisi,

Textbox ile de olur ama aşağıdaki kod Inputbox'a yazılan sayı kadar satır ekliyor. (Bu kodlar daha da sadeleştirilebilir, ben bu kadar yapabildim.)

[vb:1:452d9fb43b]Sub Makro1()
deg = InputBox("Kaç satır eklensin?")
son = Cells(65536, 4).End(3).Row
For i = 1 To deg
Rows(son).Copy
Rows(son + i).Select
ActiveSheet.Paste
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
Cells(son + 1, 3).Select
Next
End Sub[/vb:1:452d9fb43b]
 
Sn Mehmet Bey,
Kodlarda deg = InputBox("Kaç satır eklensin?") Parametresi hata veriyor. sizce problem nedir=
Saygılarımla...
 
Sn Mehmet Hocam,
son = Cells(65536, 2).End(3).Row
Rows(son).Copy
Rows(son + 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(son + 1, 3).Select

Kodlarına bahsettiğim olayı eklememiz nasıl mümkün olabilir sizce, içten yardımınız için teşekkür ediyorum.
 
UserForm + TextBox ile istiyorsanız ekteki dosyaya bakın.
 
Hocam merhaba, size bir konu hakkında danışacağım.
Muhasebe Mizanında;
A Sütunu B Sütunu C Sütunu
100 Kasa Hs. 100,00
100 01 Nakit Kasa 100,00
120 Alıcılar 120,00
120 01 02 A Şahsı 120,00
150 İlk Madde Malzeme 150,00
150 01 1250 Emtia 150,00


ben burada 120'den önceki satıra, 150'den önceki satıra boş bir satır ilave etsin. Bu şekilde aşağıya doğru devam ediyor. 3 haneli hesapların bir üstüne boş satır ilave etsin istiyorum. Yalnız solda bulunan satır numaraları her şirkette aynı değil. değişken. Şimdiden kolay gelsin. Teşekkürler.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst