Seçili alanın tutarlarını negatif tutara çevirme

[cavanoos]

Merhaba arkadaşlar;

Örneğin A sütununda seçtiğimiz bir aralıkta,A20:A45 mesela,buradaki yazılı olan tutarları negatif tutara çevirebilirmiyiz.

Hücrede 20.500 varsa -20.500 olmalı.

Bunun kolay bir yolu varmı ?

 

[excelci1]

boş bir hücreye -1 yaz
-1 in yazılı olduğu hücreyi kopyala
-1 ile çarpmak istediğin alanı seç
sağ tuş > özel yapıştır > çarp
tamam deyin

 

[Merhum İdris SERDAR]

.

Kodu deneyin.

Sub negatif()

Dim hcr As Range
For Each hcr In Selection
If IsNumeric(hcr.Value) Then
hcr.Value = -1 * (hcr.Value)
End If
Next hcr

End Sub

.

 

[cavanoos]

Arkadaşlar sorunum çözülmüştür.

 

[cavanoos]

Sayın yurttaş;

Kodun içine bir özellik ekleyebilir miyiz ?

Şöyleki 20.000 olan tutarı -20.000 yapsın ve rengi kırmızı olsun.

Yardım edebilir misiniz ?

 

[Merhum İdris SERDAR]

Sayın yurttaş;

Kodun içine bir özellik ekleyebilir miyiz ?

Şöyleki 20.000 olan tutarı -20.000 yapsın ve rengi kırmızı olsun.

Yardım edebilir misiniz ?

.

Bu kodu deneyebilirsiniz:

Sub negatif()

Dim hcr As Range
For Each hcr In Selection

If IsNumeric(hcr.Value) Then
hcr.Value = -1 * (hcr.Value)
If hcr.Value < 0 Then hcr.Font.Color = RGB(255, 0, 0)
If hcr.Value > 0 Then hcr.Font.Color = RGB(0, 0, 0)
If hcr.Value = 0 Then hcr = ""

End If

Next hcr

End Sub

.

 

[cavanoos]

Sayun yurttaş;

Çok teşekkür ederim.Süper oldu.