Satış fişindeki miktarları stok sayfasına aktarmak

[tahsinanarat]

Ekli dosyada da açıkladığım gibi;
Satış fişinde; model ve renklerine göre E sutunundaki satış adetleri, stok sayfasında O sutununda bulunan SATIŞ adetlerinin üzerine toplanarak yazılacak,
Bunu yaparken dikkate alınması gereken;
Satış fişi sayfasındaki Model No ve Renklerin, STOK sayfasında ki H sutununda renk kodu, I sutununda ise renklerle eşleştirilerek, Satış sayfasındaki O sutununun mevcut rakamın üzerine ilave ederek yazılacak vba kodlarına ihtiyaç vardır.
Bu işlemden sonra Satış fişi boşaltılıp yeni satış işlemi yapılacak, bu şekilde davam edecek.

http://s8.dosya.tc/server4/d8cqok/DEPO_STOK_TAKIP_PRO3.rar.html

 

[Asri]

Sipariş ve satış ile ilgili aşağıdaki konuyu inceleyebilir siniz.
Bu konuda seçilmiş olan ürünü tekrar seçilirse toplama özelliği de mevcut.

http://www.excel.web.tr/f52/excel-hyzly-sipari-fi-i-programy-t163003.html

 

[tahsinanarat]

Sn. asri ilginize teşekkür ederim, bu yeni tasarlamayı düşünenler için güzel bir program, ancak biz oturmuş bir stok düzenlemesinde kullanacağız, şu ana kadar manuel giriş yapıyorlar biz bunu pratik hale getirmek istiyoruz, Konumuz güncel olup ilgilenecek arkadaşlara şimdiden teşekkür ediyorum.

 

[Asri]

Sn. asri ilginize teşekkür ederim, bu yeni tasarlamayı düşünenler için güzel bir program, ancak biz oturmuş bir stok düzenlemesinde kullanacağız, şu ana kadar manuel giriş yapıyorlar biz bunu pratik hale getirmek istiyoruz, Konumuz güncel olup ilgilenecek arkadaşlara şimdiden teşekkür ediyorum.

Bu durumda harici bir link vererek daha fazla kisinin incelemesini sağlayabilirsiniz

 

[Asri]

Aşağıdaki şekilde deneyiniz.

Stok sayfasında Model Kodu her renk için tekrar yazılmalı.

MODEL KODU MARKA ve RENK

15-065 MSW
15-065 SLIM FIT
15-065 BEYAZ
15-065 LACİVERT
15-065 YEŞİL

Dim satisadetstr, stokadetstr, satismodel, stokmodel, satisrenk, stokrenk As String
Dim satisadet, stokadet As Long

Sub bul_ekle()
  Set stoksh = Sheets("STOK")
  Set satissh = Sheets("Satış Fişi")
  stoksonsatir = stoksh.Cells(Rows.Count, "H").End(3).Row
  satissonsatir = satissh.Cells(Rows.Count, "C").End(3).Row
  
  For i = 2 To satissonsatir
    satismodel = satissh.Cells(i, 3).Value
    satisrenk = satissh.Cells(i, 4).Value
    satisadetstr = satissh.Cells(i, 5).Value
    If sadecesayimi(satisadetstr) Then
       satisadet = 0 + satisadetstr
       For j = 3 To stoksonsatir
         stokmodel = stoksh.Cells(j, "H").Value
         stokrenk = stoksh.Cells(j, "I").Value
         stokadetstr = stoksh.Cells(j, "O").Value
         
         If sadecesayimi(stokadetstr) Then
            stokadet = 0 + stokadetstr
            If satismodel = stokmodel And satisrenk = stokrenk Then
               stoksh.Cells(j, "O").Value = stokadet + satisadet
               Exit For
            End If
         End If
       Next j
    End If
  Next i
  sonsatir = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  Range("A2:I" & sonsatir).Clear
  
End Sub

Function sadecesayimi(sadecesayistr)
  liste = "0123456789"
  For k = 1 To Len(sadecesayistr)
    harf = Mid(sadecesayistr, k, 1)
    If InStr(liste, harf) = 0 Then
       sadecesayimi = False
       Exit Function
    End If
  Next k
  sadecesayimi = True
End Function

 

[tahsinanarat]

Sn. Asri bey çok teşekkürler, sanırım H sütununa renk satır adedi kadar model kodlarının yazılması halinde sizin kodlar işe yaradı, elinize sağlık. Sağolasınız.

 

[Asri]

Fiyat uygulamanız nedir bilmiyorum ancak aşağıdaki şekilde daha kullanışlı olur diye düşündüm.

* STOK sayfasında model ve renk güncellemesi yapıldığında. Tanımlar sayfasına otomatik olarak, satış sayfasında veri doğrulama için bilgileri oluşturur.
* Stok sayfasına fiyat kolonu eklendi.

* Satış sayfasında model ve renk seçimleri veri doğrulama ile seçilir.
* Satış sayfasında model ve renk seçildiğinde fiyat ve tarih otomatik olarak getirilir. İstenirse değiştirilebilir.

http://dosya.co/afe41p5re1mi/DEPO_STOK_TAKİP_PRO3.xlsm.html

 

[tahsinanarat]

Teşekkür ederim asri bey tam dediğiniz gibi yaptım, hatta birda satış sayfası ekleyip, orada arşivlenmesini de sağladım. Yardımlarınız için çok teşekkür ederim.