hücre de sabit sayı

[by_IsTaNBuL]

arkadaşlar öncelikle şimdiden yardımlarınız için tşkr ederim
bir çalışma kitabının sayfa1 inde belirlediğim bir kolondaki hücreler BACKSPACE veya delete tuşu ile silindikten sonra hücreden çıkarken otomatik olarak bu hücreye 0,00000000001 yazmasını istiyorum . bunun için bir formül veya herhangi bir fonksiyon varmıdır. arastırıyorum ama bulamadım.
yardımlarınızı bekliyorum.
tesekkurler.

 

[Mahir64]

arkadaşlar öncelikle şimdiden yardımlarınız için tşkr ederim

Merhaba,

tşkr ne demek? sadece merak ettiğim için soruyorum.

Makro ile çözüm üretilebilir sorunuza.

 

[by_IsTaNBuL]

yanıtınız için tesekkur

ewet ama makroyu ,hücreyi sildikten sonra hücreden cıkarken tetıklemesı gerek bunu nasıl yapacagız.

 

[Korhan Ayhan]

Selamlar,

Aşağıdak kodu sayfanızın kod bölümüne uygulayıp denermisiniz. Kod "A" sütununda çalışır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target = "" Then Target = 0.00000000001
End Sub

 

[by_IsTaNBuL]

çok tesekkur ederım

Süper oldu

 

[by_IsTaNBuL]

bir problem daha var.

korhan bey bu makroyu sayfanın kod bölümünde çoğaltamazmıyız. denedim yapamadım.
yani a sütununun haricinde baska sutunlardada ( 1 den fazla sütunda) değişik rakam, yazı veya formül ü sabitleyemezmiyiz. silinsede hücreden çıkarken tekrar yazılsın.

 

[Korhan Ayhan]

Selamlar,

Kodun çalışmasını istediğini sütunları ve sabitlemek istediğiniz değerleri belirtirseniz yardımcı olabiliriz.

 

[by_IsTaNBuL]

Sayfa adı : Prof

d sütununda ( d4:d171) aralığına bu formülü
"=ıf(rc[-1]<>"""",vlookup(rc[-1],data!c[-2]:c[-1],2,0),"""")"

e sütununa ( e4:e171) aralığına bu formülü
"=ıf(rc[-2]<>"""",vlookup(rc[-2],data!c[-3]:c[6],10,0),"""")"

e sütununa ( e4:e171) aralığına bu formülü
"=ıf(rc[-3]<>"""",vlookup(rc[-3],data!c[-4]:c[-2],3,0),"""")"

korhan bey ,

uzun bir formül yumagı oldugu için sadece 3 adetini yazdım.
Bunları yapsak yeterli olur sanırım.
Yani bundan sonrasını ben gelıştırebılırım dıye dusunuyorum.
Ama bana makronun mantıgını da yazarsanız sevınırım.

çok tesekkur ederım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Bu kod sayfada herhangi bir hücrenin içeriği değiştiğinde sayfadaki formülleri ilgili alanlara yeniden yazar. Yani formülleriniz silinmez.

Aslında formüllerinizin silinmemesi için en kullanışlı yöntem sayfa koruma yöntemidir.

Aşağıdaki kod dosyanız makroları etkinleştirmeden açılırsa bir işe yaramaz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    Range("D4:D171") = "=IF(RC[-1]<>"""",VLOOKUP(RC[-1],DATA!C[-2]:C[-1],2,0),"""")"
    Range("E4:E171") = "=IF(RC[-2]<>"""",VLOOKUP(RC[-2],DATA!C[-3]:C[6],10,0),"""")"
    Range("F4:F171") = "=IF(RC[-3]<>"""",VLOOKUP(RC[-3],DATA!C[-4]:C[-2],3,0),"""")"
 
Son:
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub

 

[by_IsTaNBuL]

çok teşekkürler korhan bey