negatif değerleri 0 yapmak

[foxspring]

Merhaba benim sorum bir sayfadaki tüm negatif sayıları 0 yapmak. Bunu nasıl bir macro ile yapabiliriz?
Teşekkürler.

 

[[USTA]]

Merhaba arkadaşlar foxspring arkadaşımızla aynı sıkıntı ile şuan bende karşı karşıyayım şuan işyerindeyim bu konuda çok acil yardıma ihtiyacım var,belki çok basit bişeydir ama nasıl yapacağım bilemiyorum.
Yardımlarınızı bekliyorum.
Teşekkürler...
+
Edit

Benim sıkıntım formülle felanda çözülebiliyorsa oda kabulümdür. İllaki makro şart değil...

 

[Kemal Demir]

Merhaba

Aralık değerini kendinize göre uyarlayınız.

For Each c In Range("b2:c5")
    If c.Value < 0 Then
        c.Value = 0
    End If
Next c

Yada Mause ile seçtiğiniz alanı kullanacaksanız

 For Each c In Selection
   
    If c.Value < 0 Then
        c.Value = 0
    End If
Next c

 

[uzmanamele]

merhaba
formül ile çözüm şöyle olabilir

=eğer(a1<0;0;a1)

 

[foxspring]

Kemal Bey Yardımınız için çok teşekkürler. Birde ben şunu sormak istiyorum. Benim formum 5 sayfadan oluşuyor ve sayfa 1 deki butona bastığımda birdizi macro yurutuyor ben bnu sayfa 1 deki bu butona ekliyeceğim ve diğer sayfalardada bunu yapmasını istiyorum. bunun için ne yapmalıyım?

 

[[USTA]]

Arkadaşlar çok çok çok teşekkür ettim,dediğim gibi benim işime daha çok formül şekli yaradı.
Bazıları için çok kolay olan şeyler bazıları için büyük sıkıntılar olabiliyor.
Ellerinize ve emeğinize sağlık...

 

[Korhan Ayhan]

Selamlar,

Sn. foxspring,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SAYFALARDAKİ_NEGATİF_DEĞERLERİ_SIFIR_YAP()
    Dim SAYFA As Worksheet
    Dim HÜCRE As Range
 
    For Each SAYFA In Worksheets
        For Each HÜCRE In SAYFA.Range("A1:A100")
            If HÜCRE.Value < 0 Then
            HÜCRE.Value = 0
            End If
        Next
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[foxspring]

yardımların için çok teşekkürler. Beni baya bir sıkıntıdan kurtarmış oldun

 

[baydeniro]

Paylaşım için çok teşekkürler sayın Korhan Ayhan