Stok Takibi yapıyorum

[atillaciftci]

Siteden bulduğum bazı VBA kodlarından kendime bir stok programı oluşturdum
Bununla ilgili bir sorum olacaktı değerli bilgilerinizden faydalanmak istiyorum..

Malzeme1 den A-1-1 Lokasyonunda 90 Adet
Malzeme1 den A-1-2 Lokasyonunda 90 Adet

Kalmasını istiyorum Fakat Program A-1-1 de 180 Adet var yazıyor..

Bunu yapalım herkez faydalansın buna benzer program arayan çoktur diye düşünüyorum..

 

[atillaciftci]

Arkadaşlar çözüm bulamadım...

 

[atillaciftci]

Halen daha Çözüm bulamadım

 

[atillaciftci]

Arkadaşlar sitemkar yazılar yazınca da neden sitem ediyorsun ki diye cevaplar geliyor..

Bugün komple bu soruma cevap gelsin diye bekledim ama bir allahın kulu cevap yazmadı..
Ben eminim ki bakanlardan onlarca kişi bunun cevabını biliyor.. Müslüman olan bir kişi cevap yazsın yaa....

 

[truvali27m]

Arkadaşlar sitemkar yazılar yazınca da neden sitem ediyorsun ki diye cevaplar geliyor..

Bugün komple bu soruma cevap gelsin diye bekledim ama bir allahın kulu cevap yazmadı..
Ben eminim ki bakanlardan onlarca kişi bunun cevabını biliyor.. Müslüman olan bir kişi cevap yazsın yaa....

Merhaba bu siteden ben de çok faydalanıyorum.Bu yüzden sabırlı olmak lazım ve de kurallara da dikkat etmek lazım ben anlayabildiğim kadarıyla formüllerle yaptım birşeyler ama heralde bu şekilde istiyorsunuz.Dosya ektedir.

 

[atillaciftci]

truvali27m Arkadaşım Teşekkürler...

Ama istediğim sizin yaptığınız gibi değil. Sizin yaptığınızda ben Rapor sayfasında Malzeme1 yazacam lokasyon yazacam program bana o malzeme o lokasyonda kaçtane var söyleyecek ben böyle istemiyorum....

Benim istediğim Rapor sayfasında VERİ YENİLE düğmesine basınca Rapor sayfasındaki bilgileri silecek ve Veri Girişi sayfasından Stok Adı/Giriş/Çıkış/Birim/Lokasyon/Kalan Bilgilerini çekip Stok adı aynı olup Lokasyonu farklı olanları ayırıp Ayrı ayrı yazmasınız istiyorum.

Örnek..

Malzeme1 A-1-1 100 10 90
Malzeme1 A-1-2 80 20 60

 

[atillaciftci]

Aşağıdakş kodu yukarda anlattıklarıma göre nasıl düzenleyebilirim..



Sub aktar()
Dim isim, giren, cikan, birim, lokasyon As Variant
Dim rng As Range
Dim i, z, a, b, l As Integer
'Burası veriyi hangi satırdan itibaren alacağını buluyor
i = 1
z = 1
a = 1
b = 1
l = 1
Do
If Cells(i, 1).Value = "" Then GoTo bitti
If Range([A1], [A100000]).Find(What:=Cells(i, 1).Value, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows).Row < i Then GoTo devam2
ReDim isim(z)
ReDim giren(z)
ReDim cikan(z)
ReDim birim(z)
ReDim lokasyon(z)
isim(z) = Cells.Find(What:=Cells(i, 1).Value, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows).Value
'Alttaki Cells(i, 3)buradaki rakam kaç olursa rng.Offset(0, 3) burdakide
' Aynı olacak
giren(z) = Cells(i, 2).Offset(0, 1).Value
cikan(z) = Cells(i, 3).Offset(0, 1).Value
birim(z) = Cells(i, 4).Offset(0, 1).Value
lokasyon(z) = Cells(i, 5).Offset(0, 1).Value
hcr = i
Do
On Error Resume Next
Set rng = Range(Cells(hcr, 1), [A100000]).FindNext
If rng.Row = hcr Then GoTo devam
hcr = rng.Row
'Sayfa1 C sütünunu topluyor aşağıyı 3 yaparsan D yi toplar fakat yukardaki
'Cells(i, 3) yapman lazım yani rng.Offset(0, 3) burdaki değer kaç olursa
'Cells(i, 3) burada o değer olacak
giren(z) = giren(z) + rng.Offset(0, 2).Value
cikan(z) = cikan(z) + rng.Offset(0, 3).Value


Loop
devam:
Sheets(2).Cells(z, 1).Value = isim(z)
Sheets(2).Cells(z, 2).Value = giren(z)
Sheets(2).Cells(z, 3).Value = cikan(z)
Sheets(2).Cells(z, 4).Value = birim(z)
Sheets(2).Cells(z, 5).Value = lokasyon(z)
z = z + 1
devam2:
i = i + 1
a = a + 1
b = b + 1
l = l + 1
Loop
bitti:
End Sub

 

[osmanlikadir]

özet veri tablosu işini gormuyo mu

 

[atillaciftci]

özet veri tablosu işini gormuyo mu

Özet tabloda aynı olanları gruplayıp 1 sefer yazıyor ve alt hücreler aynı olduğu için boş bırakıyor ben boş kalsın istemiyorum üsttekiyle aynıysada yazsın istiyorum özet tabloda bu yok diye biliyorum...