Depo ve Stok Hk.

[1Al2Ver]

Merhaba,

"STOK" sayfası E2 ye =TOPLA.ÇARPIM(($C$2:$C$3000=$C2)*(GELEN!$H$2:$H$3000)) yazıp, aşağıya doğru çoğaltın,

Kritik Stok Seviyesine sayılar girerek M sütununu kontrol edin.

 

[valentino06]

Hocam stok sayfasına " M " sütunu olan üretim durumu üretim devam ediyor. üretim beklemede, üretim bitti. yazdırabilirmiyiz. Kritik stok, alınması gereken miktar sütünlarını ihtiyacımız yok kaldırabilirmiyiz.

 

[1Al2Ver]

Hocam stok sayfasına " M " sütunu olan üretim durumu üretim devam ediyor. üretim beklemede, üretim bitti. yazdırabilirmiyiz.

Üretim durumu olan sütuna, hangi veriye ve neye ( hangi kritere ) göre ;" Üretim beklemede,Üretim devam ediyor.Üretim bitti ", yazdırılacak,

Bu ifadeleri nereden alacak ? Yani bu ifadeleri süze bilmek için bir yerlerde kayıtlı olmaları gerekir.

Çözüm için bunlara ihtiyaç var, örnekler seniz yardımcı oluna bilir.

 

[valentino06]

Merhaba,
1Al2Ver hocam Stok kısmında M sütununa formül ekledim Üretim durumu ile ilgili sadece Üretim bitti geliyor. diğer ikisi gelmiyor. hocam Kritik stok seviyesi ile Alınması gereken miktar sütunlarını kaldırabilirmiyiz. Hocam çok teşekkür ederim. Allah kat kat razı olsun.

 

[1Al2Ver]

Merhaba,

"STOK" sayfası M2 deki formül ;

=EĞER(E3=0;"";EĞER(F3=0;"Üretim Bekliyor";EĞER(E3<F3;" Üretim Devam ediyor";EĞER(G3=0;"Üretim Bitti";""))))

Peki E3>F3'ten ise ; yani stok sıfır değil ise (G3 hücresi) ; ne olması gerekiyor ?

 

[valentino06]

devam ediyor. eğer hiç üretim yoksa üretim beklemede eğer gelen ve üretilen aynı yanı sıfır ise üretim bitti olmasını istiyorum.

 

[1Al2Ver]

Merhaba,

Çözüm gecikti biraz, "SÜZ" makrosu tüm kriterler yazılmadan çözüm üretmiyor idi, örneğin "SÜZ" sayfası, sadece Firmaya Göre seçildiğinde işlem yapmamakta idi.

Sayın Ömer BARAN'ın bir çözümünü, size uyarlamak için biraz uğraş verdim.

Dosyanın son hali ektedir, inceleyiniz,

Eksiği varsa bildiriniz, yok tamam ise iyi günlerde kullanınız.

 

[valentino06]

Merhaba,
1Al2Ver hocam çok teşekkür ederim. gerçekten çok güzel oldu. Allah kat kat razı olsun. hocam son bir şey soracağım. gelen sayfasına uyguladığımız veri doğrulamalar çalışmıyor. bende birşeyleri bozmamak adına size danışayım. dedim.

 

[1Al2Ver]

Merhaba,

27 no.lu mesaj ekindeki dosya düzeltilerek yenilendi,

Kolay gelsin.

 

[valentino06]

Çok teşekkür ederim. Ellerinize sağlık çok güzel oldu.

 

[valentino06]

Merhaba,
1Al2Ver hocam sizi rahatsız ediyorum. yeni bir sıkıntı var programımda aynı olan hammaddeleri aynı topluyor stok sayfasında oysaki boyuna göre toplaması gerekiyor. Stok sayfasına uzunluk kısmını ekleyerek ve kriter hem hammdde hemde boya göre toplatabilirmiyiz. eğer olmazsa sadece kriter uzunluk da olabilir. hocam birde süz ve üretim sayfasına aylık ,yıllık bazda toplam üretilen tonaj/kg ve toplam adetleri görebileceğimiz. bir satır ekleyebilirmiyiz. hocam özür dilerim. gerçekten sizi çok rahatsız ediyorum.

 

[1Al2Ver]

yeni bir sıkıntı var programımda aynı olan hammaddeleri aynı topluyor stok sayfasında oysaki boyuna göre toplaması gerekiyor.

Sayın valentino06 merhaba,

Yapılan dosya, sizin eklediğiniz ve açıkladığınız konular üzerinden son halini aldı.Şimdi ise "yeni bir sıkıntı var programımda aynı olan hammaddeleri aynı topluyor stok sayfasında oysaki boyuna göre toplaması gerekiyor" diyorsunuz,

1) Dosya çözüm aşamalarında ; Böyle bir isteğiniz yoktu,

2) İlave satır ve sütun istiyorsunuz,

3) Yıllık bazda raporlar istiyorsunuz, vb.

Bu işlemler için dosya yapısında, makro ve formüllerde, düzenleme, yenileme, ekleme vb. işlemlerin yapılması olasıdır.

Şahsen benim, son mesajınızdaki isteklerinizi yapabilecek zamanım yok, üzgünüm.

Forum'un değerli ve daha profesyonel üyeleri, sizin için eminim, yeni bir çözüm üreteceklerdir.

Şahsıma gösterdiğiniz sevgi ve saygı için, ayrıca teşekkür ederim.

Sağlıcakla kalınız.

 

[valentino06]

1Al2Ver hocam kusura bakmayın çok haklısınız hocam ben anlatamadım. Stok sayfasına 1 sütun daha ekleyip tek kriter yerine Uzunluk ekleyip 2 kriterle toplatabilirmiyiz. kriterler ise hammadde ve uzunluk olacak başka sorunumuz kalmıyacak Allahın izniyle Çok özür dilerim.bende böyle bir hata vereceğini tahmin etmedim. daha önce bir arkadaşın yapmış olduğu makroyu uyarlama şanşımız var mı

Option Explicit
Sub tablo()
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
Dim a(), b(), c(), d As Object, Krt1, Krt2
Dim i As Long, Say As Long, Sat As Long

Set S1 = Sheets("GELEN HAMMADDE")
Set S2 = Sheets("ÜRETİLEN HAMMADDE")
Set S3 = Sheets("ÖZET")
Set d = CreateObject("scripting.dictionary")

a = S1.Range("D3:J" & S1.Cells(Rows.Count, 4).End(3).Row)
b = S2.Range("C3:N" & S2.Cells(Rows.Count, 3).End(3).Row)

ReDim c(1 To UBound(a) + UBound(b), 1 To 10)
For i = 1 To UBound(a)
Krt1 = a(i, 1) & "|" & a(i, 2)
If Not d.exists(Krt1) Then
Say = Say + 1
d(Krt1) = Say
Sat = Say
Else
Sat = d(Krt1)
End If
c(Sat, 1) = Sat
c(Sat, 2) = a(i, 1)
c(Sat, 5) = a(i, 2)
c(Sat, 6) = c(Sat, 6) + a(i, 7)
c(Sat, 7) = 0
c(Sat, 8) = c(Sat, 6)
c(Sat, 9) = 0
Next i

For i = 1 To UBound(b)
Krt2 = b(i, 4) & "|" & b(i, 5)
If Not d.exists(Krt2) Then
Say = Say + 1
d(Krt2) = Say
Sat = Say
c(Sat, 6) = 0
Else
Sat = d(Krt2)
End If
c(Sat, 1) = Sat
c(Sat, 2) = b(i, 4)
c(Sat, 5) = b(i, 5)
c(Sat, 3) = b(i, 2)
c(Sat, 4) = b(i, 3)
c(Sat, 7) = c(Sat, 7) + b(i, 12)
c(Sat, 8) = c(Sat, 6) - c(Sat, 7)
c(Sat, 9) = c(Sat, 9) + b(i, 11)
Next i

S3.Range("A3:I" & Rows.Count).ClearContents
S3.[A3].Resize(d.Count, 9) = c
MsgBox "İşleminiz tamamlandı....", vbInformation
End Sub


Sub Picture1_Click()
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
Dim a(), b(), c(), d As Object, Krt1, Krt2
Dim i As Long, Say As Long, Sat As Long

Set S1 = Sheets("GELEN HAMMADDE")
Set S2 = Sheets("ÜRETİLEN HAMMADDE")
Set S3 = Sheets("ÖZET")
Set d = CreateObject("scripting.dictionary")

a = S1.Range("D3:J" & S1.Cells(Rows.Count, 4).End(3).Row)
b = S2.Range("C3:N" & S2.Cells(Rows.Count, 3).End(3).Row)

ReDim c(1 To UBound(a) + UBound(b), 1 To 10)
For i = 1 To UBound(a)
Krt1 = a(i, 1) & "|" & a(i, 2)
If Not d.exists(Krt1) Then
Say = Say + 1
d(Krt1) = Say
Sat = Say
Else
Sat = d(Krt1)
End If
c(Sat, 1) = Sat
c(Sat, 2) = a(i, 1)
c(Sat, 5) = a(i, 2)
c(Sat, 6) = c(Sat, 6) + a(i, 7)
c(Sat, 7) = 0
c(Sat, 8) = c(Sat, 6)
c(Sat, 9) = 0
Next i

For i = 1 To UBound(b)
Krt2 = b(i, 4) & "|" & b(i, 5)
If Not d.exists(Krt2) Then
Say = Say + 1
d(Krt2) = Say
Sat = Say
c(Sat, 6) = 0
Else
Sat = d(Krt2)
End If
c(Sat, 1) = Sat
c(Sat, 2) = b(i, 4)
c(Sat, 5) = b(i, 5)
c(Sat, 3) = b(i, 2)
c(Sat, 4) = b(i, 3)
c(Sat, 7) = c(Sat, 7) + b(i, 12)
c(Sat, 8) = c(Sat, 6) - c(Sat, 7)
c(Sat, 9) = c(Sat, 9) + b(i, 11)
Next i

S3.Range("A3:I" & Rows.Count).ClearContents
S3.[A3].Resize(d.Count, 9) = c
MsgBox "İşleminiz tamamlandı....", vbInformation
End Sub

 

[valentino06]

merhaba,
Arkadaşlar Allah razı olsun.1Al2Ver hocamdan çok yardımcı oldu. son bir şey kaldı. stok sayfasında gelen adet ve sevk edilem adet ,kalan adet sütunları hammadde ve uzunluk kriterlere göre toplamak başka bir şey kalmadı. lütfen yardımcı olabilirmisiniz.

 

[valentino06]

Merhaba,
Arkadaşlar Stok sayfamda kriter hammaddeye göre benim sorunum ise Uzunluklar aynı olduğu zaman hepsini aynı hammadde topluyor acaba 2. bir kriter Uzunluk koyma şanşımız var mı düşünüyorum. düşünüyorum fakat bir şey bulamadım. lütfen yardımcı olabilirmisiniz. çok teşekkür ederim.

 

[1Al2Ver]

Merhaba,

"LİSTE" sayfası H sütununu ;

100X55X30*3000
100X55X30*3001
100X55X30*3002
100X55X30*3003
100X50X20*4000
100X50X20*4001
100X50X20*4002
100X50X20*4003
100X50X20*4004
100X50X20*4005
100X50X20*4006

şeklinde düzenlerseniz, yani hammaddenin sonuna * ve uzunluğu ( 3000, 4000 vb ) eklerseniz 2 nci bir sütuna gerek kalmaz.

 

[valentino06]

Çok teşekkür ederim. Allah razı olsun