Excel de Satır Besleme mümkünmü...

[akman37]

Merhaba arkadaşlar;

Hazırlamış olduğum bir tabloda, her satır veri giriş anında çoğaltılabilirmi
Böyle bir imkanımız varsa çok işime yaracak teşekkür ederim.

Not: Çoğaltılan satırlar için otomotik numara verilirse dahada iyi olur.

 

[Necdet]

Merhaba,
Örnek dosya ile sorunuzu açıklar mısınız?

 

[akman37]

Excel de yeni satır ekleme

Küçük örnek bir dosya gönderiyorum.Sıkıntımı daha iyi anlamanız için
Şimdiden teşekkür eder, iyi çalışmalar dilerim.

 

[akman37]

Kimse Yokmu ?

Arakadaşlar benim sorunuma cevap verebilecek kimse yokmu...

 

[Ferhat Pazarçevirdi]

C3:H6 aralığını seçtikten sonra; Menüden, Veri->Listele-Liste Oluştur komutunu verin.

 

[Merhum İdris SERDAR]

Küçük örnek bir dosya gönderiyorum.Sıkıntımı daha iyi anlamanız için
Şimdiden teşekkür eder, iyi çalışmalar dilerim.

Dosyanız ekte.

Veri / Listele / Liste Oluştur ile yapılmıştır.


.

 

[akman37]

Çok Teşekkür ederim.

İlginizden dolayı teşekkür ederim.
Çok sağolun
İşime çok yaracak bu özellik. Ama satır numaralını excel otomotik verebilirmi desem çok olurmuyum.
Şimdiden sağolun.İyi çalışmalar.

 

[Merhum İdris SERDAR]

İlginizden dolayı teşekkür ederim.
Çok sağolun
İşime çok yaracak bu özellik. Ama satır numaralını excel otomotik verebilirmi desem çok olurmuyum.
Şimdiden sağolun.İyi çalışmalar.

Dosyayı iyi incelemediniz herhalde...

Sıra no'ları otomatik veriyor zaten...

..

 

[Ferhat Pazarçevirdi]

Listenin sonuna yeni satır eklendiğinde (yani mousela veya klavyeyle en sona geldiğinizde otomatik sıra no veren kodlar aşağıdadır.

Ekteki örneği de inceleyebilirsiniz.

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim bs As Integer
    Dim bt As Integer
    On Error Resume Next
    With ListObjects(1)
        If Not Intersect(Target, .Range) Then
            bs = .HeaderRowRange.Row
            bt = .Range.Rows.Count + bs - 1
            If Target.Row = bt Then
                Cells(Target.Row, 3) = Application.WorksheetFunction.Max(Range("C" & bs & ":C" & bt - 1)) + 1
            End If
        End If
    End With
End Sub

 

[akman37]

Teşekkürler

Arkadaşlar çok teşekkür ederim. Bu forum benim için bir nimet.
Umarım bende diğer arkadaşlarıma bu kadar yardımcı olurum.
İyi çalışmalar dilerim.