hani_2007

والله احرجتموني بكرمكم الف شكر لكل من ساهم في هذا الموضوع

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

السلام عليكم و رحمة الله اخواني المطلوب عمل زر امر لكود برمجي للبحث في العامود A واذا كان الرقم غير موجود في القائمه للعامود A يتم ادراج هذا الرقم الغيير موجود في العامود C شاكر مجهوداتكم المشهوده Nr_not_in_the_list.rar

هذا لأنني لم أضع بالحسبان تلك العلامات الخاصة التي بالملف "علامات السالب" ------ ------ ---- -- وأيضا عدلت ترتيب السطرين التاليين واستبدلت كلمة "end" بكلمة " ## " Sheets(3).Cells(i, j - 1).ClearContents Sheets(3).Cells(i, x + 1).Value = " ## " الكود بعد التعديل أضفت خطوة لاستبدال أي علامة سالب بلاشيء Cells.Replace What:="-", Replacement:="" Sub copy_2_end() LstC = [IV1].End(xlToLeft).Column LstR = [A65530].End(xlUp).Row Range("A1", [A1].Offset(LstR - 1, LstC - 1)).Select i = 1: j = 1: f_end = 0 Cells.Replace What:="-", Replacement:="" For Each ce In Selection If f_end = 1 Then GoTo 10 5 Sheets(3).Cells(i, j).Value = ce.Value j = j + 1 If ce.Value = "end" Then For x = j - 2 To 1 Step -1 If Sheets(3).Cells(i, x) <> "" Or Left(Sheets(3).Cells(i, x), 1) <> "-" Then Sheets(3).Cells(i, j - 1).ClearContents Sheets(3).Cells(i, x + 1).Value = " ## " Exit For End If Next x i = i + 1 j = 1 f_end = 1 End If GoTo 20 10 If ce.Value <> "" Then f_end = 0: GoTo 5 20 Next ce [A1].Select End Sub بارك الله فيك و جعله في ميزان حسناتك و جزاك الله عنا كل خير

تسلم يمينك اخي طارق و الله تعجز الكلامات عن شكرك الاخ طارق بعد تطبيق المثال على الملف الدي اريده اعطاني هذا الخطا Sheets(3).Cells(i, j).Value = ce.Value ماهي المشكله الانتقال الى خليه في حالة توفر شرط1.rar

تسلم يمينك اخي طارق و الله تعجز الكلامات عن شكرك

السلام عليكم و رحمة الله و بركاته اخواني ارجوا منكم المساعدة في طلبي هذا وهو: المطلوب هو طريقة ادراج البيانات التي في كل خليه في ورقة2 على شكل افقي جنب بعض و عند الوصول الي كلمة end يذهب الى السطر التالي و ياخذ البيانات من السطر هذا و يكمل ادخلها افقي بجنب بعض حتى يصل الى كلمة end ثم يكرر هذا الاجراء حتى نهاية الورقه ليصبح الناتج مثل الذي في ورقة2 الانتقال الى خليه في حالة توفر شرط.rar

اشكرك شكرا جزيلا بس ممكن اضيف طلب ثاني معليش سامحوني اذا زودها - ممكن اذا كانت اكبر من حجم الورقة هل اقدر اخليها بحجم الورقه - اذا كان اقدر اخلي راس الطباعة يحتوي على خانات ثابته مثلا اسماء القوائم و تحتها يبدا بطباعة الخلايا ثم في نهاية الصفحة يطبع خانات التقفيل سارفق ملف بالمطلب و ارجوا المعذره مره اخرى مع فائق شكري و احترامي PRINT2.rar

السلام عليكم اعزائي استفساري هو عن كيفية طباعة خلايا معينه وليس كل المستند في ورقه واحده ولقد ارفقت ملف لشرح المطلوب وشكرا لكم PRINT1.rar

شكرا جزيلا والله افادتني كثير

ما شاء الله تبارك الله عليك يا اخ خبور اللهم سدد خطاك وكل عام و انتم بخير

الاخ مصطفى شكرا جزيلا على المشاركة ولكن هناك خطا في هذه المعادلة INDEX(B3:B10,COUNTA(B3:B10)) عموما الاخ خبور ماقصر و جاب الغايبه وكلكم ان شاء الله اخوان وحبايب

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

السلام عليكم الاخوه الاعزاأ ارجو منكم ناتج البحث بهذه الطريقة الموجوده يالملف المرفق وشكر لكم SER.rar

الاستاذ طارق الف شكر فعلا هذا هو طلبي واعجبتني التعديلات فعلا تعجز الكلمات عن شكركم اخوكم هاني