محمد عبد الناصر

عايز انقل الصف كامل لو مكتوب في الخلية G رقم واحد ينقلها للشيت المسمى 1 لو مكتوب رقم 2 في العمود G ينقل الصف بالكامل للشيت المسمى 2 وينقل الصوره المدرجه في الصف حصل مشكلة كبيرة في شغلي بسبب ملف مشابه هذه صورة العامل مثلا انا رافع ملف مبسط

up

up

السلام عليكم محتاج كود ينقل اصفف مدرج بها صور شخصية للعمال الى شيت اخر بمعنى اذا كان في العمود G مكتوب رقم 1 يذهب نسخه من الصف الى الشيت رقم 1 اذا كان مكتوب 2 يذهب نسخة من الصف الى الشيت رقم 2 بالصور المدرجة في الخلية الملف المرفق يوضح ذلك ارجو المساعده شغلي متوقف على هذا الملف احتمال انفصل من العمل بسببه 1.xlsx

السلام عليكم في الملف المرفق اول شيت ( Beam TYP ) الخلية D11 لما بقف عليها بيظهر جنبها سهم مكتوب فيه ارقام عايز اضيف رقم 35 لو امكن ممكن شرح اضيف ارقام تانية ازاي وشكرا يا احلى منتدى RCC Design - Copy.xls

السلام عليكم الاكسيل عندي مش بقدر اعدل ع الصفحة زي الصورة المرفقة د ف اي ملف على جهازي حد عنده حل للمشكلة دي كلمة page setub مخفيه مش عارف ليه مره واحده كده

السلام عليكم ورحمة الله وبركاتة ،،، عايز كود اجمع الخليه A1 = A2+A3 بشرط لا يوجد شيت بنفس الناتج يعني لو الناتج 24 وفي شيت موجود اسمه 24 ميجمعش لو مفيش شيت 24 يجمع عادي شكرا اساتذتنا الكرام ،،،،،

السلام عليكم عايز امر ترحيل بيانات مكتوبه من الخليه A-H بحث ينقل اللي مكتوب في الشيت 1 الملف مرفق بيوضح انا عايز ايه xD.xlsx

الللللله ينور اي الشغل الجامد ده

السلام عليكم يا احلى منتدى عايز كود حذف اصفف اعتماداً على الخليه H يعني لو مش اي حاجه في الخلية من H4 ~ H10000 يحذف من الصف كامل لحد الخلية H لو مكتوب يسيبها زي ما هيا

شكراااااااااااااااااااااااااااااااااااااااااااااا لحضرتك جدااااااااااااااااااااااااااااااااااااااا

يا فندم انا جربت زي م حضرتك قولتلي هو حضرتك اكد مجربتش الملف انا كل اللي عايزه لو في الخليه اتش مكتوب تم الرد ياخد الصف كوبي يوديه للشيت 2 اسف لتعب حضرك معايا

upppppp

اتفضل الملف مرفق اهو فيميزان حسناتكم يارب md.rar

منا بعمل كده بس انا كتبتها تمام بدل تم الرد عشان مينفعش اكتب عربي في الكود لما ارفعه في الموقع ياريت لو حضرتك تعملهالي في ملف يبقى كتر الف خيرك انا دايخ عليها مش عارف المشكلة منين

السلام عليكم الكود ده كان شغال معايا بس بدل كلمة tmam كنت بكتب ارقام عايز اكتب لو يساوي تم الرد ينقل الاصفف Sub Move() Dim LR As Long, I As Long, X As Long LR = Sheets("Sheet1").Cells(Rows.Count, "G").End(xlUp).Row X = 5 Application.ScreenUpdating = False For I = 6 To LR If Cells(I, "G").Value = "tmam" Then Rows(I).Copy Sheets("Sheet2").Range("a" & X): X = X + 1 Next I Application.CutCopyMode = False Application.ScreenUpdating = True End Sub انا دايخ فيه من امبارح مش عارف فين المشكلة

uuppp

حضرتك انا هكتب صفوف كتييير عايزه يطبقها على كله وعايزه يشيل اللي مكتوب عليه تم الرد كت وينقله في الشيت 2جربت المرفق وزي م حضرتك قولتلي عملت الدنيا بتبوظ خالص

upppppppppp

up

معلش اسف لو بتعب حضرتك معايا انا عايزه ياخد الصف كامل لو مكتوب في الخلية H تم الرد ياخد الصف كامل قص ويودية في الشيت 2 لو حضرتك تعملهالي في الملف المرفق يبقىكتر الف خيرك

السلام عليكم ورحمة الله وبركاتة على احلى منتدى في الملف المرفق عايز امر لو مكتوب (تم الرد) ياخد الصف كامل قص ويوديه للشيت 2 md.rar

up up up up up up up

upppppppp

uuuuppppppppppp