Satırdaki veriler girildiğinde formülleri alt satıra kopyalama

[altan147]

tabloda örneğin C1 hücresine veri girdiğimde C satırındaki formülleri D satırına kopyalaması gerekiyor. D1 hücresine de veri girildiğinde de aynı şekilde formülleri E satırına kopyalayacak. yardımcı olabilirmisiniz

 

[N.Ziya Hiçdurmaz]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c1:e1]) Is Nothing Then Exit Sub
If [c1] > 1 Then
[c2].Copy
[d2].PasteSpecial
End If
If [d1] > 1 Then
[d2].Copy
[e2].PasteSpecial
End If
Application.DataEntryMode = False
End Sub

 

[altan147]

Kusura bakmayın yanlış tarif etmişim sanırım. ben satır doldukça alt satıra kopyalamaya çalışıyordum. yani c1 hücresine veri girildiğinde 1. satırdaki formülleri ikinci satıra c2 hücresine veri girildiğinde 2. satırdaki formülleri 3. satıra kopyalamaya çalışıyorum.bu şekilde sayfanın sonuna kadar gitmeye çalışıyorum.yani formül her satırı doldurduğumda alta bi boş satır daha açmalı. tabii formülleri içeren bir satır.

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklermisiniz.

 

[altan147]

Aslında benim kullanacağım tablo ektekine benzer bir şey. Ekte renkli hücreler veri girdiğim yerler.renksiz hücrelerde formüllü hücreler. örnek olarak ben b4 hücresine veri girdiğimde 4. satırdaki formüllerin bi alt satıra kopyalanması daha doğrusu altına bi satır eklenip sadece formüllerin alta geçirmesi. zira böylece alttaki tablolarda zarar görmez.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu sayfanızın kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    If Target = "Hesap" Or Target = "Kodu" Then Exit Sub
    If Target <> "" Then
    Application.EnableEvents = False
    Rows(Target.Row).Copy
    Rows(Target.Row + 1).Insert Shift:=xlDown
    Application.CutCopyMode = False
    Application.EnableEvents = True
    End If
End Sub

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kod kopyalama yöntemi ile çalışıyordu. Aşağıdaki kod ise satır ekleyerek formülleri aktarmaktadır.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target = "" Then Exit Sub
    If Target = "Hesap" Or Target = "Kodu" Then Exit Sub
    If Target <> "" Then
    Rows(Target.Row + 1).Insert Shift:=xlDown
    Rows(Target.Row + 1).FormulaR1C1 = Rows(Target.Row).FormulaR1C1
    End If
End Sub

 

[altan147]

evet tam olarak istediğim bu çok sağolun. fakat makro b hücresine girdiğim veriyide alt satıra kopyalıyor. sadece formülleri kopyalaması mümkün değilmi.Ayrıca ters işlem olarak b hücresindeki veriyi sildiğimde bütün satırı silmesi mümkünmü

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Yalnız dolu olan satırlarınızda dikkatli kullanın hücredeki veriyi sildiğinizde satırı siliyor.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target = "Hesap" Or Target = "Kodu" Then Exit Sub
    If Target = "" Then GoTo SON
    If Target <> "" Then
    Rows(Target.Row + 1).Insert Shift:=xlDown
    Rows(Target.Row + 1).FormulaR1C1 = Rows(Target.Row).FormulaR1C1
    SATIR = ActiveCell.Row
    Range("" & ("B" & SATIR & ":H" & SATIR & ",J" & SATIR & ":M" & SATIR & ",P" & SATIR)).ClearContents
    End If: Exit Sub
SON: Rows(Target.Row).Delete
End Sub

 

[altan147]

Sağolun.Çok yardımcı oldunuz

 

[altan147]

Bu silme olayı dediğiniz gibi sorun çıkarabilir gözüküyor. Buna bir msgbox ile çözüm bulabilirmiyiz. yani satırı silmeden önce onay isteyebilir mi acaba

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Silme işlemini DELETE tuşuna göre ayarladım. Umarım faydası olur.

 

[altan147]

Çok daha kullanışlı olmuş fakat veriyi girdikten sonra ok tuşlarıyla hareket ettiğimde farklı tepkiler veriyor. mesela b sütununda bir hücreye veri girip yukarı ok tuşuna bastığımda satırı yine tamamen kopyalıyor. sağ veya sol ok tuşuna bastığımda da eski satırı yeni satırın altına atıyor.makro sadece enter tuşuna basıldığında yada aşşağı ok tuşuna basıldığında sorunsuz işliyor.

 

[Korhan Ayhan]

Selamlar,

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

 

[altan147]

Çok güzel olmuş. Kafanıza sağlık