Sıfırdan küçükse hücreye sıfır yazdırmak.

[girdap]

Merhaba,

I sütunu boyunca girilmiş değerler sıfırdan küçük ise küçük olan aynı hücrelerin değerini nasıl sıfır gösterebiliriz?

Saygılarımla

 

[Merhum İdris SERDAR]

Hücre biçimini:

0,0_-;0,0

veya;

0,0_-;0

şeklinde yapın.

.

 

[Necdet]

Merhaba,

Eğer işlemi doğrudan I sütunu üzerinde yapmak istiyorsanız aşağıdaki kodları kullanabilirsiniz.

Sub Sifirla()
For i = 2 To [I65536].End(3).Row
    If Cells(i, "I") < 0 Then Cells(i, "I") = 0
Next i
End Sub

Eğer Başka bir hücrede yapmak isterseniz fonksiyonlarla olabilir

=EĞER(I2<0;0;I2)

 

[girdap]

Herkese teşekkür ederim yardımlarınız için. Necdet Bey için bir sorum var.Bu makro bu işlevi butonsuz çalıştırır mı? Yani - değeri görünce direk sıfır yazar mı? Açıkçası makroyu tercih edicem çünkü bir fonksiyon girişi istemiyorum hücrelere.

Saygılarımla

 

[Necdet]

Merhaba

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.
Giriş sırasında negatif değerleri Sıfır yapar.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [I:I]) Is Nothing Then Exit Sub
If Target < 0 Then Target = 0
Son:
End Sub