Çözüldü İki kez tekrarlanan toplam hücreden fazla kayıt nasıl kaldırılır?

[assenucler]

Değerli Dostlar,

Ekteki resimdeki (Q3) fazla toplam tutarı için, hangi kod satırında değişiklik yapmam gerekiyor?
Yardımınız için teşekkür ederim.

 

[Korhan Ayhan]

Paylaştığınız resme göre toplam Q2 hücresinde görünüyor.

Kod içinde de Q3 ile ilgili bir satır zaten yok.

 

[assenucler]

Sayın Korhan Ayhan,


Gününüz aydınlık, neşeniz, sağlığınız yerinde ve her şey gönlünüzce olsun.
Üstadım ilginiz için teşekkür ederim.

Gözümdeki sarı nokta da görmemi etkiliyor, tedavi oluyorum. Uzun bir süreci var ve tek gözle de uyumsuzluk oluyor. Değerli zamanınızı aldığım için sizden özür diliyorum.

Size bu satırları on parmak ile yazmayı bildiğim için yazıyorum. Hatalarım olursa affola.

Allah razı olsun.

Dosya aslını yolluyorum.


Saygılar,
Selim

 

[Korhan Ayhan]

Selim Bey,

Özür dilenecek bir durum yok..

Gözünüzdeki rahatsızlığı biliyorum. Ben tedavinizin tamamlandığını sanıyordum. Tekrar geçmiş olsun. Umarım tez zamanda eski sağlığınıza kavuşursunuz.

Makro kodunu aşağıdaki gibi değiştiriniz.

O hücreye etki eden kod satırını pasif yaptım. Ayrıca ilgili hücreleri önce temizleyen bir kod satırıda ekledim.

Sub islem3()
'Hesaplama işlemlemleri ve sonuçların P, Q, R, S hücrelerine yazılması
Dim tutar As Double, OdenenTp As Double, GenelTp As Double
Set sf = Sheets("KayıtEt")
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
GenelTp = 0
OdenenTp = 0
OdenmeyenTp = 0

For i = 2 To sf.Cells(Rows.Count, 8).End(3).Row '8 (H sütunu)
hcr = sf.Cells(i, "H")
tutar = sf.Cells(i, "G").Value
    If hcr = "Ödendi" Then
    OdenenTp = OdenenTp + tutar
    GenelTp = GenelTp + tutar
    
    ElseIf hcr = "Ödenmedi" Then
    OdenmeyenTp = OdenmeyenTp + tutar
    GenelTp = GenelTp + tutar
    
    End If
Next i
sf.Range("P2:S2").ClearContents
sf.Range("P2") = GenelTp
'sf.Range("Q2") = OdenmeyenTp
sf.Range("R2") = OdenenTp
sf.Range("S2") = GenelTp - OdenenTp
End Sub

 

[assenucler]

Selim Bey,

Özür dilenecek bir durum yok..

Gözünüzdeki rahatsızlığı biliyorum. Ben tedavinizin tamamlandığını sanıyordum. Tekrar geçmiş olsun. Umarım tez zamanda eski sağlığınıza kavuşursunuz.

Makro kodunu aşağıdaki gibi değiştiriniz.

O hücreye etki eden kod satırını pasif yaptım. Ayrıca ilgili hücreleri önce temizleyen bir kod satırıda ekledim.

Sub islem3()
'Hesaplama işlemlemleri ve sonuçların P, Q, R, S hücrelerine yazılması
Dim tutar As Double, OdenenTp As Double, GenelTp As Double
Set sf = Sheets("KayıtEt")
Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual
GenelTp = 0
OdenenTp = 0
OdenmeyenTp = 0

For i = 2 To sf.Cells(Rows.Count, 8).End(3).Row '8 (H sütunu)
hcr = sf.Cells(i, "H")
tutar = sf.Cells(i, "G").Value
    If hcr = "Ödendi" Then
    OdenenTp = OdenenTp + tutar
    GenelTp = GenelTp + tutar
   
    ElseIf hcr = "Ödenmedi" Then
    OdenmeyenTp = OdenmeyenTp + tutar
    GenelTp = GenelTp + tutar
   
    End If
Next i
sf.Range("P2:S2").ClearContents
sf.Range("P2") = GenelTp
'sf.Range("Q2") = OdenmeyenTp
sf.Range("R2") = OdenenTp
sf.Range("S2") = GenelTp - OdenenTp
End Sub

Allah razı olsun.