stok takip ve satış işlemi

[tiryaki_44]

Merhaba arkadaşlar,

stok takip ve satış işleminin yapılacağı basit bir excel dosyası hazırlamak istiyorum. sorularım;

1- ekte sunmuş olduğum dosyada "sat" adlı sayfada tür, model, tip bilgilerini "stok" adlı saydan veri doğrulama ile getirdim fakat fiyat kısmı için seçilen ürünün fiyatı otomatik olarak getiremedim.

2- satış işleminden sonra "stok" adlı sayfadaki satış sonrası adet nasıl güncellenebilir?

3- satışın yapıldığı tarihin ay ve yılları "stok" adlı sayfada nasıl ayrı ayrı getirebilirim.

ilginiz için teşekkür ederim.

 

[YUSUF44]

Merhaba.

Aşağıdaki kodlar (burada yazdıklarınızdan anladığım kadarıyla) tüm istediklerinizi yapıyor. Ancak 3 özelliği de aynı olan bir ürün stok sayfasında mevcutsa fiyat hatalı gelir.

Fiyatı bulmak için Sat sayfasında G3 hücresine aşağıdaki formülü kaydedip aşağıdaki hücrelere kopyalayın. Stok sayfasındaki 300. satıra kadar olan "benzersiz" ürünlerin fiyatını doğru bir şekilde getirir. Aynı ürün farklı satırlarda geçiyorsa toplamlarını getirir:

=TOPLA.ÇARPIM((Stok!$B$3:$B$300=Sat!C3)*(Stok!$C$3:$C$300=Sat!D3)*(Stok!$D$3:$D$300=Sat!E3);Stok!$I$3:$I$300)

Aşağıdaki kodları dosyanızda bir modüle kopyalayıp dosyanızdaki Sat düğmesine bu makroyu atayın. 2. ve 3. isteklerinizi yerine getirir:

Sub sat()
Set s1 = Sheets("Stok")
Set s2 = Sheets("Sat")
a = s2.Cells(Rows.Count, "c").End(3).Row
b = s1.Cells(Rows.Count, "b").End(3).Row
For i = 3 To a
    For j = 3 To b
    If s2.Cells(i, "c") = s1.Cells(j, "b") And s2.Cells(i, "d") = s1.Cells(j, "c") _
    And s2.Cells(i, "e") = s1.Cells(j, "d") Then
        If s1.Cells(j, "f") = "" Then
        s1.Cells(j, "f") = s1.Cells(j, "e") - s2.Cells(i, "f")
        Else
        s1.Cells(j, "f") = s1.Cells(j, "f") - s2.Cells(i, "f")
        End If
    s1.Cells(j, "g") = Month(s2.Cells(i, "h"))
    s1.Cells(j, "h") = Year(s2.Cells(i, "h"))
    End If
    Next
Next
End Sub

 

[tiryaki_44]

Merhaba.

Aşağıdaki kodlar (burada yazdıklarınızdan anladığım kadarıyla) tüm istediklerinizi yapıyor. Ancak 3 özelliği de aynı olan bir ürün stok sayfasında mevcutsa fiyat hatalı gelir.

Fiyatı bulmak için Sat sayfasında G3 hücresine aşağıdaki formülü kaydedip aşağıdaki hücrelere kopyalayın. Stok sayfasındaki 300. satıra kadar olan "benzersiz" ürünlerin fiyatını doğru bir şekilde getirir. Aynı ürün farklı satırlarda geçiyorsa toplamlarını getirir:

=TOPLA.ÇARPIM((Stok!$B$3:$B$300=Sat!C3)*(Stok!$C$3:$C$300=Sat!D3)*(Stok!$D$3:$D$300=Sat!E3);Stok!$I$3:$I$300)

Aşağıdaki kodları dosyanızda bir modüle kopyalayıp dosyanızdaki Sat düğmesine bu makroyu atayın. 2. ve 3. isteklerinizi yerine getirir:

Sub sat()
Set s1 = Sheets("Stok")
Set s2 = Sheets("Sat")
a = s2.Cells(Rows.Count, "c").End(3).Row
b = s1.Cells(Rows.Count, "b").End(3).Row
For i = 3 To a
    For j = 3 To b
    If s2.Cells(i, "c") = s1.Cells(j, "b") And s2.Cells(i, "d") = s1.Cells(j, "c") _
    And s2.Cells(i, "e") = s1.Cells(j, "d") Then
        If s1.Cells(j, "f") = "" Then
        s1.Cells(j, "f") = s1.Cells(j, "e") - s2.Cells(i, "f")
        Else
        s1.Cells(j, "f") = s1.Cells(j, "f") - s2.Cells(i, "f")
        End If
    s1.Cells(j, "g") = Month(s2.Cells(i, "h"))
    s1.Cells(j, "h") = Year(s2.Cells(i, "h"))
    End If
    Next
Next
End Sub

ilginiz için teşekkür ederim ama kodları çalıştıramadım. dosyayı ekledim. ilgilenirseniz sevinirim.

 

[YUSUF44]

Kodları modüle yapıştırmanız gerekiyordu, siz ise sat sayfasının kod bölümüne yapıştırmışsınız.

Ayrıca dosyanın bu haliyle bile Sat düğmesine Sayfa2/sat makjrosunu atadığımda doğru bir şekilde çalışıyor.

Dikkat etmeniz gereen tek nokta sat sayfasındaki satılan ürünlerin stok sayfasında da bulunması. Son gönderdiğiniz örnek dosyada sat sayfasında D-3-1 ve B-4-2 ürünleri varken stok sayfasında bu ürünler bulunmadığı için makro çalışsa bile kendinden bekleneni yerine getirmiyor görünüyor, çünkü stokta olmayan bir ürünü satamazsınız ve stoktan düşemezsiniz.

Zaten sisin isteğiniz de stoktan düşüm yapılmasıydı.

 

[tiryaki_44]

teşekkürler

 

[YUSUF44]

kolay gelsin.