لو سمحتم محتاج انظم الملف دا بالاكواد وهل ينفع اصلا ولا مينفعشى

[ar.abo.hna]

اسف على الطلب بس مش عارف اعملو ودا ملف هيساعدنى ف شغلى لو حتى بمقابل مادى مفيش مشكله 

عاوز 

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

إذا كان إسم العميل غير موجود يتم إنشاء شيت جديد بإسم العميل

يوجد عندى  خمس (انواع) مختلفه اريد عند الضغط على  زر "حفظ الفاتورة" يتم حفظ( امتار النوع) فى شيت النوع الخاص به

إذا كان إسم ( النوع ) غير موجود يتم إنشاء شيت جديد بإسمه وتسجيل (امتار النوع ) الخاص به فىه 

بعد الضغط على حفظ الفاتورة وتسجيل الفاتورة فى ملف العميل وتسجيل  كل نوع ف الملف الخاص به 

إذا كان إسم العميل غير موجود تظهر الخليه 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

[عبدالفتاح في بي اكسيل]

لا اعتقد   انك  ستجد  مساعدة  مع  كثرة  الطلبات  في  موضوع  واحد.  لديك  خيارين  اما  ان تبحث  بالمنتدى  وتقوم  باخذ  بعض  الافكار  من  حلول  سابقة  شبيهة وتقوم  بتعديلها بما يتناسب  مع  احتياجاتك  او  ان  تقوم  كل  مرة  بطرح  سؤالك  جزئية  بشكل  منفرد . 🙂

[ar.abo.hna]

الجزئية دى اهم حاجا

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

إذا كان إسم العميل غير موجود يتم إنشاء شيت جديد بإسم العميل