أبو حنــــين

CTRL + Q to Enable/Disable GoPhoto.it ضع في العمود H هذه الدالة ثم اسحبها للاسفل =IF(OR(G6="";G6="غ");"";G6*0.4)

آسف اخي منذ حوالي ساعة تقريبا عدت من المستشفى لاصابتي بكسر في يدي اثر سقوطي من سلم

السلام عليكم انظر المرفق هناك اسئلة اود الاجابة عنها و هي داخل الملف Cash222.rar

نعم هذا ممكن في اكسل لقد قام به الإخوة الكرام في المنتدى ابحث و ستجد ما تريد

السلام عليكم أخي أحمد الصواف هذا نموذج لما طلبت و أكثر هو باصدار 2003 بالنسبة للعمليات لم اقم بها لانني لم افهم كيف تتم الحسابات وضح لي الحسابات لكي اتمم لك البرنامج فورمة11.rar

السلام عليكم أخي ابو ردينة جربت المرفق على 2003 و هو يعمل جزاك الله خيرا على هذا العمل ذو الأهمية الكبيرة كما ذكرت اعلاه تقبل مروري

السلام عليكم المرفق كما طلبت و أكثر New project.rar

السلام عليكم المشكلة عندك أخي

في الزر حفظ صع هذا الكود : Private Sub btnsave_Click() If Len(txtname) = 0 Or IsNumeric(txtname) = True Then MsgBox "يرجى كتابة إسم العميل في مربع النص", vbExclamation, "خطأ" Exit Sub End If Sheet12.ListObjects("Table6").ListRows.Add RR = Sheet12.ListObjects("Table6").ListRows.Count + 1 Sheet12.ListObjects("Table6").Range(RR, 1) = txtname.Text txtname = "" With Sheet12 .Range("O6").Select Range("O5:" & "O" & RR).sort Key1:=Range("O6"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With End Sub

أخي محمود بارك الله فيكم على هذا الكتاب و أثاب الله صاحبه

السلام عليكم جرب الكود التالي : Private Sub CommandButton1_Click() RR = Sheet12.ListObjects("Table6").ListRows.Count + 1 Sheet12.ListObjects("Table6").ListRows.Add Sheet12.ListObjects("Table6").Range(RR, 1) = txtname.Text End Sub

أرسل نسخة من الملف

غير أخي الكود كالتالي : Private Sub CommandButton1_Click() Sheets("العملاء").Cells(Cells(Rows.Count, 15).End(xlUp).Row + 1, 15) = TextBox1.Text End Sub حيث 15 هو رقم العمود O

تستطيع استبدال الكود السابق بالكود التالي : Private Sub CommandButton1_Click() Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = TextBox1.Text End Sub

ليس شطر هاذين الحرفين بالذات فقط هو تعبير على آخر صف لا يحتوي على بيانات بمعنى تستطيع التعبير عن ذلك بأي كلمة او حرف تشاء

المعذرة اخي أرسلنا الرد تقريبا في نفس الوقت

أكتب هذا الكود Private Sub CommandButton1_Click() LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1) = TextBox1.Text End Sub

بعذ إذن أخي الحبيب : / أبو نصار اريد إضافة بعض الملاحظات : ـ 1 ) يجب مسح النطاق المبين في خصائص الكمبوبكس و الذي كان : A4:A10000 ـ 2 ) وضع كود أبو نصار في الحدث : UserForm_Activate ـ 3 ) لتفادي تحميل الفراغات الموجودة يمكن إضافة الجملة And Not IsEmpty(Cells(i, 1)) للشرط الذي ذكره أخي أيو نصار فيصبح بالشكل : If IsNumeric(Cells(i, 1)) And Not IsEmpty(Cells(i, 1)) Then بهذه الطريقة يصبح الكود كالتالي : With Me.ComboBox1 For i = 4 To 100 If IsNumeric(Cells(i, 1)) And Not IsEmpty(Cells(i, 1)) Then .AddItem Cells(i, 1).Value End If Next End With

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

السلام عليكم اضفت صفحة أخرى خاصة بالبحث acc444.rar

هل الاستدعاء يكون في صفحة مستقلة او في نفس صفحة الفاتورة

السلام عليكم تم عمل المطلوب جرب المرفق و أخبرني بالنتيجة lamassat 44.rar

امهلني بعض الوقت لاقوم بذلك ان شاء الله

تم عمل النسبة انظر الملف و الملاحظة الموجودة داخله acc33.rar

إخوتي و أحبائي : الفاضل : / أبو محمد يارا الفاضل : / يوسف عطا الأخ الحبيب : / دغيدي ( تحية لك و لكل الاسرة الطيبة ) الفاضل : / New4a الفاضل : / largot2009 جزاكم الله خيرا على على المرور العطر و الكلمات الطيبة و ذلك من نبل أخلاقكم أخي دغيدي سأحاول تعديل الملف لتغيير مسار المفكرتين و ارفعه مرة اخرى للمنتدى تقبلو فائق شكري و تقديري لكم