Otomatik satır ekleme ve üstteki formüllerin alta aktarılması

[optika]

Merhaba arkadaşlar

Ekteki dosyada B, C, D, E, F, G, H sütunlarından herhangi birine, herhangi bir veri girildiğinde, tablo biçimlendirmesi bozulmadan, alta boş bir satır açmasını ve J ile K sütunlarındaki formüllerin otomatik olarak yeni açılan boş satıra aktarılmasının sağlaması için yardımlarınızı istiyorum.

İlgilenenlere şimdiden teşekkür ederim.

 

[optika]

Aşağıdaki kodlarla istediğim işlemi gerçekleştirebildim ancak, 2. kez satır açıldığında alttaki satırların biçimleri bozuluyor. Bunu engellemek için ne yapılabilir ?


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
If UCase(Target) > 0 Then
Range("A" & Target.Row & ":L" & Target.Row).Copy
Cells(Target.Row + 1, "A").Insert Shift:=xlDown
Range("A" & Target.Row + 1 & ":C" & Target.Row + 1).ClearContents
Application.CutCopyMode = False
Cells(Target.Row, "D").Select
End If
Son:
End Sub

 

[Muhammet Okumuş]

Merhaba,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
Application.EnableEvents = False
Son = Cells(Rows.Count, "A").End(3).Row + 2
Range("A5:L8").Copy Range("A" & Son)
Application.CutCopyMode = False
Son = Cells(Rows.Count, "A").End(3).Row
Range("A" & Son - 2 & ":K" & Son - 1) = ""
Application.EnableEvents = True
End Sub

kodları deneyiniz.

 

[optika]

Sn. Muhammet Okumuş, ilginize çok teşekkür ediyorum ancak ben tam olarak ifade edememişim sanırım istediğimi. Benim eklediğim dosyada 6, 11, 16 ve 21. satırların (B, C, D, E, F, G, H) sütunlarına herhangi bir veri girildiğinde hemen altına, veri girmek için, formülleri de kopyalayan yeni bir satır daha açmasını istemiştim. Sizin gönderdiğiniz kodlarla yeni bi satır açılmıyor, tablo olduğu gibi aşağı kopyalanıyor. İlginize tekrar teşekkürler.

 

[Muhammet Okumuş]

Tam anlamadım ne yapmak istediğinizi. Dosyayı inceleyiniz.

 

[optika]

Sn. Muhammet Okumuş, çok teşekkürler ilginize. Bu kodlar tam olarak istediğimi yapıyor ancak bir sorun var, satır sildiğimde sayfa kilitleniyor ve hiç bir işlem yapılamıyor. Bunu nasıl engelleyebiliriz ?

 

[Muhammet Okumuş]

Kilitleme yapmıyor ama yerine yeni bir satır daha ekliyor.

 

[optika]

Sadece "C" hücresindeki veriyi sildiğinizde evet sadece yeni bir satır ekliyor ama komple satır sildiğinizde kilitleniyor.

 

[Muhammet Okumuş]

Ben de tüm satırı sildiğimden bahsediyorum. Kilitleme yapmıyor ben de.

 

[optika]

Şuan Excel 2007 de açıyorum ondan mı yapıyor anlayamadım ama kilitleniyor. Excel 2010 da deneyeceğim ilk fırsatta.

 

[Muhammet Okumuş]

Merhaba,
Dosyayı inceleyiniz. Sil butonuna bastığınızda aktif satırı siler.
Tablolarınızı bu şekilde 1 satır aralıkla çoğaltabilirsiniz. A sütununda yazan Toplam sözcüğüne dayalı makrolar yazılmıştır.

 

[optika]

Sn. Muhammet Okumuş, çok teşekkürler ilginize, elinize sağlık.

İyi çalışmalar dilerim.