• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü makro ile negatif değer varsa başka sutuna

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Koboy66

Yeni Üye
Katılım
12 Ara 2018
Mesajlar
42
En iyi yanıt
0
Puanları
8
Yaş
43
Konum
İstanbul
Ad Soyad
Erkan uzun
Merhabalar aşağıdaki kodu kullanıyorum takıldığım nokta

(-)negatif rakam varsa bunu f sutuna değilde g sutuna yazmasını istiyorum

pozitif rakamlar f de negatifler g sutuna


C++:
Sub formulyaz()
Dim sat As Long, i As Long
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
For i = 2 To sat
    Sheets("Sayfa1").Cells(i, "F").Formula = "=IF(RC[-3]="""","""",SUM(R1C4:RC[-2])-SUM(R1C5:RC[-1]))"
Next i
End Sub

End Sub
 

Vedat ÖZER

Logo Uzmanı
Geliştirici
Katılım
4 Haz 2018
Mesajlar
288
En iyi yanıt
4
Puanları
63
Yaş
33
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
Office Vers.
2019
Aşağıdaki kodu dener misiniz

Kod:
Sub formulyaz()
Dim sat As Long, i As Long
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row

For i = 2 To sat
    If Sheets("Sayfa1").Cells(i, "D") < 0 Then
    Sheets("Sayfa1").Cells(i, "F") = Abs(Sheets("Sayfa1").Cells(i, "D"))
    Else
    If Sheets("Sayfa1").Cells(i, "E") > 0 Then
    Sheets("Sayfa1").Cells(i, "G") = Sheets("Sayfa1").Cells(i, "E")
    End If
    End If
Next i


End Sub
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt