stoktan sipariş oluşturm

[kotell]

sevgili hocalarım konuyu dosyada belırtim yardımınıza ihtiyacım var tes ederim

 

[Emir Hüseyin Çoban]

. . .

Makro ile yapabilirim.
Sipariş adetlerini girdiğiniz anda mı tablo oluşmaya başlasın.
Yoksa tüm sipariş adetlerini girdikten sonra buton ile mi sipariş listesi oluşsun.

. . .

 

[kotell]

sıparis adetlerini girerken tablo olusmsı lazım tşler

 

[Emir Hüseyin Çoban]

. . .

Sayfa1 kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)

son = [B65536].End(3).Row

If Intersect(Target, Range("D2:D" & son)) Is Nothing Then Exit Sub
i = Target.Row
[B]
On Error GoTo atla[/B]

If Target.Value > 0 And _
IsNumeric(Target.Value) Then

sat = [G65536].End(3).Row + 1
Cells(sat, "G") = Cells(i, "B")
Cells(sat, "H") = Cells(i, "C")
Cells(sat, "I") = Cells(i, "D")
Cells(sat, "j") = Cells(i, "C") * Cells(i, "D")
End If

[B]atla: Exit Sub[/B]
End Sub

. . .

 

[kotell]

hocam ben bu kodu nereye nasıl kopyalayacagımı bilmiyorum fazla bilgim yok siz bana sablon yapıp gonderirseniz sevinirim cok acemiyım

 

[kotell]

hocam tmam buldum sagolun çok tesekkür ederim

 

[Emir Hüseyin Çoban]

. . .

Ekte.
Kodlara ilavele yaptım. Ekteki dosyayı inceleyiniz.

. . .