Negatif hücre değerini pozitife çevirmek

[Zahir]

Merhaba;
Nagatif sayıları -1 değerini bir hücreye yazarak kopyala>Özel yapıştır<değerleri<çarp işlemi ile pozitife çevirebiliyorum. Ancak bu kodu bir butona atamak ve -1 değerini bu butona yazacağımız kodun içine gömerek yapmak istiyorum. Kısaca butona bastığımda seçili hücrelerdeki negatif değerli sayıları pozitife çevirmesini istiyorum. Bu fazlasıyla işimi görecek ama ilerde başkalarınında yararlanması amacıyla ve tabi benimde işimi kolaylaştıracaktır; seçili hücrelerde karma olarak hem negatif hem pozitif değerler varsa pozitif değerleri atlayıp sadece negatif değerleri -1 le çarparak pozitife çevirmesini sağlayabilirmiyiz. Teşekkür ederim.

 

[askm]

Örnek dosya eklerseniz yardımcı olmaya çalışalım.

 

[YUSUF44]

Aşağıdaki makro, seçili alandaki sayı olan hücrelerin mutlak değerlerini aynı hücreye yazar:

Sub pozitif()
Dim alan As Range

For Each alan In Selection
    If alan <> "" Then
        If IsNumeric(alan) = True Then
            alan = Abs(alan)
        End If
    End If
Next
End Sub

 

[Zahir]

Sayın YUSUF44 mükemmel olmuş çok teşekkür ederim. Sağlıcakla kalın.

 

[Seyit Tiken]

Alternatif :

ActiveCell.NumberFormat = "0.00;[Black]0.00"

Hücrede formül varsa bozmuyor.