ar.abo.hna

عند ترحيل بيانات الليست بوكس للشيت لو الليست بوكس فيه اكتر من بيان بتتسجل عمودى فوق بعضها تاريخ - اسم -صنف تاريخ - اسم -صنف تاريخ - اسم -صنف (كدا الفاتورة بتاخد صفوف كتير) هل ينفع اخلى بيانات الليست بوكس تتسجل افقى جنب بعض (تاريخ - اسم -صنف *تاريخ - اسم - صنف* تاريخ - اسم صنف) وشكرا New Microsoft Excel Worksheet.xlsm

الجزئية دى اهم حاجا عند كتابه إسم العميل والضغط على :حفظ الفاتورة" يتم حفظ الفاتورة فى الشيت الخاص بهذا العميل إذا كان إسم العميل غير موجود يتم إنشاء شيت جديد بإسم العميل

اسف على الطلب بس مش عارف اعملو ودا ملف هيساعدنى ف شغلى لو حتى بمقابل مادى مفيش مشكله عاوز عند كتابه إسم العميل والضغط على :حفظ الفاتورة" يتم حفظ الفاتورة فى الشيت الخاص بهذا العميل إذا كان إسم العميل غير موجود يتم إنشاء شيت جديد بإسم العميل يوجد عندى خمس (انواع) مختلفه اريد عند الضغط على زر "حفظ الفاتورة" يتم حفظ( امتار النوع) فى شيت النوع الخاص به إذا كان إسم ( النوع ) غير موجود يتم إنشاء شيت جديد بإسمه وتسجيل (امتار النوع ) الخاص به فىه بعد الضغط على حفظ الفاتورة وتسجيل الفاتورة فى ملف العميل وتسجيل كل نوع ف الملف الخاص به إذا كان إسم العميل غير موجود تظهر الخليه G2 باللون الاحمر وإذا كان موجود تظهر باللون الأخضر دا كود بيضيف ملف بإسم العميل بس مش عارف اظبطو على الملف عاندى بصراحه مش فاهمو ف مش عارف اعدل عليه انا بعلم نفسى الاكسيل والاكواد عن طريق الفيديوهات محدش بيعلمنى Sub checksheetexist() Dim ws As Worksheet Dim shname As String Dim i As Long i = Sheets.Count shname = InputBox("من فضلك ادخل اسم العميل", "الادمن") For i = 1 To i If Sheets(i).Name = shname Then MsgBox "عفوا " & shname & "موجود بالفعل" Exit Sub End If Next i Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = shname MsgBox "لقد تم اضافة " & shname Sheet1.Activate End Sub New Microsoft Excel Worksheet.xlsx

لو سمحتم بعمل ملف للمحل عندى ومش محتاج غير بيانين دول لو حد يقدر يساعدنى فيهم عاوز كود عند كتابة اسم العميل .... يحفظ الفاتورة فى شيت بإسم العميل ده ولو كتب اسم عميل مش موجود ليه شيت يعمل شيت جديد بإسمه ..والنوع حابب كل نوع يتسجل ف شيت لوحده كدا كدا هيتسجل كل فاتورة عند كل عميل بس عاوز كمان اسجل كل نوع يتجمع ف شيت منفصل كمان بحيث انى اقدر اعرف استهلاكى من كل نوع بس ..انا عملت الصفحه دى وعملت انى اعمل حفظ للفاتورة وبيعمل ريسيت للخلايا بجرب بقالى شهرين ومش ظابطا خالص معايا .. انا بشوف فيديوهات وبجرب محدش قالى حاجة New Microsoft Excel Worksheet.xlsx