Merhaba;

Sımdı Sn Mumya yanlıs anlama ama burada bır mantık hatası var Deneme1 hem depo adı hem urun adı olamaz dıye dusunuyorum o nedenle mantık bence soyle olmalı.

1- Urun lıstesı olmalı ve urun lıstesının yanında hangı urunun hangı Depoya tanımlı oldugu yazılı olursa gerısı kolay eger formulune bakar.

Eger Urun Deneme1 Depoya tanımlı ıse Deneme1 shıtıne yaz Eger Urun Deneme2 Depoya tanımlı ıse Deneme2 shıtıne yaz demek yeterlı olacaktır.

Bu ıslemde az once soyledıgımız gıbı kopyala shıt adını degıstır ıle yapılır sadece basına.

If (C8 = ''Deneme1'') Then
Kodlar
ElseIf (C8= ''Deneme2'') Then
Kodlar

gıbı olacaktır.

Kolay gelsın.

Sn Schworse hocam
Estafurullah sn hocam neden yanlış anlayım bilmemek ayıp değil öğrenmemek ayıptır demi hocam eğer yanlış anlamazsanız bir örnekle veya resimle göstere bilirmisiniz hocam

Sn:mumya66

Sn:POWER ve Sn:schworse kalan ile ilgili bölümün sorununu çözmüşler ama hala görüyorumki sizin data hazırlamada sıkıntılarınız var.Egerki hazırladığınız formu farklı datalarda kullanacaksanız öncelikle daha öncede verdiğim örneklerden Combobox ile sayfa seçme konusunu inceleyip kodlarınızıda aşağıdaki örneğe benzer şekilde düzenleyiniz.

Sn. Mumya;

İsdeğiniz şekilde düzenledim kontrol edebilirmisiniz. Programın Çalışma Algoritması aşğıdaki gibidir.

1- Ürün tanımlamarı yapılırken Tederik Yeri girilmesi gerekir.
2- Ürün hangi Tedarikçiye girilmiş ise Kaydi işlemler İlk olarak giriş ise Depo Girişe işlenecek Çıkış ise Depo Çıkışa işlenecek sonra İlgili Tedarikçi bölümüne işlenecek.
3-Tedarikçi Bölümülerinde İşlem Türü'ne Giriş ise Depo Giriş olarak yazak, İşlem Çıkış ise Depo Çıkış olarak yazacak.
4- Ürün Giriş Çıkışları Detaylı olarak hem Tadarikçi bazında kontrol edilebilecektir. Giriş Miktarı Toplamı - Çıkış Miktarları Toplamı = Kaydi Stok olmalıdır.

Sanırım isdeğiniz bu şekildeydi.

Konuyu diğer arkadaşlarımızında anlayabilmesi için anlatmak isterim.

Programı Özetliyecek olursak Sn. Mumya Excel ile bir stok takip programı yapmaya çalışıyor. Stok Takip programında Ürün Tanımlaması Yapılacak Tanımlı olan ürünlerin Depo Giriş - Depo Çıkış ve Tedarik Yerleri bazında işlemlerin Kaydedilip takip edilmesidir.

1- Program ilk olarak tasarlandığında Giriş veya Çıkış işlemi yapıldığında Depo Stok miktarı kaç ise İşlem Miktarının Stok Miktarından düşürülerek Kalan sütununa yazılması istenmiştir. Bu işlem için kalan = Kaydi - Giriş&Çıkış olarak bir işlem yazılmış bu hatalı bir yazımdı düzeltmek için ilk olarak kalan adında bir değişken tanımlıyarak sorunu çözdük.
2- Sonra Kodları incelediğimizde kalan değişkenine gerek olmadığına karar verdik ve kalan sütununa direk olarak Depo kaydi - Çıkış ve Depo kaydi + Giriş yaparak işlemi kısalttık sorun çözüldü.

Set ara = Sheets("STOK").Range("b2:b65536").Find(C1, , xlValues, xlWhole)

If Not ara Is Nothing Then

Sheets("STOK").Cells(ara.Row, 5).Value = Val(Sheets("STOK").Cells(ara.Row, 5).Value) + Val(C4)

Else

MsgBox "İşlemi Başarısız Stok Kodu ve Adet Kısmını Kontrol Ediniz.", , "BİLGİ"

Exit Sub

4- Bunda sonraki işlem Depo Giriş Butonuna basıldığında Depo Giriş bölümüne giriş işlemi ile ilgili bilgilerin yazılması, Depo Çıkış Butonuna basıldığında Depo Çıkış bölümüne çıkış ile ilgili bilgilerin yazılması ve Stok bölümünede Son Kaydi stok bilgilerinin güncellenmesidir.

son = Sheets("DEPO GİRİŞ").Range("a65536").End(3).Row + 1

Sheets("DEPO GİRİŞ").Cells(son, 1).Value = C1.Value

Sheets("DEPO GİRİŞ").Cells(son, 2).Value = TextBox2.Value

Sheets("DEPO GİRİŞ").Cells(son, 3).Value = C2.Value

Sheets("DEPO GİRİŞ").Cells(son, 4).Value = Val(C3.Value)

Sheets("DEPO GİRİŞ").Cells(son, 5).Value = "DEPO GİRİŞİ"

Sheets("DEPO GİRİŞ").Cells(son, 6).Value = Val(C4.Value)

Sheets("DEPO GİRİŞ").Cells(son, 7).Value = Val(C3.Value) + Val(C4.Value)

Sheets("DEPO GİRİŞ").Cells(son, 8).Value = C5.Value

MsgBox "Ürün giriş İşlemi Başarılı", , "BİLGİ"

For i = 1 To 5

Controls("c" & i).Text = ""

Next i

3- Daha sonra Konuyu anlayamadığımız için DENEME, DENEME1 gibi sütun isimleri yazıyordu tabloda Sn. Mumya ya sorduğumuzda bunların tedarikçi olduğunuz ürünün hangi Tedarikçiye ait ise giriş çıkış işlemlerinin ilgili Tedarikçi bölümüne yazılması istenmiştir. Bu işlemde yapılarak program bitirilmiştir.

If (C8.Value = "Firma1") Then

    son = Sheets("Firma1").Range("a65536").End(3).Row + 1

    Sheets("Firma1").Cells(son, 1).Value = C1.Value

    Sheets("Firma1").Cells(son, 2).Value = TextBox2.Value

    Sheets("Firma1").Cells(son, 3).Value = C2.Value

    Sheets("Firma1").Cells(son, 4).Value = Val(C3.Value)

    Sheets("Firma1").Cells(son, 5).Value = "DEPO GİRİŞİ"

    Sheets("Firma1").Cells(son, 6).Value = Val(C4.Value)

    Sheets("Firma1").Cells(son, 7).Value = Val(C3.Value) - Val(C4.Value)

    Sheets("Firma1").Cells(son, 8).Value = C5.Value

Kolay gelsin.

Sn Schworse hocam
Ben bu depoları çoğalta bilirmiyim örneğin; Depo5,Depo6... vs birde hocam depoların isimlerini değiştire bilirmiyim sayın hocam...

Sn Mumya;

Son eklediğim örnekte istedeğiniz işlemi yapabilirsiniz. Kodu aşağıdaki gibi değiştirdim. İstediğin kadar Depo veya Firma ekleyebilirsin. İsimlerinide değiştirebililirsin.

son = Sheets(C8.Value).Range("a65536").End(3).Row + 1

Sheets(C8.Value).Cells(son, 1).Value = C1.Value

Sheets(C8.Value).Cells(son, 2).Value = TextBox2.Value

Sheets(C8.Value).Cells(son, 3).Value = C2.Value

Sheets(C8.Value).Cells(son, 4).Value = Val(C3.Value)

Sheets(C8.Value).Cells(son, 5).Value = "DEPO ÇIKIŞI"

Sheets(C8.Value).Cells(son, 6).Value = Val(C4.Value)

Sheets(C8.Value).Cells(son, 7).Value = Val(C3.Value) - Val(C4.Value)

Sheets(C8.Value).Cells(son, 8).Value = C5.Value

Fakat şuna çok dikkat etmen gerekir Ürün tanımlaması yaparken tanımlamış olduğun Tedarik Yeri (depo) adının aynısını sheet adına da yazmanız gerekir.

Kolay gelsin.