Formül yerine kod

[sdegirmenci]

Değerli hocalarım merhaba;
Bu konuyu daha önceden bir defa daha açmıştım.Sayın Ayhan ERCAN cevap verdi ama kodu sayfama uyarladığımda daha doğrusu çalışma satır aralığını yükselttiğimde sayfa kilitlendi.O yüzden affınıza sığınarak tekrar yazmak zorunda kaldım. Açıklamam sayfa üzerinde mevcut. Saygılarımla.

 

[masuk500]

arkadaşlar bende aynı dertten muzdaribim.bu konuya bir çözüm getirilse eminimki kimse formüllerle uğraşmayacak ve excel çok daha hızlı çalışacaktır.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, [P5:P15000,R5:R15000]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    [P5] = "=M5-O5"
    [P5].AutoFill Range("P5:P15000")
    Range("P5:P15000").Value = Range("P5:P15000").Value
    [R5] = "=K5*L5"
    [R5].AutoFill Range("R5:R15000")
    Range("R5:R15000").Value = Range("R5:R15000").Value
    Application.EnableEvents = True
End Sub

 

[sdegirmenci]

Sayın Korhan AYHAN Hocam önce ilginize çok teşekkür ederim.
Yazmış olduğunuz kodu kopyaladım. Daha fazlasını bile yapmışsınız.Bilginize sağlık.Tüm işleriniz kolay gelsin.Hoşçakalın.