locked
[Office 2010, Excel] Excel 2010 formul RRS feed

  • Soru

  • Selamlar,

    Ben Office 2010 pro kullanıyorum.

    Benim sorunum

    20 satır altalta bir formul yapıyorum, örnek ilk iki sutunu üçünce stuna topluyorum. şimdi sorun araya bir satır ekliyorum, eklediğim satırın ilk beş satırında formulleri otomatik kabul etmiyor. fakat diğer alt satırlara eklediğim satırlarda formulleri otomatik alıyor. bu işlemi off. 2003 dede denedim aynı sonuç verdi.

    bu konuda yardımcı olursanız sevinirim

    12 Nisan 2011 Salı 08:33

Yanıtlar

  • Merhaba.

    O zaman devreye vba kodlama girecek.

    Verilerinizin A:E aralığında olduğunu ve Formulunüzün E sütununda olduğunu kabul ederek aşağıdaki kodlamayı yaptım.

    Burada A:E aralığında istediğiniz bir satıra çift tıkladığınızda alta yeni bir satır açıyor.

    Ve E sütunundaki formülü aşağı kopyalıyor.

    Örnek verecem olursam

    C ve D sütunlarında sayı içeren değerlerim var e sütundada o iki değeri topluyorum.

    12 satırı deneyelim.

    12nci satırda E sütunumda şu formül var.

    =C12+D12

    şimdi ben A12:E12 aralığına çift tıkladığımda altta yeni bir satır açıyor.

    Ve üstteki Hücreyi(formülü) biçimi ile alta kopyalıyor.

    Aşağıdaki kodlama sayfanın kod sayfasında doubleclick olayına yazılmıştır.

    Makroların çalışabilmesi için bir defaya mahsus olmak üzere excelde güvenlik seviyesini düşürüp .dosyanızı kapatıp tekrar açmalısınız.

    Verdiğim kodlamayı kendi düzeninize göre ayarlayarak istediğiniz çözümleri alabilirsiniz.

    Kolay gelsin.

    evrengizlen@hotmail.com

    İyi çalışmalar.

    VBA kodlamam:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:E65536")) Is Nothing Then Exit Sub
    On Error Resume Next
    Cancel = True
    Range("A" & Target.Row & ":E" & Target.Row).Insert Shift:=xlDown
    Range("A" & Target.Row + 1 & ":E" & Target.Row).Copy Range("A" & Target.Row - 1)
    Range("A" & Target.Row & ":E" & Target.Row).Value = ""
    Range("E" & Target.Row - 1 & ":E" & Target.Row - 1).Copy Range("E" & Target.Row)
    
    End Sub

    Size yardımcı olabilmişsem mesaj içerisindeki "Yardımcı Olarak Oyla" üçgenine tıklayın.

    12 Nisan 2011 Salı 10:49

Tüm Yanıtlar

  • Daha detaylı olarak aşağidaki tabloda 4. satırı eklediğimde değerleri giriyorum fakat hesaplama işlemi yapamıyorum

    Aynı işlemi 8. satırda yaptım değerleri girdiğim anda hesaplama işlemini yaptı.

    FORMUL
       
    223 33 =A3+B3 =A3-B3 =C3+D3
    45 44 =A4+B4 =A4-B4 =C4+D4
    343 55 =A5+B5 =A5-B5 =C5+D5
    2 45      
    43 66 =A7+B7 =A7-B7 =C7+D7
    3 77 =A8+B8 =A8-B8 =C8+D8
    47 88 =A9+B9 =A9-B9 =C9+D9
    76 99 =A10+B10 =A10-B10 =C10+D10
    34 22 =A11+B11 =A11-B11 =C11+D11
    34 11 =A12+B12 =A12-B12 =C12+D12
    556 22 =A13+B13 =A13-B13 =C13+D13  

     

     

    12 Nisan 2011 Salı 09:09
  • Merhaba.

    Bir üst satırı copy-paste yaparak bu sorunu çözebilirsiniz.

    İyi çalışmalar.

    evrengizlen@hotmail.com


    Size yardımcı olabilmişsem mesaj içerisindeki "Yardımcı Olarak Oyla" üçgenine tıklayın.
    12 Nisan 2011 Salı 09:30
  • Copy - Paste yapmak büyük dosyada zaman alır formulü aşağı çekersende olur.

    benim gösterdiğim dosya sadece örnek bir dosya. asıl dosyamda copy- paste yaptığınızda birçok satır ve sutunlarda değişiklik yapmam gerekiyor

    12 Nisan 2011 Salı 09:42
  • Merhaba.

    O zaman devreye vba kodlama girecek.

    Verilerinizin A:E aralığında olduğunu ve Formulunüzün E sütununda olduğunu kabul ederek aşağıdaki kodlamayı yaptım.

    Burada A:E aralığında istediğiniz bir satıra çift tıkladığınızda alta yeni bir satır açıyor.

    Ve E sütunundaki formülü aşağı kopyalıyor.

    Örnek verecem olursam

    C ve D sütunlarında sayı içeren değerlerim var e sütundada o iki değeri topluyorum.

    12 satırı deneyelim.

    12nci satırda E sütunumda şu formül var.

    =C12+D12

    şimdi ben A12:E12 aralığına çift tıkladığımda altta yeni bir satır açıyor.

    Ve üstteki Hücreyi(formülü) biçimi ile alta kopyalıyor.

    Aşağıdaki kodlama sayfanın kod sayfasında doubleclick olayına yazılmıştır.

    Makroların çalışabilmesi için bir defaya mahsus olmak üzere excelde güvenlik seviyesini düşürüp .dosyanızı kapatıp tekrar açmalısınız.

    Verdiğim kodlamayı kendi düzeninize göre ayarlayarak istediğiniz çözümleri alabilirsiniz.

    Kolay gelsin.

    evrengizlen@hotmail.com

    İyi çalışmalar.

    VBA kodlamam:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A1:E65536")) Is Nothing Then Exit Sub
    On Error Resume Next
    Cancel = True
    Range("A" & Target.Row & ":E" & Target.Row).Insert Shift:=xlDown
    Range("A" & Target.Row + 1 & ":E" & Target.Row).Copy Range("A" & Target.Row - 1)
    Range("A" & Target.Row & ":E" & Target.Row).Value = ""
    Range("E" & Target.Row - 1 & ":E" & Target.Row - 1).Copy Range("E" & Target.Row)
    
    End Sub

    Size yardımcı olabilmişsem mesaj içerisindeki "Yardımcı Olarak Oyla" üçgenine tıklayın.

    12 Nisan 2011 Salı 10:49
  • veri alanını tabloya çevirirsen sorun çözülür sanırım.
    14 Nisan 2011 Perşembe 13:02