Soru Daha Önce Çalıştırdığım Formül Projemde Çalışmıyor

[oztuncla.27]

Merhaba Arkadaşlar;

Daha önce yaptığım cari takip programında uyguladığım formülüm şimdiki projemde çalışmıyor.

=TOPLA.ÇARPIM((Muhasebe!A2:A1000=Örnek!B8)*(Muhasebe!B2:B1000="Satış")*(Muhasebe!F2:F1000))
Formül : başka sayfada bulunan muhasebe kaydındaki son satış tutarını son ödeme tutarını diğer sayfada hücreye yazdırmak

daha sonra bu özetleri usherform da bulunan TextBox lara yazdırmak.

Daha yazdığım farklı projelerde kullandığım formül hazırdaki projemde çalışmıyor.

Örnek Dosya Aşağıdaki Linktedir.

LİNK : https://trtransfer.net/download/6fc78b96baa2360aeac2dc66ea419424

Yardımlarınızı rica ediyorum.

İyi Çalışmalar.

 

[Korhan Ayhan]

"F" sütunundaki boş hücreleriniz sıkıntı yaratıyor.

Aşağıdaki gibi kullanın.

=SUMPRODUCT((Muhasebe!A2:A1000=Örnek!B8)*(Muhasebe!B2:B1000="Satış");(Muhasebe!F2:F1000))

 

[oztuncla.27]

Maalesef Bu Formülde Çalışmıyor.

 

[Korhan Ayhan]

Örnek dosyanızda denedim ve olumlu sonuç aldım.

 

[oztuncla.27]

Teşekkür ederim Hallettim. Allah Razı Olsun

 

[Orion1]

Teşekkür ederim Hallettim. Allah Razı Olsun

Nasıl hallettiniz?
Konuyu takip eden kişilerde var.

 

[oztuncla.27]

Aşagıdaki Formül Sorunu Çözdüm. Lakin Verileri Manuel girdiğim zaman hiç bir sıkıntı yok ama usherformdan verileri gönderdiğim zaman formül devre dışı kalıyor 0.00 tl gösteriyor onu çözmeye çalışıyorum

=TOPLA.ÇARPIM((Muhasebe!A2:A1000=Örnek!B10)*(Muhasebe!B2:B1000="Ödeme");(Muhasebe!G2:G1000))

 

[Korhan Ayhan]

Formdan gönderdiğiniz sayılar metin biçiminde olabilir. Kontrol ediniz.

 

[oztuncla.27]

Aşağıdaki Kodu Kullandım Ama Olmadı Yanlış Bir Şeymi Yapiyorum..

Private Sub TB2_birimfiyat_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TB2_birimfiyat = Format(TB2_birimfiyat.Text, "Currency")
End Sub

 

[Korhan Ayhan]

Veriyi hücreye aktardığınız kodu kontrol ediniz.

 

[oztuncla.27]

Günaydınlar;

Kullandığım Kod Aşağıdaki Gibidir. Eksik Bir Yermi Var. veya Eklemem Gereken yerler nelerdir.

iRow = wsMuhasebe.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1
    
    
     wsMuhasebe.Cells(iRow, 1) = TB2_tarih
     wsMuhasebe.Cells(iRow, 2) = TB2_İşlem
     wsMuhasebe.Cells(iRow, 3) = TB2_Ürün
     wsMuhasebe.Cells(iRow, 4) = TB2_miktar
     wsMuhasebe.Cells(iRow, 5) = TB2_birimfiyat
     wsMuhasebe.Cells(iRow, 6) = TB2_tutar
     wsMuhasebe.Cells(iRow, 7) = TB2_ödeme
    
     If TB2_miktar <> "" Then wsMuhasebe.Cells(iRow, 4) = CLng(TB2_miktar)
     If TB2_birimfiyat <> "" Then wsMuhasebe.Cells(iRow, 5) = CLng(TB2_birimfiyat)
     If TB2_tutar <> "" Then wsMuhasebe.Cells(iRow, 6) = CLng(TB2_tutar)
     If TB2_ödeme <> "" Then wsMuhasebe.Cells(iRow, 7) = CLng(TB2_ödeme)
    
     Workbooks(Dosyaxlsm).Save
     Workbooks(Dosyaxlsm).Close
    
     Call Temizle3_İslemkayıt

 

[oztuncla.27]

Günaydınlar Yardımlarınızı Bekliyorum İşin İçinden Çıkamadım Bir Türlü.