Sonucu gözlemlemek

[sensizsoldum]

Merhabalar,
Arkadaşlar daha önce foruma sorduğum yanıt alamadığım soruyu tekrardan sormak durumunda kaldım. İlgilenen arkadaşlardan konuya Işık tutmasını rica ediyorum.

Depoya giren fason kumaşları bir süre bekletildikten sonra sevki yapılmakta. Bu sevkler yapılmadan önce depoya hangi gün, hangi firmanın hangi ürününden, hangi konumdan ne kadar girişi yapıldığını kayıt ediyorum.
Sevk yapılırken de yine, hangi firmanın hangi ürününden hangi konumdan ne kadar ürün çıkışı yapılıyorsa onun kaydını girmekteyim.

Sizlerden istediğim, Makronun Sayfaya her girişinde stok sayfasında,
hangi firmanın, hangi ürününden hangi konumda (ürün çıkışı varsa çıkan düşülüp) kalanın ne kadar kaldığı sonucu gözlemlemek.
Konu hakkında yardımlarınızı rica ediyorum.

 

[sensizsoldum]

Arkadaşlar yok mu bir yol yordam yardımcı olsanız çok memnun olacağım.

 

[savas_145]

altın üyeliğim yok dosyanı herhangi bir iteye upload et ve linkini yaz bir bakayım

 

[sensizsoldum]

Merhaba,
Link aşağıdadır.

http://s6.dosya.tc/server6/00nelm/ornek.rar.html

 

[Ziynettin]

Merhaba,

Firma_adı, Ürün_adı, Denye, Konum başlığında 4(dört) kritere göre yapılan çalışma.

Option Explicit
Sub Kalan_Stok()
Dim a(), b(), c(), d As Object, x, y
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
Dim i As Long, k As Long, Say As Long, Satir As Long
    Set d = CreateObject("Scripting.Dictionary")
    Set S1 = Sheets("GİRİŞ")
    Set S2 = Sheets("ÇIKIŞ")
    Set S3 = Sheets("STOK")
  
    a = S1.Range("A4:J" & S1.Cells(Rows.Count, 1).End(xlUp).Row)
    b = S2.Range("A4:J" & S2.Cells(Rows.Count, 1).End(xlUp).Row)

    k = UBound(a) + UBound(b)
    ReDim c(1 To k, 1 To 10)
    
    For i = LBound(a) To UBound(a)
        x = a(i, 2) & a(i, 3) & a(i, 6) & a(i, 10)
            If Not d.exists(x) Then
                Say = Say + 1
                d(x) = Say
                Satir = Say
            Else
                Satir = d(x)
            End If
        c(Satir, 1) = a(i, 2)
        c(Satir, 2) = a(i, 3)
        c(Satir, 3) = a(i, 4)
        c(Satir, 4) = a(i, 5)
        c(Satir, 5) = a(i, 6)
        c(Satir, 6) = a(i, 7)
        c(Satir, 7) = c(Satir, 7) + a(i, 8)
        c(Satir, 8) = c(Satir, 8) + a(i, 9)
        c(Satir, 9) = a(i, 10)
    Next i
  
    For i = LBound(b) To UBound(b)
        y = b(i, 2) & b(i, 3) & b(i, 6) & b(i, 10)
            If Not d.exists(y) Then
                Say = Say + 1
                d(y) = Say
                Satir = Say
            Else
                Satir = d(y)
            End If
        c(Satir, 1) = b(i, 2)
        c(Satir, 2) = b(i, 3)
        c(Satir, 3) = b(i, 4)
        c(Satir, 4) = b(i, 5)
        c(Satir, 5) = b(i, 6)
        c(Satir, 6) = b(i, 7)
        c(Satir, 7) = c(Satir, 7) - b(i, 8)
        c(Satir, 8) = c(Satir, 8) - b(i, 9)
        c(Satir, 9) = b(i, 10)
    Next i
    
S3.Range("A4:I" & Rows.Count).ClearContents
S3.[A4].Resize(d.Count, UBound(c, 2) - 1) = c
MsgBox "İşleminiz tamam.", vbInformation
End Sub

 

[sensizsoldum]

Merhaba, Tasmed,
İlginiz için teşekkür ederim. çok iyi olmuş elinize sağlık. Ayrıca Özel Mesaj atacağım Bakarsanız sevinirim.

 

[sensizsoldum]

Merhaba,
Dosyada 2 sütun kaldırdım, kodlarınızda da küçük değişiklikler yaptım, uyarlayamadım sanırım bir hata alıyorum, göz atabilirseniz sevinirim. Bu sütunların çok bir değeri olmadığını bugün öğrendim.
Ve bunları kaldırmamın sebeplerinden bir diğeri ise eksik bilgiler olabiliyor nedeniyle kaldırdım. Ve bu düzenlemeyi yaparsanız bu çalışmayı, iplik ve likra gibi ürünlerde de kullanacağım bu benim için bu ürünlerde sorunların çözümü olacaktır.
Ayrıca Hiç çıkış olmadığında da kod hata veriyor.

 

[Ziynettin]

Firma_adı / Ürün_adı / Lot / Konum bu başlıklara göre mi yapılacak,

 

[sensizsoldum]

Merhaba,
Firma adı, Ürün Adı, Lot, Pus Fine, Dosyayı şimdi güncelledim yeniden bakarsanız sevinirim.

 

[sensizsoldum]

Birde Konum Çok pardon,

 

[Ziynettin]

Giriş ve Çıkış sayfanızda 30 satırlık veri girişi yapın, bu giriş/çıkışlara göre stok sayfasına varmak istediğniz verileride yazın. Ona göre kodu revize edelim.

 

[sensizsoldum]

Merhaba,
Biraz örnekler ekledim. Veriler hep şirkette var bide işin başındayım ayrıca iş yeri de yeni olduğundan bu kadar örnek yapabildim.

 

[Ziynettin]

Dosyanız ekte.

 

[sensizsoldum]

Merhaba,
Evet on numara 5 yıldız olmuş Elinize sağlık. Konuştuğumuz diğer iki özelliği de kazandırabilir miyiz bu Kodlara.