نايف - م قام بنشر يناير 2, 2016 قام بنشر يناير 2, 2016 جربت هذا الكود في برنامجي و لم ينجح نقل محتوى تكست بوكس لخلية في ورقة بالضغط على زر أمر لا أعرف السبب ممكن المساعدة azaz1.rar
ياسر خليل أبو البراء قام بنشر يناير 2, 2016 قام بنشر يناير 2, 2016 جرب السطر بهذا الشكل Sheets("nn").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row + 1) = TextBox1.Text
نايف - م قام بنشر يناير 2, 2016 الكاتب قام بنشر يناير 2, 2016 أستاذي الكريم شكرا للرد جربت الكود في الملف المرفق و كانت النتيجة تمام جربت الكود ببرنامجي و بنفس الشروط و لم ينجح و كان الجواب ممكن معرفة السبب شكرا أستاذي أعرف أنك ستطلب تحميل البرنامج هذا مستحيل كبير جدا
ياسر خليل أبو البراء قام بنشر يناير 2, 2016 قام بنشر يناير 2, 2016 طالما أنك لن تستطيع تحميل المرفق فما علينا إلا أن نقوم بسلسلة احتمالات .. أرجح أن المشكلة سببها أن هناك خلايا مدمجة ..لو كان فيه خلايا مدمجة قم بالغاء الدمج وجرب مرة أخرى ..!
نايف - م قام بنشر يناير 2, 2016 الكاتب قام بنشر يناير 2, 2016 ليس هناك خلايا مدمجة في مكان التنفيذ ( العمود B ) و هذه الصورة للتأكيد شو الأحتمال الثاني
ياسر خليل أبو البراء قام بنشر يناير 2, 2016 قام بنشر يناير 2, 2016 قم بحذف كافة الأوراق في المصنف بعد أخذ نسخة منه بالطبع ما عدا ورقة العمل المطلوب العمل عليها ، حتى تستطيع رفع الملف للإطلاع عليه .. حتى نستطيع موافاتك بالأمر
نايف - م قام بنشر يناير 2, 2016 الكاتب قام بنشر يناير 2, 2016 حجم الورقة مضغوط 2417 سأجرب رفعها للأسف لم يسمح
نايف - م قام بنشر يناير 2, 2016 الكاتب قام بنشر يناير 2, 2016 ملاحظة قد تفيد الكود النالي يعمل لكن يجب ان يكون المجال B2 يحوي على قيمة Sheets("BUY").Range("b1").End(xlDown).Offset(1, 0).Value = .List(.ListIndex, 0)
نايف - م قام بنشر يناير 2, 2016 الكاتب قام بنشر يناير 2, 2016 عنوان ؟؟؟؟؟ هل تقصد أن يكون فيها قيمة مثلا " تسلسل"
ياسر خليل أبو البراء قام بنشر يناير 2, 2016 قام بنشر يناير 2, 2016 19 دقائق مضت, نايف - م said: عنوان ؟؟؟؟؟ هل تقصد أن يكون فيها قيمة مثلا " تسلسل" نعم أخي الحبيب نايف ..اكتب اي قيمة نصية في الخلية (وجرب يا عنيا .. وشوف هيشتغل معاك 100 100 ولا الاحتمال دا ملوخيا)
نايف - م قام بنشر يناير 2, 2016 الكاتب قام بنشر يناير 2, 2016 طيب أخي الكريم جربت و ما مشي الحال طيب ملاحظة حذفت من كودك +1 Sheets("BUY").Range("B" & Cells(Rows.Count, 1).End(xlDown).Row+1) = ListBox1.Column(0) Sheets("BUY").Range("B" & Cells(Rows.Count, 1).End(xlDown).Row) = ListBox1.Column(0) فنزل المطلوب في آخر خلية من العمود B بينفع في شيء
نايف - م قام بنشر يناير 2, 2016 الكاتب قام بنشر يناير 2, 2016 غيرتها و ما مشي الحال طيب الرقم 1 في الكتابة التالية على شو بيدل Cells(Rows.Count, 1 يعني شو معناه
ياسر خليل أبو البراء قام بنشر يناير 2, 2016 قام بنشر يناير 2, 2016 الرقم واحد يشير إلى رقم العمود المطلوب العمل عليه وبصراحة أنا تايه معاك ومش عارف إنت عايز ايه .. لو كان المطلوب على العمود الثاني قم باستبدال الرقم 1 بالرقم 2 ليدل على العمود B ..
نايف - م قام بنشر يناير 2, 2016 الكاتب قام بنشر يناير 2, 2016 طيب وصلنا للحل شكرا أنا أعمل على العمود B و أرسلت لك صورة و هي موجودة بالأعلى تشير للعمود B على أنه عمود العمل و لم تنبهني الى تغيير الرقم على كل آسف عذبتك معي بدلت للرقم 2 و مشي الحال شكرا
ياسر خليل أبو البراء قام بنشر يناير 2, 2016 قام بنشر يناير 2, 2016 الحمد لله أن تم المطلوب على خير أخي الكريم نايف ومفيش عذاب ولا حاجة ..أنا بهزر معاك
نايف - م قام بنشر يناير 3, 2016 الكاتب قام بنشر يناير 3, 2016 يا أستاذ يا عظيم سؤال بس للفهم غيرت الرقم ل 2 و مشي الحال لأني مثل ما قلت حضرتك بيشير هذا الرقم ل رقم العمود اللي منشتغل عليه طيب من باب التعلم غيرتو للرقم 4 و تخيل أنو كمان مشي الحال طيب سؤال للفهم العمود 2 و العمود 4 بالورقة هنن بس ما فيهم صيغ و باقي الأعمدة فيهم صيغ - ممكن يكون ألو علاقة هالكلام أو شو المعنى اذا مليت من أسئلتي - مافي مشكلة شكرا ألك
ياسر خليل أبو البراء قام بنشر يناير 3, 2016 قام بنشر يناير 3, 2016 بالتأكيد لم أمل من الأسئلة أخي الكريم نايف وإلا لكنت قد هجرت المنتدى من سنين بالتأكيد كلامك مضبوط الأعمدة التي بها صيغ ومعادلات تؤثر على كونك تريد آخر خلية بها بيانات ، قالمعادلات توجد بالخلية حتى لو كانت الخلية ناتج المعادلة فارغة ..
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.