Basit Stok Giriş Çıkış. Nasıl?

[woyzeck]

Merhaba Arkadaşlar,

Stok ile ilgili bir çok çalışma incelememe rağmen Stok programlarındaki en temel soruya cevap bulamadım. sanırım bu yetersiz bilgim olmasından kaynaklı.

Sorunumu ekte de belirttim. ama maddelendirmek gerekir ise,
1- userform'un ile giriş yaptığımız ürünün düşeyara ile aratıp yanındaki mikatara ekleme yapmak.
2- aynı şekilde ürünün stok çıkışını yapmak.

eğer ekdeki dosyaya bakar iseniz çok sevinirim.

Teşekkürler.

 

[woyzeck]

Sayın Ustalarım,
ektek örneğimi uzun süredir halletmeye çalışıyorum ama bi türlü beceremedim.

Ekteki dosyaya istinaden yardımcı olur iseniz sevinirim. teşekkürler.

 

[ceyrek]

Dosyanız ektedir.

 

[woyzeck]

@Ceyrek bey,
Çok teşekkürler.

 

[woyzeck]

merhabalar,
Sn Ceyrek yazmış olduğu koda istinaden aşağıdaki koları birleştirmeye çalıştım.

birles = MODEL1 & "-" & KALIP1 & "-" & RENK1 & "-" & EBAT1 & "-" & KILIT1 & "-" & TIPI1 & "-" & MENTESE1 & "-" & DOLGU1

Dim ayni
For Each ayni In Sheets("KANAT_KILIT_MENTESE").Range("i2:i40000")
 If birles = ayni Then GoTo 2 

1   Do While Not IsEmpty(a2)
        

        ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Offset(0, 0).Value = MODEL1.Value
    ActiveCell.Offset(0, 1).Value = KALIP1.Value
    ActiveCell.Offset(0, 2).Value = RENK1.Value
    ActiveCell.Offset(0, 3).Value = EBAT1.Value
    ActiveCell.Offset(0, 4).Value = KILIT1.Value
    ActiveCell.Offset(0, 5).Value = TIPI1.Value
    ActiveCell.Offset(0, 6).Value = MENTESE1.Value
    ActiveCell.Offset(0, 7).Value = DOLGU1.Value
Next ayni

2 birles = MODEL1 & "-" & KALIP1 & "-" & RENK1 & "-" & EBAT1 & "-" & KILIT1 & "-" & TIPI1 & "-" & MENTESE1 & "-" & DOLGU1

Set arama = Sheets("KANAT_KILIT_MENTESE").Columns("I").Find(What:=birles, After:=Range("I1"), LookIn:=xlFormulas, _
       LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        If arama Is Nothing Then
        Sheets("KANAT_KILIT_MENTESE").Cells(arama.Row, "J").Value = Sheets("KANAT_KILIT_MENTESE").Cells(arama.Row, "J").Value + URETILECEK1.Value
GoTo 3

Exit Sub
End If

yukarıdaki kodun sıralaması şöyle;

1- "birles = " tabloada aranmasını istediğim değer,
2- Dim ile başlayan kısım eğer birles değerini tabloda olup olmadığını araştırması,
3- eğer değer var ise 2 numaralı satıra gidip stok ekleme yapıyor.
4- eğer kod yok ise kodları açıyor ve next ayni komutuyla tekrar başa dönüyor.

benim sıkıntım "next ayni" koduna geldiğinde döngüye uğraması. bu komutla sonsuz döngü ortaya çıkıyor.

Uzman arkadaşlar yukarıdaki yazımın nerede hatalı olduğunu söyliyebilirlerse çok sevinirim. beni bayaa bi uğreştırdı.

yapmaya çalıştığım sadece "birles" tanımı var ise stok giriş yapmak yok ise tanımı otomatik açması.

umarım meramımı anlatabilmişimdir.

şimdiden teşekkürler.