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

[gedavet]

diyelimki aradan bir satır da silmek istesen önceki makroda siliyordu yani tablonun içinda hangi satırın içinda tamamen veri kalmayınca o satırı silse bu mümkünmüüdr

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[gedavet]

Korahn bey emeğniz için çok teşekkür ederim

 

[gedavet]

yrd

Ekdeki dosyadaki kodlarda değişiklik yapı verebilrimisiniz açıklamaları eke yazdım

 

[gedavet]

Korhan bey daha önce bu kodda yardımcı olmuştunuz şimdi değişiklikleri yapı verebilirmisiniz

 

[manoyan]

Lütfen yardımcı olur musunuz?
Ekteki kurs onay dosyasının kursiyer listesindeki tablonun 15 satırı sabit bundan sonra c sutununa her isim eklendiğinde de alta otomatik satır eklesin ve bu işlemleri otomatik olarak aday kursiyer bilgi formuna da yapsın. Ayrıca kursiyer listesine girilen son kursiyer sayısını kurs çalışma programındaki kursiyer sayısı bölümüne otomatik atsın.

Teşekkür ederim

 

[mahmutozdemir]

Korhan Hocam Slm,
Sayfa 1 veya Sayfa2 in A10 ile A39 alanındaki BEP butonuyla verileri BEPFORUM sayfasının aktardığımda bepforum sayfasının a32 hücresinden itibaren satır ekyerek eklemesini ve silindiğinde satırların silinmesini nasıl yapabiliri.

 

[mahmutozdemir]

Slm
son satıra veri girildikce satır eklesin son satırdaki veriyi sildikce satır silsin yani a3 veri girince a3 mevlüde ünal a5 de olsun ... (silerken uyarı vermesin ) bunu yapabilirmiyiz. Teşekkürler

 

[mahmutozdemir]

Korhan Hocam Slm,
Sayfa 1 veya Sayfa2 in A10 ile A39 alanındaki BEP butonuyla verileri BEPFORUM sayfasının aktardığımda bepforum sayfasının a32 hücresinden itibaren satır ekleyerek eklemesini ve silindiğinde satırların silinmesini nasıl yapabilirim.

 

[Korhan Ayhan]

Merhaba,

#28 nolu mesaja eklediğiniz dosyanızda bu işlemi yapmak istediğiniz sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    
    If Target.Value = Empty Then
        Target.EntireRow.Delete
    ElseIf Target.Value <> Empty Then
        Target.Offset(1).EntireRow.Insert
    End If
Son:
Application.EnableEvents = True
End Sub

 

[foxmen06]

Hücredeki formulleride kopyalama yapmasını istersek nasıl bir formul yazmalıyız. Bu formul guzel calısıyor fakat bos satır ekliyor. üstteki formulüde kopyalayıp alt satıra eklemesini istiyorum.bir türlü bulamadım

 

[zumra_66]

Tablo Satır ekleme

Arkadaşlar kasa takip programı yapmaya çalışıyorum öğrenmek istediğim şu;

Tabloyu oluşturdum;
1- 21.03.2016 çek 100 yazdıktan sonra alt kısma otomatik tekrar satır açmasını istiyorum.