Çözüldü Bir hücrede yazılana değere göre farklı bir hücrede ki değeri silme

[onurkose]

Arkadaşlar selamlar, yakın bir sigortacı arkadaşım için bir excel hazırlıyorum, fakat bu işlemde biraz tıkandım.

Sonradan iptal olan müşteriler için bir " durum " hücresi yaptık, burada koşullu biçimlendirme ile satırı siyaha boyama yapıyoruz fakat o işlemden para kazanılmadığı için brüt ve net tutara yansımaması gerekiyor.

Kısaca " durum " hücresinde " iptal " yazan müşteriler için brüt ve net ücreti silmesini istiyorum. Konu ile ilgili yardımcı olursanız çok sevinirim. İyi çalışmalar.

 

[foxybull]

Merhaba,
Dosya olarak paylaşırsanız inceleme daha kolay olacaktır.
İyi akşamlar

 

[onurkose]

Merhaba,
Dosya olarak paylaşırsanız inceleme daha kolay olacaktır.
İyi akşamlar

Merhabalar, tabii ki ekliyorum hemen. https://we.tl/t-Isd13cXLUc

 

[onurkose]

Konuyla ilgili yardımcı olabilecek bir arkadaş var mıdır ?

 

[AdemCan]

İptal yazan hücrelerin toplamlara dahil olmaması için
Brüt Toplam formülünü (N5 hücresi)

=TOPLA.ÇARPIM((J2:J101<>"İptal")*(K2:K101))

Net Toplam formülünü (N11 hücresi)

=TOPLA.ÇARPIM((J2:J101<>"İptal")*(L2:L101))

bu formüller ile değiştiriniz.

 

[onurkose]

İptal yazan hücrelerin toplamlara dahil olmaması için
Brüt Toplam formülünü (N5 hücresi)

=TOPLA.ÇARPIM((J2:J101<>"İptal")*(K2:K101))

Net Toplam formülünü (N11 hücresi)

=TOPLA.ÇARPIM((J2:J101<>"İptal")*(L2:L101))

bu formüller ile değiştiriniz.

Emeğinize sağlık, vaktinizi ayırdığınız için teşekkür ederim. Formül çok işime yaradı. Peki bir şeyi merak ediyorum toplam tutar üzerinden değil de K ve L hücreleri üzerinden Brüt ve Net tutarı silerek gerçekleştirmemiz mümkün müdür ?

 

[AdemCan]

Makro kodu ile yapılabilir, örnek olarak aşağıdaki kodu Müşteri Listesi sayfasının kod bölümüne ekleyin ve J sütununa İptal yazın ya da İptal yazan hücrede F2 + Enter yapın, işlem sonunda tutarlar silinecek.

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Target.Column = 10 Then
    If Target.Value = "İptal" Then
        Target.Offset(0, 1).Value = ""
        Target.Offset(0, 2).Value = ""
    End If
End If
End Sub

 

[onurkose]

Makro kodu ile yapılabilir, örnek olarak aşağıdaki kodu Müşteri Listesi sayfasının kod bölümüne ekleyin ve J sütununa İptal yazın ya da İptal yazan hücrede F2 + Enter yapın, işlem sonunda tutarlar silinecek.

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Count > 1 Then Exit Sub
If Target.Column = 10 Then
    If Target.Value = "İptal" Then
        Target.Offset(0, 1).Value = ""
        Target.Offset(0, 2).Value = ""
    End If
End If
End Sub

Tekrardan teşekkürler, elinize sağlık.

 

[AdemCan]

Rica ederim.