Stok programı hazırlama

[zetkatamet]

Arkadaslar,
Basit bir stok programi gibi yazdim ama karisik ta olabilir.
Giris sayfasi, cikis sayfasi bulunmakta ana sayfaya super bir formul gerekli..
Cozum formulle olabilirse cok memnun olurum..
Degerli cevaplariniz icin simdiden tesekkurler.
iyi bayramlar..
Dosya ekte.

 

[Ömer]

Merhaba,

C2:

=ETOPLA(STOK_ACILIS_FISI!A:A;A2;STOK_ACILIS_FISI!C:C)+ETOPLA(GIRIS!D:D;A2;GIRIS!F:F)-ETOPLA(CIKIS!D:D;A2;CIKIS!F:F)

.

 

[zetkatamet]

omer bey giris veya cikis olarak birden fazla olursa formul calisir mi acaba?
az once bir deneme yaptim, sonuc degismedi..
E100000036 malzemesinden 10 adet giris yazdim, cikis sayfasina 7 adet yazdim. sonuc degismedi 5 olarak kaldi.

 

[Ömer]

Formülü değiştirdim. Tekrar deneyiniz..

.

 

[zetkatamet]

Omer bey ne kadar tesekkur etsem azdir. Benim acimdan super bir stok programi oldu. Emeginize saglik. Iyi bayramlar.

 

[zetkatamet]

excel niye gec hesapliyor..

Arkadaslar,
Ekteki dosyaya bakabilirmisiniz, excel tam istedigimi yapiyor ama biraz gec..
giris - cikis sayfasina D sutununa bir parca kodu yazdigimda d sutununda karsiliginin cikmasi ve miktari yazmam neredeyse 30 saniye. Muhtemelen satir cok uzun oldugundan bu gecikme oluyor. Formul degistirilse veya size gore yogunlugu arttıran ne olabilir. Cevaplariniz icin tesekkurler. iyi calismalar.

 

[Ömer]

Eki inceleyiniz..

.

 

[zetkatamet]

Omer bey cok tesekkur ederim, sonuc olarak makro vs.islerden kaca kaca ancak buraya kadar gelebildik. Saygilar. Iyi calismalar.

 

[zetkatamet]

omer bey,
giris ve cikis sayfalarinda sorgulama yaparken bazi sorunlar var. rica etsem musait bir zamaninizda bakabilirmisiniz. Dosya ekte..iyi calismalar.Tesekkurler..

 

[Ömer]

Dosyada bir problem yok. Yalnız kodarı D sütununun hareketine bağlamıştım.

Örnek verecek olursam, eklediğiniz dosyada Giriş sayfasında D4: D65536 arasındaki hücrelerin birine fare ile çift tıklayın yada bir verin girin yada F2 enter yapın istediğiniz sonuçları alacaksınızdır.

Bu şekilde yapmamın nedenide D sütünuna girdiğiniz veriye göre düşeyara hesaplattığınız içindir.

.

 

[zetkatamet]

Tekrar tesekkurler ömer bey,
G2 hucresine (giris - cikis sayfasinda) veri girildiginde aynı islem olabilir mi acaba?
G2 den sonra herhangi bir yon tusu, f2 enter vs.
Bu sekilde olabilirse bizim icin daha kullanisli olabilecektir.
Saygilar.
iyi calismalar.

 

[Ömer]

Giriş ve Çıkış sayfasının kod bölümlerinde,

If Intersect(Target, [D4:D65536]) Is Nothing Then Exit Sub

olan kodu aşağıdaki gibi değiştirin.

If Intersect(Target, [D4:D65536[COLOR=red],G2[/COLOR]]) Is Nothing Then Exit Sub

G2 hücresinede veri girip enter yaparsanız kod çalışacaktır.

.

 

[zetkatamet]

Ömer bey ne kadar tesekkur etsem azdır, cok faydali bir calisma oldu.

 

[zetkatamet]

Merhaba,
Ekteki dosyaya bakabilirmisiniz..
Guven stogu diye bir ilave yaptim. Arada bosluklu liste var, bosluksuz bir sekilde siralanmasini rica edecektim. Buna benzer bir konuda yine yardimci olmustunuz, fakat oradaki calismada formul yok idi, sizin cozumunuzu suanki dosyama uyguladim, olmadi..Dosya ekte.. simdiden tesekkurler. Saygilar.

 

[Ömer]

Bu şekilde deneyin.

Sub Deneme()
Dim i, sat As Long
Set S1 = Sheets("STOK_ACILIS_FISI")
Set S2 = Sheets("GUVENLIK_STOGU")
Application.ScreenUpdating = False
S2.Select
Range("B2:D65536").ClearContents
sat = 1
    For i = 4 To S1.[B65536].End(3).Row
        If S1.Cells(i, "k") <> "" Then
            sat = sat + 1
            Cells(sat, "b") = S1.Cells(i, "b")
            Cells(sat, "c") = S1.Cells(i, "c")
            Cells(sat, "d") = S1.Cells(i, "k")
        End If
    Next i
Application.ScreenUpdating = True
End Sub

.

 

[zetkatamet]

Ömer bey mutlaka cozumu saglamissinizdir. Ilginize cok tesekkur ederim. Verdiginiz kodlari GUVENLIK_STOGU sayfasinda kod bolumune direkt yapistirdim, calistiramadim. Bu kadarda hazira konulmaz demezseniz birkez daha yardimci olurmusunuz. Saygilarimla..

 

[Ömer]

Kodları Module içine kopyaladıktan sonra çalıştırınız.

.

 

[zetkatamet]

Ömer bey,
İki sekilde denedim;
1.deneme..mevcut module kopyaladim
2.deneme..yeni module icine kopyaladim.
Yazmaya cekiniyorum ama yine beceremedim. Bu kadarda olmaz demezseniz dosyayi ekleyebilirmisiniz..
Inanin sayenizde cok sey ogrendim.. gelisim icindeyim.. saygilar.. iyi aksamlar.

 

[Ömer]

Eki inceleyin.

.

 

[zetkatamet]

Ömer bey tekrar tekrar tesekkurler, sayenizde iyi bir calisma oldu. Saygilar..