Yapay zeka stok tuketım hesap tablo formülü

[McDregin]

Coklu tarama stok ıhracıye lıstesı hesaplama formülü

Arkadaşlar,
Ekte bir üretim tablosu var.
Son sayfada satış sayısı girilen menünün reçetesine göre tüketim kg. miktarlarını bulması ve bunları ayni stok kalemlerini birleştirerek gün bazında stok dökümünü kg. bazında listelemesini düşünüyorum.
Böyle bir şey mümkünmüdür ?
İnceleyebilirseniz memnun olurum.
Teşekkürler.

 

[1Al2Ver]

Arkadaşlar,
Ekte bir üretim tablosu var.
Son sayfada satış sayısı girilen menünün reçetesine göre tüketim kg. miktarlarını bulması ve bunları ayni stok kalemlerini birleştirerek gün bazında stok dökümünü kg. bazında listelemesini düşünüyorum.
Böyle bir şey mümkünmüdür ?
İnceleyebilirseniz memnun olurum.
Teşekkürler.

Merhaba,

Öneri ;

X yazan yerleri elle doldurarak açıklama yazarsanız çabuk ve doğru cevap alırsınız,

NOT ; Toplu Yemek Üretimi'nde çalışıyorsanız (Yemek Fabrikası vb) bu tip çözümler ilerde sorun yaratır, bence Yemek Fab.yönelik paket program kullanmak en doğru çözüm olur,

Teşekkür ederim.

 

[McDregin]

x yerinde yazılanlar sol kolondaki stoklar, ok ile işaretlemiştim.
Yani üstteki ayni gündeki 1. reçetenin formülündeki diyelim ayçiçek yağı, 2. yemekteki ayçiçek yağı v.s. birleşerek, aşağıda ilgili stok olan ayçiçek yağı ( kaçıncı satırda ise ) buraya sadece toplam kg. yazmalı.. çarpanı zaten pax sayısı hücresinde var.
Örn. 0,05 Kg. + 0,011 Kg. >> Ayçiçek yağı satırında ( ilgili gon kolonunda ) = 0,061 kg. olarak kaydetmesi durumu..
diğer gündeki hammadde tüketimleri de kendi kolonunda..
Ben ay sonu toplam hammadde dökümünü toplama filtreleme ile çıkarırım ayrı bir sayfa yada ayni sayfada bir yere..
Teşekkürler..

 

[1Al2Ver]

Merhaba,

Ben ok'ları gördüm, anladım da, sorunum yok,

Test etmek ve doğru cevap adına öneride bulunmuştum, tabi seçim sizin, aslında siz bir nevi "ihraciye" yani "depo çıktı formu" istiyorsunuz,

Uzman arkadaşlar yardımcı olurlar sanırım,

Kolay gelsin.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub REÇETE_TÜKETİMLERİNİ_HESAPLA()
    Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet, X As Byte, Y As Byte
    Dim BUL_REÇETE As Range, ADRES_REÇETE As String, BUL_STOK As Range, Satır As Long
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("RECETE")
    Set S2 = Sheets("AYLIK STOK TÜKETİM LİSTE-1")
    Set S3 = Sheets("STOK KALEMLERİ")
    
    S2.Range("A10:IV65536").Clear
    
    For X = 4 To S2.Cells(2, 256).End(1).Column
        For Y = 4 To 7
            If S2.Cells(Y, X) <> "" Then
                Set BUL_REÇETE = S1.Range("C:C").Find(S2.Cells(Y, X), , , xlWhole)
                If Not BUL_REÇETE Is Nothing Then
                ADRES_REÇETE = BUL_REÇETE.Address
                    Do
                        Set BUL_STOK = S2.Range("A9:A65536").Find(S1.Cells(BUL_REÇETE.Row, "D"), , , xlWhole)
                        If BUL_STOK Is Nothing Then
                            Satır = S2.Cells(Rows.Count, 1).End(3).Row + 1
                            S2.Cells(Satır, 1) = S1.Cells(BUL_REÇETE.Row, "D")
                            S2.Cells(Satır, 2) = S1.Cells(BUL_REÇETE.Row, "E")
                            S2.Cells(Satır, 3) = WorksheetFunction.VLookup(S1.Cells(BUL_REÇETE.Row, "D"), S3.Range("A:C"), 3, 0)
                            S2.Cells(Satır, X) = S2.Cells(3, X) * S1.Cells(BUL_REÇETE.Row, "H")
                        Else
                            S2.Cells(BUL_STOK.Row, X) = S2.Cells(3, X) * S1.Cells(BUL_REÇETE.Row, "H")
                        End If
                        
                        Set BUL_REÇETE = S1.Range("C:C").Find(What:=BUL_REÇETE.Value, After:=BUL_REÇETE)
                    Loop While Not BUL_REÇETE Is Nothing And ADRES_REÇETE <> BUL_REÇETE.Address
                End If
            End If
        Next
    Next
        
    Set BUL_REÇETE = Nothing
    Set BUL_STOK = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
    Set S3 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[McDregin]

Korhan hocam,
Uyarlamaya çalıştım ama sanırım bir yerde hata yapıyorum.
Bu yazılım için çalışan ana 3 sayfayı zip ledim.
Bu kaydı 3. hammadde tüketim sayfasına adepte edebilirmiyiz.
Emeğin geçti hakkını da helal et hocam.

 

[Korhan Ayhan]

Merhaba,

Anladığım kadarıyla dosyanızda gerekli düzenlemeleri yaptım. İncelermisiniz.

 

[McDregin]

Korhan hocam ne diyeyim..
İSVİÇRE saati gibi çalışıyor.
Hakkını helal et..

 

[McDregin]

Korhan hocam,
Formülü tıpa tıp ayni dosyasınaki yerine koydum, test ettim çalıştı.
Fakat yazdığınız örnek xls dosyasını silince formül çalışmıyor.
Baktım dosya adı filan ayni yanlış bir ad yok neden olabilir ?
Çalıştırınca hem ana dosya hem örnek dosyada işlem yapıyor..

 

[McDregin]

Korhan hocam tamamdır.
Macro butonu Örnek.xls den kopyalamıştım.
Aklı orada kalmış.
Yeniden buton ve bağlantı kurudum problem çözüldü.
Teşekkürler.

 

[baydeniro]

Çok teşekkürler sayın Korhan Ayhan