tabloya son satıra veri girdikçe otomatik satır ekle

[ayemenici]

arkadaşlar öncelikle herkese selam aşağıda verdiğim formül ile mevcut tabloya belli bir aralıkta satır eklenmekte (dolu satırdan itibaren ) ancak ben bunu en son satıra (başka bir deyişle son satırın ilk hücresi dolu ise) veri girilince kendiliğinden (butona vs. basmadan)yapmak istiyorum lütfen yardım. ilgilenenlere şimdiden teşekkür.





Private Sub enter()

[a15:a30].Find("TOPLAM").Offset(0, 1).EntireRow.Insert
[a15:a30].Find("TOPLAM").Select
Selection.End(xlUp).Offset(1).Select

range("A15").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select


Loop
End Sub

 

[Ali]

arkadaşlar öncelikle herkese selam aşağıda verdiğim formül ile mevcut tabloya belli bir aralıkta satır eklenmekte (dolu satırdan itibaren ) ancak ben bunu en son satıra (başka bir deyişle son satırın ilk hücresi dolu ise) veri girilince kendiliğinden (butona vs. basmadan)yapmak istiyorum lütfen yardım. ilgilenenlere şimdiden teşekkür.





Private Sub enter()

[a15:a30].Find("TOPLAM").Offset(0, 1).EntireRow.Insert
[a15:a30].Find("TOPLAM").Select
Selection.End(xlUp).Offset(1).Select

range("A15").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select


Loop
End Sub

Verilerinizin olduğu Veri-Listele-Liste oluştur seçeneği ile dinamik bir alan oluşturun. Mavi çerçeveli ve en altta * olan bir satır olacaktır. Buraya her veri girdiğinizde otomatik olarak yeni veri girmeniz için yeni bir satır oluşturulacaktır.

 

[ayemenici]

verdiğin bilgi için teşekkür ederim ancak
ben aynı sayfa üzenirde birden çok tablo ile çalışıyorum ve bu tabloların boyutları birbiri ile farklı tüm satır eklemez ise tablolar bozuluyor başka sayfalara veri aktarırken hata veriyor bu yüzden onu kullanmıyorum kodu düzeltebilirseniz sevinirim.

 

[leumruk]

Örnek bir dosya ekleyerek, satırın eklenmesini istediğiniz kısmı belirtebilir misiniz?

 

[janveljan]

Kodları ilgili sayfanın kod kısmına Worksheet_Change olayına yazarsanız ilgili hücreler değiştiğinde satır eklenir. Ancak kodlarınızı incelediğimde [A15:A30] arasında arama yapıp ilgili değeri buldurup ona göre işlem yapıyorsunuz. Ancak bir süre sonra veri sayısı artınca, Toplam satırı bu aralığın dışına çıkacak ve kodlar hatalı çalışabilecektir.
Benim tavsiyem nirengi noktaları belirleyin, Bunlar toplam satırları olabilir, yada diğer tablonun başlangıç satırları olabilir ve bu nirengileri Ekle / Ad tanımla yöntemi ile excele tanıtın, zaten satır eklendiiğinde bu tanımlar kendini güncellediğinden bu sorunu direk aşmış olursunuz.

 

[ayemenici]

Örnek bir dosya ekleyerek, satırın eklenmesini istediğiniz kısmı belirtebilir misiniz?

aşağıda örnek dosyayı veriyorum şimdiden teşekkür

 

[ayemenici]

Bu konuya yardım edecek yokmu

 

[janveljan]

Dosyanız ekte, Ad Tanımla işlevi ile Toplam yazan hücrelerin bir üstündeki hücreler SonSatır olarak tanımlanmıştır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son
If Intersect(Target, Range("SonSatır")) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Target.EntireRow.Insert Shift:=xlDown
Target.Offset(-1, 0) = Target
Target.Offset(-1, 1).Select
Target.Value = ""
son:
End Sub

 

[ayemenici]

çoook teşekkürler ederim çok işime yarayacak

 

[vitaminb1]

satır ekle tersi olan otamatik satir sil kodu varmı satır ekle ile ikisinin birlikte çalıştığı. burada son satıra yazı yazıldığı zaman satır eklemesi yapılıyor. son satırdaki bilgi silindiği zaman 1 satır silsin.

 

[gedavet]

iyi bayramlar vitaminb1 istediği özellik çözülürse bende kullanmak isterim yapıveren olursa ancak burada tablonun ilk sütununa yazınca ekliyor bütün sütünlara yazınca eklese daha iyi olur ve bu taplolar bir kaç sayfada olduğunu düşünelim birde sayfayı korusak bir kaç yerinde formüller var silinmese korumayı kaldırıp eklese tekrar koruma koysa

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[ikaramaz]

hocam her sütuna değer girdikçe satır kaydırıyor oysaki son sütun belirlendikten sonra oraya veri girişi yapıldıktan sonra satır kaydırabilirsek inanın bu bizimde çok işimize yarayacak. Sağlık mutluluk ve esenlik dolu bayramlar diliyorum.

 

[gedavet]

korhan bey ilginiz ve emeğiniz için teşekkür ederiz ancak taplonun içindeki hangi hücreye veri girilirse satır ekliyor sadece son satırın bütün hücrelerine girince eklese ve taplu içerisinde hücrelerin bazı yerlerini korumaya açık bazısını kapalı yapıp ve şifreyi açıp işlem yasa ve tekrar kaoruma koysa sil işlemi ise satırdaki bir veriyi yanlışlıkla ilince satır siliniyor bunu nasıl önleme mantığı kurulur siz daha iyisini yaparsınız

 

[Korhan Ayhan]

Selamlar,

Sn. ikaramaz,

Dosyada gerekli düzenlemeleri yaptım incelermisiniz. Satırdaki tüm hücrelere veri girişi yaptıktan sonra satır ekleniyor. Silerkende herhangi bir yanlışlığa karşı sizden onay alarak silme işlemi yapılıyor.


Sn. mustafakoza,

Korumaya alınacak alanları bilirsek kodu ona göre düzenlemek kolay olur.

 

[gedavet]

Koruma olacak yeleri diyelim ki abcde hücreleri açık olsun diğer hücreler klitli olsun

 

[gedavet]

Satır eklemde benim kullanacağım örneğe göre satırın bazı yerlerindeki hücre boş olabilir onun için istediğin şı siizn örnekdeki çalışmaya göre toplam satırından bir önceki satırın sağa doğru hangi hücresine veri girilirse satır eklese

 

[Korhan Ayhan]

Selamlar,

Sn. mustafakoza,

Ekteki örnek dosyayı incelermisiniz. TOPLAM satırının bir üstündeki satıra A-E sütunları arasında değer girdikçe satır eklenmektedir. Hücre silmek istediğinizde size uyarı mesajı vermektedir. Onay verirseniz satır silme işlemi yapılacaktır.

Koruma şifresi : 12345

 

[gedavet]

korhan bey teşekür ediyorum ancak sil makrocu çalışmıyor galiba

 

[Korhan Ayhan]

Selamlar,

TOPLAM yazan satırın bir üstüne gelin ve delete (yada hücre içeriğini boşaltın) tuşuna basın. Eğer uyarı mesajına EVET onayını verirseniz satır silinecektir.