Tarekchahine

للرفع ...نسبه الضريبه

 داخل فاتوره مثل  في 10 اصناف كل صنف له نسبه ضريبه المطلوب ترحيل نسبه الضريبه( لي كل صنف )

السلام عليكم ارجو المساعد في ترحيل نسبه الضريبه 

AAAAA.xlsm

ممكن شرح كود كيف يعمل (( حتي اقد اوصل الا حل ))

نعم انت علي حق استاذ

شكرا الك علي المساعد بس صدقني لو عندي خلفيه عن البرمجه كنت عملت كود  خبرتي صغير 

شكرا 

هذا جزء مع الكود 

اوكي استاذ ممكن نعمل تعديل بسط اذا سمحت

شكرا استاذ .. لو سمحت عندي سؤال 

لازم يكون كشف الحساب دائن ومدين من المبيعات و المشتريات و المرتجع المبيعات و المشتريات    في الليست بوكس ؟

Application.ScreenUpdating = False
ListBox1.RowSource = Empty
ListBox1.Clear

تم الحل  بفضلكم 

شكرا lionheart

هكذا استاذ

 m = .Cells(Rows.Count, "D").End(xlUp).Row+1

لو سمحت استاذ ممكن اضافة عند تغيير اسم يتم مسح معلومات الليست بوكس

استاذ شكرا علي المجهودك 

بس المشكله اذا كانت شيت اكسيل نشطه مبيعات او مشتريات  يعمل الكود علي نفس الصفحه 

لو سمحت انا اريد يعمل علي صفحات المبيعات و المشتريات و المرتجع 

هكذا

AAAAA.rar

lionheart🤩

ماشاء الله عليك استاذ والله  انت مبدع و جعله الله في ميزان حسناتك 

ربنا يحميك 

السلام عليكم ورحمه الله استاذتنا الكرام

ارجو المساعده في تعديل علي كود الترحيل من اليوزرفورم عند اختيار نوع الفاتوره ترحل الي شيت المطلوبها ( المبيعات او المشتريات او مرتجع ) 

AAAAA.rar

للرفع

السلام عليكم استاذ يوسف شكرا علي المجهود تاعك ربي يبارك فيك وجعله في ميزان حسناتك 

المطلوب عند ترحيل البيانات الفاتوره الي شيت مبيعات او المشتريات او مرتجع المبيعات و المشتريات يكون في كود حمايه علي صفحات لي منع تغير معلومات فاتوره

tarek chahine.xlsm

السلام عليكم اخي باسورد 1942

السلام عليكم و رحمه الله ان شاء الله سنه خير علي العالم كله يارب

الو سمحتم ممكن المساعد في تعديل علي كود الترحيل 

عفوا عشان نزلت الموضوع اكثر من مره 

السلام عليكم و رحمه الله ارجو مساعده في تعديل علي كود ترحيل 

المطلوب عمل حمايه الي صفحات اكسيل product sheet صفحه المبيعات و المشتريات و م.المبيعات و م.المشتريات من بعد ترحيل الفاتوره

كود 101 تاع صفخات 

Sub tarheel() For n = 20 To Sheets("فاتوره").Range("a19").End(xlDown).Row rw = Sheets(Sheets("فاتوره").Range("h2").Value).Range("b10000").End(xlUp).Row + 1 Sheets(Sheets("فاتوره").Range("h2").Value).Range("b" & rw).Value = Sheets("فاتوره").Range("i2").Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("c" & rw).Value = Sheets("فاتوره").Range("h2").Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("d" & rw).Value = Sheets("فاتوره").Range("h9").Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("e" & rw).Value = Sheets("فاتوره").Range("b17").Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("f" & rw).Value = Sheets("فاتوره").Range("b9").Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("g" & rw).Value = Sheets("فاتوره").Range("b" & n).Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("h" & rw).Value = Sheets("فاتوره").Range("a" & n).Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("i" & rw).Value = Sheets("فاتوره").Range("c" & n).Value Sheets(Sheets("فاتوره").Range("h2").Value).Range("j" & rw).Value = Sheets("فاتوره").Range("f" & n).Value Next n       Range("h2").ClearContents Range("i9").ClearContents Range("A20:c49").ClearContents Range("b9").ClearContents MsgBox "Ok"  Application.EnableEvents = True     Application.Calculation = xlAutomatic     Application.ScreenUpdating = True End Sub

انتبه من فضلك مشاركة مكررة .... تــم بالفعل حذف المشاركة الأخرى

tarek chahine.xlsm

شكرا الك اخي الكريم بس عندي مشكله ده

شكرا االك احي يوسف كلمه سر ايه

انا  عاوز كود ربط اكسيل باالكمبيوتر بسيريال نمبر بتاع الجهاز عند تغير الجهاز لا يعمل 1.xlsx

السلام عليكم عندي برنامج محاسبه اكسيل لو سمحتم اريد كود VBA ربط البرنامج بالكمبيوتر عند نقل الملف او اعادة تسميتها من كمبيوتر الي اخر لا يعمل البرنامج 

New Microsoft Excel Worksheet.xlsx

السلام عليكم ارجو المساعده

السلام عليكم ورحمه الله 

انا اسمي طارق عندي مخبز صغير ....المشكله في سرقه في المواد الخام من قبل بعض  الموظفين 

ارجو من اخوه اصحاب الخبر ارشادي الي طريقه صحيحه في اداره المخابز (المستودع )) 

جعلها الله في ميزان حسناتكم

عنوان مخالف ... تم تعديل وتغيير عنوان المشاركة ليعبر عن طلبك

New Microsoft Excel Worksheet.xlsx