Formüllü otomatik satır ekleme

[nachuge]

arkadaşlar selamlar şu şekilde olan tabloma son satıra gelince aşağıdaki kod ile yeni satır ekleteiyorum benim istediğim eklenen satırda üstteki formül devam etsin ve yandaki sıralama 1 - 2 devam etsin bunu nasıl sağlayabilirim?

satı ekletme kodum

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("C12:C65536")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If UCase$(Target) > 0 Then
Rows(Target.Row + 1).Insert
End If
Son:
Application.EnableEvents = True
End Sub

 

[Murat OSMA]

Rows(Target.Row + 1).Insert
satırından sonra bu satırı ilave edip deneyin;

[FONT="Trebuchet MS"]Rows(Target.Row + 1).[COLOR="Red"]FillDown[/COLOR][/FONT]

 

[nachuge]

teşekkür ederim peki ilk sıradaki 1 2 3 nasıl artar acaba çünkü sizin yöntemde 3344 gidiyor da..

 

[nachuge]

ve aynı verileri ekliyor üst satır ile aynı ..

 

[Murat OSMA]

Yapmak istediğiniz işlem aslında basit ama eklediğiniz görsele baktığımda; daha sonra sorabileceğiniz birçok soruyu tahmin edebiliyorum..
Bunları engellemek için örnek dosyanız üzerine ne yapmak istedikleriniz belirtin ve ekleyin.

 

[nachuge]

öncelikle üyelik almam gerekli konu ile ilgileneceğim

 

[nachuge]

http://s3.dosya.tc/server22/hSPHYf/DikiliA_a__l__Tutana__.xls.html

yardımcı olabilirmisiniz acaba?

 

[Murat OSMA]

Şu an ne konuda yardım istiyorsunuz ?

 

[nachuge]

ben normalda ağaç ismi ve çapı giriyorum Kn girip yana gelip örneğin 36 çapı girince alta boş ve formüllü bir satır atmasını istiyorum. tabi başta dip kütük no da otomatik artmasını istiyorum.

 

[Murat OSMA]

Bölme Detay sayfasının kod kısmına bu kodları yazıp deneyin;

[FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("C12:C65536")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If UCase$(Target) > 0 Then
    Rows(Target.Row + 1).Insert
    Rows(Target.Row + 1).FillDown
    Target.Offset(1, 0).Value = "": Target.Offset(1, -1).Value = ""
    Target.Offset(0, -2).Value = Target.Offset(-1, -2).Value + 1
    End If
Son:
    Application.EnableEvents = True
End Sub[/FONT]

 

[nachuge]

alta tek satır yerine 2 satuır atıyor ve işin garibi formülleir kopyalamıyor onu çzöemedim sayın Muray Bey

 

[nachuge]

Örneğin Kn 32 yazınca altta attığı satırda boş atıyor bakınca formülleir göremiyorum

 

[Murat OSMA]

Daha fazla yardimci olamam.
İyi akşamlar.