makroyla etopla nasılyapılabilir ve süzmeişlemi yaptırmak istiyorum

[majestik_]

ekteki dosyayı sayın ihsan TANK beyin yardımıyla biyerlere getirdim.(kendisine buradan teşekkür etmek isterim.)fakat bazı sorunlarım var
1-stok programı yapmak istediğimiçin stok sayfasına ürünlerin toplam giriş ve çıkış miktarlarını çekmem lazımve giriş miktarını çıkışmiktarından çıkarıp stok kısmına yazması gerek
2-giriş ve çıkış ekranındaki listbox larda stok ıd ürün adı memur ismi ile süzme yapmam lazım
3-yazdır butonu koydum fakat yazdır deıgım zaman acılan sayfa userformun altında açılıyor bu sebepden dolayı kılıtlenıyor sorun ne olabilir.

kullanıcı ENEME
şifre:12345

Not:ihsan bey mümkünse şifreli dosya eklemeyin demiş ama parola kısmını kaldırısam tekrar yerleştiremem diye o riske giremedim kusura bakmayın yardımlarınız için şimdiden teşekkürler

 

[majestik_]

süzme işlemi yaptım fakat diğer iki sorun için çözüm olacak örnek bulamadım

 

[sbayyigit]

Anladığım kadarıyla sen program istiyorsun. Zaman sınırlaman yoksa zamanım olduğu müddetçe basamak basamak yaparız. aksi halde senin hazırladığın formlara tek tek makro hazırlamak gerekecek.

 

[sbayyigit]

Hazırlamış olduğum örneği ekte gönderiyorum. İncelersen işine oldukça yarayacaktır.
iyi çalışmalar

 

[aslan525]

sbayyigit hocam çıkışı yazmıyor girişte sorun yok kalan stokda da sorun yok
yeni ürün ekledim yazmıyor çıkışı yardımcı olursanın benim için çok iyi olur
ayrıca gönderdiğiniz ürün için teşekkür ediyorum
saygılarla

 

[sbayyigit]

sbayyigit hocam çıkışı yazmıyor girişte sorun yok kalan stokda da sorun yok
yeni ürün ekledim yazmıyor çıkışı yardımcı olursanın benim için çok iyi olur
ayrıca gönderdiğiniz ürün için teşekkür ediyorum
saygılarla

gönderdiğim bir örnekti. bu şekilde sanırım sorun olmayacaktır.


Sub stok_hespla()
Set s1 = Sheets("DATABASE")
Set s2 = Sheets("giris")
Set s3 = Sheets("cikis")
Set s4 = Sheets("STOK")



verisayisi = s1.[c65536].End(3).Row
Sheets("STOK").Select
Range("A2:F" & verisayisi + 100).Select
Selection.ClearContents

For n = 2 To verisayisi

giris1 = 0
cikis1 = 0

aranan = s1.Cells(n, 3).Value
grs = s2.[c65536].End(3).Row
cks = s3.[c65536].End(3).Row
If cks > grs Then
grs = cks
End If

For g = 2 To grs


If aranan <> "" Then
If aranan = s2.Cells(g, 3).Value Then
giris1 = giris1 + (s2.Cells(g, 4).Value)
End If
If aranan = s3.Cells(g, 3).Value Then
cikis1 = cikis1 + (s3.Cells(g, 4).Value)
End If
End If

Next g


Sheets("STOK").Cells(n, 1).Value = s1.Cells(n, 1).Value
Sheets("STOK").Cells(n, 2).Value = s1.Cells(n, 2).Value
Sheets("STOK").Cells(n, 3).Value = s1.Cells(n, 3).Value
Sheets("STOK").Cells(n, 4).Value = giris1
Sheets("STOK").Cells(n, 5).Value = cikis1
Sheets("STOK").Cells(n, 6).Value = giris1 - cikis1
Next n

Range("a1").Select
End Sub

 

[aslan525]

sbayyigit hocam çok teşekkür ederim çalışıyor elinize sağlık
esen kalın
saygılarla

 

[sbayyigit]

sbayyigit hocam çok teşekkür ederim çalışıyor elinize sağlık
esen kalın
saygılarla

yardımcı olabildiysek ne mutlu bize. kolay gelsin