فورمة إدخال

[أحمد الصواف]

المطلوب عند فتح فورمة إضافه اسم العميل وكتابة اسمه يبحث عن اخر صف به اسم عميل ويصيف في الخليه اللي بعده

فورمة الإدخال.zip

[klma7lwa]

تفضل اخى الكريم طلبك

Book1.rar

[أبو حنــــين]

أكتب هذا الكود

Private Sub CommandButton1_Click()

LR = Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(LR, 1) = TextBox1.Text

End Sub

[أبو حنــــين]

المعذرة اخي

أرسلنا الرد تقريبا في نفس الوقت

[أحمد الصواف]

جزاكم الله خيرا ربنا يبارك فيكم

[أحمد الصواف]

أستاذ أبو حنين هي LR يعني ايه

[أبو حنــــين]

ليس شطر هاذين الحرفين بالذات

فقط هو تعبير على آخر صف لا يحتوي على بيانات

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

تم تعديل ديسمبر 25, 2012 بواسطه أبو حنين

[أبو حنــــين]

تستطيع استبدال الكود السابق بالكود التالي :

Private Sub CommandButton1_Click()

Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = TextBox1.Text

End Sub

تم تعديل ديسمبر 25, 2012 بواسطه أبو حنين

[klma7lwa]

المعذرة اخي

أرسلنا الرد تقريبا في نفس الوقت

اخى ابو حنين

جعلنا الله وايكم سباقين فى فعل الخير هذا مل تعلمته منكم

[أحمد الصواف]

مش عايز يتنفذ الشيت اسمه العملاء والعمود اسمه o وفيه بيانات بالفعل عايزة يزود بعدها

[أبو حنــــين]

غير أخي الكود كالتالي :

Private Sub CommandButton1_Click()

Sheets("العملاء").Cells(Cells(Rows.Count, 15).End(xlUp).Row + 1, 15) = TextBox1.Text

End Sub

حيث 15 هو رقم العمود O

[أحمد الصواف]

المشكلة إن اسم الشيت بالعربي ومش هينفع أغيره اعمل ايه

[أحمد الصواف]

لما بجرب مبيرضاش يعملها إلا لو غيرت لإسم شيت بإنجليزي

[أحمد الصواف]

هي المشكلة إنه مش قابل إن يكون اسم الشيت بالعربي وللأسف انا عامل ماكرو كتيير وعشان اغير اسم الشيت لازم أغير كل الأسماء في الكود وده صعب جدا أرجو المساعده

[أبو حنــــين]

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

[أحمد الصواف]

مرفق الملف

Cash.rar

[زوهير]

السلام عليكم ورحمة الله جرب اخي المرفق

Cash.rar

[أبو حنــــين]

السلام عليكم

جرب الكود التالي :

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 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

[أحمد الصواف]

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

[أحمد الصواف]

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