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.