İki tarih arasında satış verilerini getirme

[Erkan1983]

Sevgili arkadaşlar merhaba,

Garsonların satışlarını primlerini takip eden bir tablo yapmak istiyorum.

Adisyon Girişimiz var ve en önemli özet satış tablosu. Adisyon girişimize satışı yapılan tarihlerde garson adı ile adisyonumuzu giriyoruz. Daha sonra özet rapor belli tarih aralarında ve satış yapan kişilerin ve yaptığı satışların gruplara göre rakamsal olarak gelmesini istiyorum.

Rakamsal olarak topla.çarpım formülü getiriyorum ama burada koşul fazla olduğu için yapamadım. Tarih aralığını girdiğimiz zaman isimler gelecek ve Alkollü - Alkolsüz olarak ayırdığım hücrelere gelecek. Şu anda isimleri getirtemediğim için çoketopla formülü ile ismi ellle manuel olarak girdiğimiz zaman ona göre seçiyor.


Tabloyu gönderdiğim zaman ne yapmak istediğimi anlayacağınızı düşünüyorum.

Bu konu hakkında yardımcı olmanızı rica eder şimdiden yardımlarınız için teşekkür ederim.

 

[programer]

Dosyanız ekte

 

[Erkan1983]

Çok teşekkür ederim elinize sağlık çok güzel olmuş ancak şubat ayı satışlarını girdiğim zaman o tarihe ait isimler ve satışlar gelmiyor dosyayı tekrar gönderdim kontrol eder misiniz lütfen..

 

[Erkan1983]

Sayın Üstadım,

Çok Teşekkür tekrardan eline emeğine sağlık.

Şu anda çalışıyor herhangi bir sıkıntı yok ilk başlarda "bul" butonuna bastığım zaman "değer" hatası veriyordu ama şimdi hesaplarımı doğru yapıyor.
Senden tek ricam "bul" butonuna bastığımız zaman bütün isimleri çıkartıyor mesela adisyon girişine baktığım zaman 3 kişinin satış yaptığını görüyoruz "murad" "erkan" "yıldız" gibi ama özet raporda tarih aralığını verdiğimiz zaman ve "bul" butonuna bastığımızda sadece o tarih aralığındaki isimleri getirtmek mümkün müdür acaba yardımcı olursan sevinirim.

Şimdiden teşekkür ederim

 

[programer]

Sayın Erkan1983,

SATIŞ ÖZETİ VE PRİM sayfasında "C6" hücresinde "GARSON" hüce burada bul diye bir command buton var tarih aralığını yazdıktan sonra bu butona basarsanız listelemeyi yapacaktır. Dosya gönderdim demişsiniz ama dosyanız ekte yok.

 

[programer]

Sayın Erkan1983,

zaten bul butonu o şekilde çalışıyor. yazdığınız tarih aralığındaki ADİSYON GİRİŞİ sayfasında o tarih aralığındaki satış yapan garsonların isimleri geliyor.

 

[Erkan1983]

Sayın Erkan1983,

zaten bul butonu o şekilde çalışıyor. yazdığınız tarih aralığındaki ADİSYON GİRİŞİ sayfasında o tarih aralığındaki satış yapan garsonların isimleri geliyor.

Acil bir işim vardı dosyayı göndermeyi unutmuşum ama şimdi düzelttim dosyayı ekledim

 

[programer]

Sayın Erkan1983,

Kusura bakmayın kodlamada bir mantık hatası yapmışım bul butonundaki kodu aşağıdaki ile değiştirin.

Private Sub CommandButton1_Click()
Dim sat As Long, i As Long, z As Object, liste()
Dim sh As Worksheet
Dim sh2 As Worksheet

Dim Bastarih As Date
Dim Bittarih As Date

Bastarih = [D2].Value
Bittarih = [D4].Value

Set sh = Sheets("ADİSYON GİRİŞİ")
Set sh2 = Sheets("SATIŞ ÖZETİ VE PRİM")

With sh2.Range("C9:C38").ClearContents

sat = sh.Cells(Rows.Count, "D").End(xlUp).Row
If sat < 3 Then
    MsgBox "Sipariş girişinde veri yok!!" & vbLf & "İşlem iptal oldu!!", vbCritical, "U Y A R I"
    Exit Sub
End If
liste = sh.Range("D3:D" & sat).Value
Set z = CreateObject("scripting.dictionary")
For i = 3 To UBound(liste)
        'For M = 3 To sat
            If Format(sh.Cells(i, 2).Value, "dd.mm.yyyy") >= CDate(Bastarih) And Format(sh.Cells(i, 2).Value, "dd.mm.yyyy") <= CDate(Bittarih) Then
            If Not z.exists(liste(i, 1)) Then
                   z.Add liste(i, 1), Nothing
                    kk = WorksheetFunction.CountA(sh2.[c1:c65000]) + 6
                    sh2.Cells(kk, "c").Value = liste(i, 1)
            End If
    End If
'Next M
Next i
End With

End Sub

 

[Erkan1983]

Teşekkürler şimdi oldu. Elinize emeğinize sağlık tam istediğim gibi...

 

[programer]

rica ederim kolay gelsin

 

[Erkan1983]

Hücrede Takvim Çıkması

Sevgili Üstadım,

Senden son bir ricam olacak.

Yaptığımız özet tabloda tarih aralıklarına bastığımız zaman takvim çıkmasını ve tarih seçtiğimiz zaman o tarihin hücreye yazmasını sağlayabilir miyiz?

 

[Erkan1983]

Kodlar Hata Veriyor

rica ederim kolay gelsin

Sevgili arkadaşım kodlar hata veriyor bir bakar mısın?

Butonda ki hata tarih aralığı 01.01.2013 ila 28.02.2013 yaptığımız zaman ocak ve şubat ı veriyor ancak 01.02.2013 - 28.02.2013 yaptığım zaman Şubat ayının raporunu vermiyor.

Ayrıca formüllerde #değer hatası veriyor.

Bir kontrol edip düzeltirsen sevinirim.

Ek te gönderiyorum dosyayı

 

[assenucler]

Günaydınlar.

Ben de şubat ayı seçildiğinde hata iletisi vermedi.

 

[Erkan1983]

Günaydınlar.

Ben de şubat ayı seçildiğinde hata iletisi vermedi.

Son gönderdiğim dosyaya mı baktınız bilmiyorum ama bende hata veriyor ve verileri kayıt ediyor ikende hata veriyor. Hatta şu anda görsellerini göndereceğim.

Şu an ki burada kullandığım excel sürümünden mi kaynaklanıyor acaba?

 

[Erkan1983]

Sevgili Üstadlarım,

Göndermiş olduğum dosyada makro kodlarla çalışan bir buton var ancak istediğim gibi çalışmıyor.

Satış Özeti ve Prim sayfasında ki butona bastığımız zaman yukarısında verilen tarih aralıklarına göre adisyon girişi sayfasından isimlerin getirmesini istiyorum. Sanırım şu anda kodlarda bir hata var. Şu an ki bende çalışma sistemi 01.01.2013 - 31.01.2013tarih aralığını verdiğim zaman kaydırarak veriler geliyor.

Örnek verecek olursam tarih aralığı 01.01.2013 - 31.01.2013 tarih aralığında adisyon girişinde hangi isimler varsa onlar gelsin istiyorum.

Birde butonda ki ismi değiştiremedim. (Garson Bul)

Bir inceleyip yardımcı olursanız sevinirim.

Şimdiden yardımlarınız için teşekkür ederim.

 

[programer]

Programınızı istediğiniz şekilde düzenlemeye çalıştım. Hata varsa geri dönüş yaparsınız. Tekrar yardımcı olmaya çalışırım.

 

[Erkan1983]

Programınızı istediğiniz şekilde düzenlemeye çalıştım. Hata varsa geri dönüş yaparsınız. Tekrar yardımcı olmaya çalışırım.

Çok çok teşekkür ederim eline yüreğine bilgine sağlık. Şu anda tam istediğim gibi hata yok.

Tek sorunum formülleri korumak adına sayfayı koruduğum zaman buton çalışmıyor.. onu yapabilir miyiz acaba?

 

[programer]

sayfayı kumayla ilgili değildir sayfayı koru desenizde buton çalışır. Exceli ilk açtığınızda makroları etkinleştir demesseniz buton çalışmaz.

 

[Erkan1983]

sayfayı kumayla ilgili değildir sayfayı koru desenizde buton çalışır. Exceli ilk açtığınızda makroları etkinleştir demesseniz buton çalışmaz.

Tamam çözdüm olayı garsonların geldiği hücrelerde kilitli olduğu için hata veriyormuş formül olan yerler kilitli ama garson isimlerinin bulunduğu hücrelerin korumasını kaldırınca düzeldi sorun yok.

Tekrardan teşekkür ederim. Elinize emeğinize sağlık. İyiki varsınız

 

[programer]

ben teşekkür ederim. iyi çalışmalar