Makro kullanmadan koşula göre pozitif degeri negatif yapmak

[northcyprus]

merhaba,
D stünunda İNDİRİM VEYA ÖDENMEZ yazıyorsa G stündaki sayı hep (-)NEGATİF olmalıdır.
koşullu biçimlendirme ile rengini değişebliyorum ama bir türlü (-) yapamadım yardımcı olabilirmisiniz. teşekkürler..

 

[Mustafa MUTLU]

Macro kodu ile yapabiliriz.
Vereceğim kod ne zaman çalışsın.
Yani tetikleme ne zaman olacak, siz hücreye veri girince mi ?
Kitap açılınca mı ?
Yada bir tuş koyarak tuşu tıklayınca mı ?

 

[northcyprus]

Sayın hocam hucreye veri girildiğinde yani şu an
D3 te indirim yazıyor G3 -4 bunu el ile giriyorum fakat bazen D5 e indirim yazıyorum (-) işsretini unutuyorum ve G5 e 4 yazıyorum yani bu işlemi koşul ile yapabilirsek yanlışlıklar ortadan kalkmış olacak eger mümküse

 

[Mustafa MUTLU]

Yani G sütununa veri girdiğimde
Girdiğim veri eksi olsun istiyorsun
G3 e 4 yazdığımda bu (-1)*4 = -4 olsun istiyorsun,
Yani veri girdiğin zaman -1 ile çarma işlemi yaparak eksiye dönüşsün.
peki - rakamı girersen bu kez sonuç artı olur
Konuyu tam anlayabilmek içindi bu sorular..

 

[northcyprus]

evet ama D3 te İNDİRİM veya ÖDENMEZ yazıyor ise G3 e 4 yazıldığında (-1)*4= -4 olsun

aynı zamanda - rkam girildiğinde de - olması lazım hocam amacım yanlışlıkları ortadan kaldırmak.

 

[Mustafa MUTLU]

Bu işlem formülle olur ancak dosyanı fazla kasabilir.
(Veri durumunu bilmiyorum)
Macro isterseniz macro ile yapabiliriz bu işi..

 

[northcyprus]

Veri çok var hocam kasacaksa makro İle yapmamız gerekecek herhalde.

 

[Mustafa MUTLU]

Şu Kodu denermisiniz.
İşlemi hangi sayfada yapıyorsanız o Sayfanın Kod bölümüne yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MSTF
    If Not Intersect(Target, Range("G2:G65500")) Is Nothing Then
    If Cells(Target.Row, "d") = "İNDİRİM" Or Cells(Target.Row, "d") = "ÖDENMEZ" Then
    MSTF = Cells(Target.Row, "g")
    If MSTF > 0 Then
    Cells(Target.Row, "g") = MSTF * (-1)
    End If
    End If
    End If
End Sub

 

[Mustafa MUTLU]

Kardeş işini görür bu kod inşallah.
Cevap bekledim ama yazmadın

Çalıştığınız sayfayı açın aşağıdan sayfa ismine sağ tık yapın açılan menüden sayfakodu nu tıklayın
Beyaz bir kod sayfası açılır.
Bu kodu oraya yapıştırın ve kod sayfasını kapatın

İyi geceler..

 

[northcyprus]

Sayın hocam çok teşekkür ediyorum elinize saglık

 

[Mustafa MUTLU]

Sayın hocam çok teşekkür ediyorum elinize saglık

Rica ederim
İşinizi gördü ise ne mutlu