أحمد الصواف قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 المطلوب عند فتح فورمة إضافه اسم العميل وكتابة اسمه يبحث عن اخر صف به اسم عميل ويصيف في الخليه اللي بعده فورمة الإدخال.zip رابط هذا التعليق شارك More sharing options...
klma7lwa قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 تفضل اخى الكريم طلبك Book1.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 أكتب هذا الكود Private Sub CommandButton1_Click() LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1) = TextBox1.Text End Sub رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 المعذرة اخي أرسلنا الرد تقريبا في نفس الوقت رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 25, 2012 الكاتب مشاركة قام بنشر ديسمبر 25, 2012 جزاكم الله خيرا ربنا يبارك فيكم رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 25, 2012 الكاتب مشاركة قام بنشر ديسمبر 25, 2012 أستاذ أبو حنين هي LR يعني ايه رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 (معدل) ليس شطر هاذين الحرفين بالذات فقط هو تعبير على آخر صف لا يحتوي على بيانات بمعنى تستطيع التعبير عن ذلك بأي كلمة او حرف تشاء تم تعديل ديسمبر 25, 2012 بواسطه أبو حنين رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 (معدل) تستطيع استبدال الكود السابق بالكود التالي : Private Sub CommandButton1_Click() Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = TextBox1.Text End Sub تم تعديل ديسمبر 25, 2012 بواسطه أبو حنين رابط هذا التعليق شارك More sharing options...
klma7lwa قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 المعذرة اخي أرسلنا الرد تقريبا في نفس الوقت اخى ابو حنين جعلنا الله وايكم سباقين فى فعل الخير هذا مل تعلمته منكم رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 25, 2012 الكاتب مشاركة قام بنشر ديسمبر 25, 2012 مش عايز يتنفذ الشيت اسمه العملاء والعمود اسمه o وفيه بيانات بالفعل عايزة يزود بعدها رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 غير أخي الكود كالتالي : Private Sub CommandButton1_Click() Sheets("العملاء").Cells(Cells(Rows.Count, 15).End(xlUp).Row + 1, 15) = TextBox1.Text End Sub حيث 15 هو رقم العمود O رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 25, 2012 الكاتب مشاركة قام بنشر ديسمبر 25, 2012 المشكلة إن اسم الشيت بالعربي ومش هينفع أغيره اعمل ايه رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 25, 2012 الكاتب مشاركة قام بنشر ديسمبر 25, 2012 لما بجرب مبيرضاش يعملها إلا لو غيرت لإسم شيت بإنجليزي رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 25, 2012 الكاتب مشاركة قام بنشر ديسمبر 25, 2012 هي المشكلة إنه مش قابل إن يكون اسم الشيت بالعربي وللأسف انا عامل ماكرو كتيير وعشان اغير اسم الشيت لازم أغير كل الأسماء في الكود وده صعب جدا أرجو المساعده رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 أرسل نسخة من الملف رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 25, 2012 الكاتب مشاركة قام بنشر ديسمبر 25, 2012 مرفق الملف Cash.rar رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 السلام عليكم ورحمة الله جرب اخي المرفق Cash.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر ديسمبر 25, 2012 مشاركة قام بنشر ديسمبر 25, 2012 السلام عليكم جرب الكود التالي : 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 رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 25, 2012 الكاتب مشاركة قام بنشر ديسمبر 25, 2012 تمام شغال كويس بس انا عايز أضيف الكود اللي موجود جوه زرار الترتيب عشان لما أضغط حفظ يحفظ الأسم ويرتب الأسماء بس لما نسخت الكود وجيت أجرب طلع خطأ عشان المفروض العواميد ديه هتبقي مخفيه أصلا مش هتبقي ظاهرة رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 25, 2012 الكاتب مشاركة قام بنشر ديسمبر 25, 2012 وعايز لو ان جيت اعمل حفظ من غير ما أكتب اسم عميل يطلعلي رساله يقولي لأزم أدخل اسم عميل لأني بيحفظ السطر ويدخل علي اللي بعده وفيه برده حاجه غريبه انه بعد ام يضيف الأسم بيزود سطر تاني في الجدول رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر ديسمبر 26, 2012 مشاركة قام بنشر ديسمبر 26, 2012 في الزر حفظ صع هذا الكود : 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 رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 26, 2012 الكاتب مشاركة قام بنشر ديسمبر 26, 2012 جميل جدا ربنا يباركلك ويجعله في ميزان حسناتك الكود شغال والحمد لله رابط هذا التعليق شارك More sharing options...
أحمد الصواف قام بنشر ديسمبر 26, 2012 الكاتب مشاركة قام بنشر ديسمبر 26, 2012 معلش أستاذ أبو حنين لو انا حبيت اعمل زرار تاني للحذف او التعديل في أسماء العملاء الكود يبقي ايه مع العلم إني عايز أخليه بمجرد ما أضغط على زرار حذف يشيل العميل ويحجم الجدول تاني على قد الأسماء اللي موجوده عشان ميبقاش في خلايا فاضية في list بتاع أسماء العملاء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.