eksi işareti

[acebeci]

Çok değerli arkadaşlar burda yapmak istediğim EĞER d sütünun daki harf B ise b sütunun daki değerin başına eksi işareti koymasını istiyorum bu mümkün mü acaba

 

[Necdet]

Merhaba,

E2 :

=EĞER(D2="B";B2*-1;B2)
=IF(D2="B";B2*-1;B2)

 

[acebeci]

Saygıdeger hocam ilginiz için çok teşekkür ederim bir hata verdi çözemedim.Şimdi D2 Deki değer B ise B2 deki değerin başına - (eksi işareti) koyması lazım A ise öylece kalmalı.Sizin gönder miş olduğunuz formül doğrudur ama ben mi yanlış yere uyguladım acaba.

 

[acebeci]

Halledemedim arkadaşlar.Eğer yardım edebilecek varsa çok sevinirim

 

[Ömer]

Halledemedim arkadaşlar.Eğer yardım edebilecek varsa çok sevinirim

Merhaba,

Dosyalarınızı 2003 formatında eklerseniz 2007 olmayanlarında inceleme şansı olur.

.

 

[Orion1]

dosyanızı 2003 formatında ekleyin.Herkeste 2007 yok.Mesela bende yok.Nasıl bakacam.

 

[acebeci]

özür dilerim hocam düşünemedim şimdi ekliyorum

 

[Ömer]

Sub Eksi()
    For i = 2 To [D65536].End(3).Row
        If Cells(i, "b") < 0 Then Exit Sub
        If Cells(i, "d") = "B" Then
            Cells(i, "b") = -1 * Cells(i, "b")
        End If
    Next i
End Sub

Kodu butona atayarak çalıştırın.

.

 

[Ömer]

Sub Eksi()
    For i = 2 To [D65536].End(3).Row
        If Cells(i, "d") = "B" Then
            Cells(i, "b") = -1 * Abs(Cells(i, "b"))
        Else
            Cells(i, "b") = Abs(Cells(i, "b"))
        End If
    Next i
End Sub

Bu şekilde daha mantıklı olur sanırım.

.

 

[Orion1]

Dosyanız ektedir.
D sütununa veri girdikçe çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
If Target.Offset(0, -2).Value <> "" Then
    If IsNumeric(Target.Offset(0, -2).Value) Then
        If UCase(Target.Value) = "B" Then
            If Target.Offset(0, -2).Value > 0 Then
                Target.Offset(0, -2).Value = Target.Offset(0, -2).Value * -1
            End If
        End If
    End If
End If
End Sub

 

[acebeci]

değerli hocalarım ilginizden dolayı çok ama çok teşekkür ederim