ترحيل برنامج بيع كروت الشحن

[طارق زكريا]

ترحيل برنامج بيع كروت الشحنبيع كروت شحن.rar

[عبدالله باقشير]

السلام عليكم

 

جرب هذا للعمود A

Sub Macro1()
Dim cont As Double
cont = Application.InputBox("اكتب الكمية", "", 1, , , , , 1)
If cont = 0 Then GoTo 1
With Cells(Rows.Count, "A").End(xlUp)
    .Offset(1, 0) = Date
    .Offset(1, 1) = cont
    .Offset(1, 2) = cont * 10.5
End With
1:
End Sub

كرر الكود للعمود  F  و K

 

تحياتي

[طارق زكريا]

الله ينور عليك ياكبير

اجابة شاملة

وشكرا

[عبدالله باقشير]

الحمد لله

جزاكم الله خيرا

[مصطفى كمال متولى]

 استاذنا عبد الله العلامة الكبير تسلم الايادى