Hücre değeri hep "0" olsun

[özilhan]

Herkese merhaba..
B15:B40 Hücre değerleri boş olsa dahi "0" olması için makro var mı?
Aynı zamanda "Delete ve ya da geri tuşuna basıldığında da hücre değeri hep sıfır olsun.

 

[özilhan]

Soruya ilave
B15:B40 hücrede veri yoksa hep "0" olsun.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:e500f5b0e2][b15:b40].SpecialCells(xlCellTypeBlanks) = 0
[/vb:1:e500f5b0e2]

 

[Korhan Ayhan]

Selamlar,

İşlemin olmasını istediğiniz sayfanın kod bölümüne aşağıdaki kodları uygularmısınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(ActiveCell, [B15:B40]) Is Nothing Then Exit Sub
If Target = "" Then Target = 0
End Sub

 

[özilhan]

Sn. COST_CONTROL, leventm,

Teşekkür ederim.
Kodlar gayet güzel çalışıyor.
Yalnız "Delete" tuşuna basınca sıfır değeri vermiyor..
İyi çalışmalar..

 

[Korhan Ayhan]

Selamlar,

Ben denedim veriyor.

 

[özilhan]

Özür dilerim kodlar hatasız çalışıyor.
Emeğinize teşekkür ederim..