Makro ile Eğer Tutar Eksi ise Farklı Artı ise Farklı yazı yazdırmak

[1mak1mak]

Merhaba bir tablomda aşağıdaki Kodu kullanıyorum Kod her zaman Tutar "-" de olsa "+" aynı yazıyı ekliyor benim istediğim Eğer B36 Hücresindeki değer
"-" (-100.TL) ise "Mehmet Kasa Alacak" Eğer B36 Hücresindeki Değer "+" (100.TL) ise "Mehmet Kasa Borç" yazmasını istiyorum Kod da nasıl bir değişiklik yapmam gerekir.
Yanına her iki halde de aynı şekilde Tarih olacak şekilde.
Yardımcı olursanız sevinirim.

    değer1 = "Mehmet Kasa Alacak -"
    değer2 = Format(Now, "dd.mm.yyyy")

Range("A36") = değer1 & " " & değer2
Range("A36").Characters(Start:=Len(değer1) + 2, Length:=Len(değer2)).Font.ColorIndex = 3

 

[Korhan Ayhan]

Deneyiniz.

değer1 = "Mehmet Kasa " & IIf(Range("B36")<0, "Alacak -","Borç -")

 

[1mak1mak]

Deneyiniz.

değer1 = "Mehmet Kasa " & IIf(Range("B36")<0, "Alacak -","Borç -")

Teşekkür ederim Korhan hocam çok güzel çalışıyor ellerinize sağlık.