AYNI SÜTUNDA SIRALANAN EKSİ BAKİYELERİ FARKLI SÜTUNA KAYDIRMA

[firefox_37]

Herkese merhabalar, Hayırlı işler.

Nestle'den gelen cari hesap ekstresinde bakiyeleri B sütununda alt alta sıralamışlar. Alacak kısmına yazması gereken rakamlar - bakiye olarak dizilmiş.
Biz eksi veren bakiyeleri B sütununa değil de C sütununa yazmasını istiyoruz.
Dosya linkli aşağıda ki gibidir :
https://s2.dosya.tc/server10/jkfap9/Ediz_Satis_Pazarlama_Ve_Danismanlik_ekstresi.XLSX.html

Yardımlarınız ve değerli zamanınız için şimdiden çok teşekkürler.

 

[metehan8001]

Formül:

=EĞER(B5<0;B4;"")

Makro:

Sub aktar()
For a = 4 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(a, 2) < 0 Then Cells(a, 3) = Cells(a, 2):   Cells(a, 2) = ""
Next a
MsgBox "İşlem Tamam", vbInformation + vbMsgBoxRtlReading, "Tamam"
End Sub

 

[firefox_37]

Çok teşekkürler. Eğer formülü ile yaptık.
İyi çalışmalar.