taksitli satış takip formülü

[redje]

merhabalar

Ekteki örnekte taksitli satış formülünde sorunumu anlattım yardımcı olabilirmisiniz.

 

[Ömer]

Merhaba,

=EĞER(G3="ÖDENDİ";0;

formülün başına ekleyiniz..

.

 

[soldato]

f sutunundaki tarih 1900 görünüyor.

 

[redje]

merhaba,

=eğer(g3="ödendi";0;

formülün başına ekleyiniz..

.

teşekkürler o sorunumu çözdüm
başka bir problemim var
taksit tarihleri farklı sütunlarda olduğu için yapamadım ekteki dosyada açıkladım olabilirmi iyi çalışmalar.

 

[redje]

yardımcı olabilecek arkadaşlardan yardım bekliyorum

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Option Explicit
Sub Listele()
Dim s1 As Worksheet, s3 As Worksheet
Dim i As Long, Sat As Long
Dim j As Integer
Sat = 3
Set s1 = Sheets("Sayfa1")
Set s3 = Sheets("Sayfa3")
s3.Select
Range("A4:F65000").ClearContents
Application.ScreenUpdating = False
For i = 4 To s1.[B65536].End(3).Row
    j = 8
 
    Do Until s1.Cells(i, j) = "" Or s1.Cells(i, j) > Date
        If s1.Cells(i, j) < Date And s1.Cells(i, j + 1) <> "ÖDENDİ" Then
            Sat = Sat + 1
            s3.Cells(Sat, "A") = s1.Cells(i, "B")
            s3.Cells(Sat, "B") = s1.Cells(i, "C")
            s3.Cells(Sat, "C") = s1.Cells(i, "E")
            s3.Cells(Sat, "D") = s1.Cells(i, "F")
            s3.Cells(Sat, "E") = s1.Cells(i, j)
            s3.Cells(Sat, "F") = s1.Cells(i, j + [B][COLOR=red]2[/COLOR][/B])
         End If
         j = j + 3
    Loop
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam....", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[redje]

çok teşekkürler ufak bir sorun daha var taksit tarihleri gibi taksitlerin karşılığı olan ücretler (taksit tutar)ı gelmiyor toplam tutarı formülle bölerek çözebilirim fakat bazen ücretin yarısını ödeyen oluyor yarısını ödeyenlere taksit tutarı yerine kalanı elle girmeyi düşünüyoruz.

 

[Necdet]

Merhaba,

Yukarıdaki kodlarda kırmızı olan değişikliği yaptım.

 

[redje]

Merhaba,

Yukarıdaki kodlarda kırmızı olan değişikliği yaptım.

çok teşekkür ederim mükemmel oldu

ekteki dosyada tek bir sorunum kaldı toplama sectiğim hücrelerden biri bos olduğunda toplama yapmıyor 0 (sıfır) gelince oluyor 0(sıfır) da gözüksün istemiyom çözerseniz sevinirim

 

[baydeniro]

Teşekkürler

 

[Necdet]

Merhaba,

Sıfır değerlerinin görülmemesini isterseniz :

• Araçlar
• Seçenekler
• Görünüm
• Pencere Seçeneklerindeki Sıfır Değerlerindeki seçimi

kaldırınız.

 

[redje]

Merhaba,

Sıfır değerlerinin görülmemesini isterseniz :

• Araçlar
• Seçenekler
• Görünüm
• Pencere Seçeneklerindeki Sıfır Değerlerindeki seçimi

kaldırınız.

bu işlem işimi görmüyo ekteki dosyada yaptığım işlemde #DEĞER! yazıyor toplama yapmıyor

 

[hayri tekin]

Merhaba,
EĞER(EĞERSAY($H$2:H$2;H$2)>$G7;"" formüldeki "" işareti sıfır olarak düzeltin.
sıfır değerlerin görünmemesi için ya Sn.Necdet hocamın dediğini yapın yada ilgili hücre üzerinde hücreleri biçimlendir-isteğe uyarlanmış-tür kısmına ;;@ ifadesini yazın.
kolay gelsin

 

[redje]

Merhaba,
EĞER(EĞERSAY($H$2:H$2;H$2)>$G7;"" formüldeki "" işareti sıfır olarak düzeltin.
sıfır değerlerin görünmemesi için ya Sn.Necdet hocamın dediğini yapın yada ilgili hücre üzerinde hücreleri biçimlendir-isteğe uyarlanmış-tür kısmına ;;@ ifadesini yazın.
kolay gelsin

"" sıfır yaptığım zaman işlem yapıyor fakat o hücrede sıfır görünüyo ;;@ işlemini yaptığım zamanda formül işlem yapmıyor

 

[hayri tekin]

"" sıfır yaptığım zaman işlem yapıyor fakat o hücrede sıfır görünüyo ;;@ işlemini yaptığım zamanda formül işlem yapmıyor

Sanırım bir hata yapıyorsunuz..hücre biçimlendirme ile formül arasında bir bağlantı kuramadım.Tablonuza en uygun olanı bence "" ifadesini sıfır yapıktan sonra araçlar-seçenekler kısmında sıfır değerleri gösterme kısmındaki işareti silin.
Ayrıca eğer kullanmak isterseniz örn.bir hücrede formül sonucu sıfır çıkıyorsa ve siz görünmesini istemiyorsanız : ilgili hücrenin üzerinde iken sağ klik, hücreleri biçimlendir-isteğe uyarlanmış-tür kısmına ;;@ ifadesini yazın. Bu formüle etki etmez,lütfen tekrar deneyin.

 

[hayri tekin]

Birde "ÖDENDİ";"0" formüldeki sıfırın iki tarafındaki tırnak işaretlerini silin.

 

[Necdet]

Merhaba,

Formüllerde sıfır gösterildi. Sayfada sıfırlı değerler gösterilmedi . Dosyayı inceleyiniz.

 

[hayri tekin]

Merhaba,
Sn.Necdet hocamın affına sığınarak dosyanızda birkaç değişiklik yaptım.
Umarım faydalı olur.
İyi çalışmalar

 

[Necdet]

Merhaba,
Sn.Necdet hocamın affına sığınarak dosyanızda birkaç değişiklik yaptım.
Umarım faydalı olur.
İyi çalışmalar

Merhaba,

Sayın tekintek, her türlü eklemeyi doğal olarak yapabilirsiniz, bu hem soru soran arkadaşımız hemde bu konuyu inceleyen diğer arkadaşlarımız için yararlı olur.

 

[redje]

Merhaba,
Sn.Necdet hocamın affına sığınarak dosyanızda birkaç değişiklik yaptım.
Umarım faydalı olur.
İyi çalışmalar

öncelikle sayın nejdet hocam yardımlarınız için çok teşekkür ederim çok güzel oldu
sayın tekintek katkılarınızdan dolayı sizede çok teşekkür ederim şimdilik işimizi görüyor

bu arada programın bize göre bir eksiği kaldı müşteri karkı bölümünde bilgileiri ekrana gelen kişinin bir sütün daha açıp hangi taksidi yatacaksa onun karşısına ödendi yazıp bir makro ile tıklayarak ödendi yazısını kayıt işlem menüsünde ödenen taksit tarihinin olduğu yere ödendi yazısını aktarması
buda olsa fena olmazdı
yinede herşey için çok teşekkürler.