Ödendi satırlarında Tutar rakamı önüne eksi işareti nasıl gelebilir?

[assenucler]

Değerli Dostlar,


Ekteki dosya da yıllık 2000 satıra yaklaşan harcamaları izliyorum.

H sütunu (Durumu) "Ödendi" olduğunda, G sütunu (Tutar) satırındaki rakamın önüne makroyla (-) eksi işareti konulması konusunda yardımınızı rica ediyorum.

Yardımınız için önceden teşekkürler.

 

[sosorry]

koşullu biçimlendirme ile yapmışsınız zaten; koşullu biçimlendirme > kuralları yönet > kurala çift tıklayın > biçimlendirme > sayı > isteğe uyarlanmış > başına "-" koyun uygula diyip çıkın dosyayı ekledim.

 

[ÖmerBey]

Merhaba,
Şöyle bir şey işinizi görür mü? (sayfanın kod bölümüne uygulayınız.)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tutar As Double
If Target.Column = 8 And Target.Cells.Count = 1 Then
    tutar = Cells(Target.Row, "G")
    Cells(Target.Row, "G") = IIf(Target.Value = "Ödendi", -1 * Abs(tutar), Abs(tutar))
End If
End Sub

 

[assenucler]

Sayın Ömer Bey,

Hayırlı Cuma'lar. İlginiz için teşekkürler.

Kodları çalıştıramadım, Dosyayı xls olarak yükledim.

 

[assenucler]

Sayın sosorry,


İletinizi sonradan fark ettim. Koşullu biçimlendirme ile çözüm hiç aklıma gelmedi. Emek ve paylaşımınız için teşekkürler.

Sağ olun, var olun.


Sayın Ömer Bey,

Makronun çalışmama nedeni ne olabilir?

 

[ÖmerBey]

Sayın Ömer Bey,

Makronun çalışmama nedeni ne olabilir?

4 numaralı mesajda gönderdiğiniz dosya bende çalışıyor. Yalnız makro H sütunundaki değişiklikle tetikleniyor. Çalışması için önce H sütununda değişiklik yapmanız gerekiyor.
Normal şekilde kullanmak isterseniz aşağıdaki kodu deneyiniz.

Sub kod()
Dim tutar As Double, a As Integer
For a = 2 To Cells(Rows.Count, "H").End(3).Row
    tutar = Cells(a, "G")
    Cells(a, "G") = IIf(Cells(a, "H") = "Ödendi", -1 * Abs(tutar), Abs(tutar))
Next
End Sub

İyi çalışmalar...

 

[MehmetSincap]

Merhaba,

ben de acemiyim fakat dosya makro destekli olmadığı için çalışmadı sanırım.

 

[assenucler]

Ömer Bey,

ÇÖZÜLDÜ: Üstadım bilgisizliğimi mazur görün. Emek ve katkınız için teşekkürler.

 

[ÖmerBey]

Estağfurullah,
İlk mesajda gerekli açıklamayı yapmadığım için siz beni mazur görün.
İyi çalışmalar diliyorum...