Bir hücredeki sayı eksi ise diğer hücredeki sayıyı da eksi yapma

[asiye_konya]

Arkadaşlar sizlerden ricam aşağıdaki sorumu yanıtlamanızdır.

Ben bir hücredeki sayı (-) eksi değere sahip ise örneğin A1 hücresi -6 ise B1 hücresindeki rakam kaç olursa olsun eksiye dönsün.

Diğer bir izah ile

A1 -6 ise B1 hücresi 2 iken -2 ye dönsün. istiyorum. Yok A1 (-) eksi değil ise B1 değişmesin istiyorum.

Yardımlarınızı rica ediyorum.

Saygılarımla

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne kopyalayın. A1 hücresine veri girince kod çalışır ve istediğiniz olur.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("[COLOR=red]A:A[/COLOR]")) Is Nothing Then Exit Sub
 
    With Target
        If .Value < 0 Then .Offset(0, 1) = -1 * .Offset(0, 1)
    End With
 
End Sub

.

 

[asiye_konya]

İlginize teşekkkür ederim.

Ömer Bey gerçekten bu kadar hızlı döndüğünüze memnun oldum. Lakin bu hücreleri nasıl arttırabiliriz acaba yani ben olduğu gibi tüm sütunu yapmak istiyorum da.

 

[Ömer]

#2 numaralı mesajı değiştirdim. Bu haliyle A sütunu için uygulayabilirsiniz.

 

[asiye_konya]

Ömer bey çok teşekkür ederim. Bu şekilde oldu. Tek sorunum bir yerden bu sütuna koplayadığımda otomatik olarak değiştirmiyor. Mecburen her eksi olan hücreye F2 ilegirip enter yaptıktan sonra diğer hücreyi eksiye çeviriyor. Bunu otomatik olarak yapamaz mı acaba ?

 

[Ömer]

Module kopyalayıp çalıştın.

Sub Eski()
    
    Dim i As Long
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Cells(i, "A") < 0 Then
            Cells(i, "B") = -1 * Cells(i, "B")
        End If
    Next i
    
End Sub

.