Darmear

السلام عليكم أهل المنتدى الكرام بفرض لديك ملف اكسل يحتوي علي عدد من الشيتات واخترت شيت رقم 1 هل من طريقه لعرض الشيتات حسب رغبتك داخل شيت واحد بمعني عمل ذر يخصص ماكرو يكرر فتح عدد شيتات بناء علي قيمه الخليه مثلا لو ادخلت في الخليه رقم 5 فانه يفتح شيت رقم 1 لعدد 5 مرات في نفس شاشه العرض وشكرا لكم

If you want to paste some cells value in autocad whats the formula should be as a example ---------------------------------------- Dim acApp As Object, x, y Range("F13:F22").Select Selection.Copy Set ExcelObj = GetObject(, "Excel.Application") Set acadobj = GetObject(, "AutoCAD.Application") ExcelObj.WindowState = xlMinimized acadobj.WindowState = vbMaximizedFocus acadobj.activedocument.sendcommand "_paste" & Chr(13) End Sub ----------------------------------------------- this not working , i donot know why please , help me

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير بمناسبة عيد الاضحي المبارك هذه ثان مشاركة لي بهذا المنتدي الرائع ارجو مساعدتي ممن لدية الخبرة سؤالي هو لقد فتحت ملف اوتوكاد وملف اكسل بالترتيب ولديك خلايا اذا تم نسخها ولصقها في الاوتوكاد يقوم برسم مجموعه خطوط المطلوب ماكرو او كود اخصصه لذر عند الضغط عليه يقوم بنسخ الخلايا ولصقها في الاوتوكاد جربت هذا الامر وما ابدي نفعا Sub Macro1() Range("F13:F22").Select Selection.Copy Set ExcelObj = GetObject(, "Excel.Application") Set acadobj = GetObject(, "AutoCAD.Application") ExcelObj.WindowState = xlMinimized acadobj.WindowState = vbMaximizedFocus acadobj.sendcommand "_paste" ' الخطا فقط في هذا السطر او هذه العملية End Sub مرفق الملف وبه الكود اتمني ان اجد لديكم حلا فقط وليس اكثر وشكرا لكم مقدما book.xls

شكرا جزيلا لك فعلا انك رائع والنتيجه كما اريدها بالظبط تعبت حضرتك معايا جدا لا اعرف ماذا اقول سوي ذادك الله علما وبارك لك فيه كنت اتمني ان افهم هذه المعادله وماذا تقول ان كان لديك فيديو او شرح الرجاء ارفاقه لي غير ذلك لا ارجو من الله لك سوي التوفيق وشكرا جزيلا

للاسف هناك خطأ لا اعرف مصدره اليك الملف تاكد بنفسك Book_Salim2 (1).xls

رائع تسلم ايدك وشكرا جزيلا جزيل الشكر لحضرتك كده اكتملت الصورة تمام

لم اخطىء ابدا في كلمة انك لعبقري ادهشتني جدا النتيجه فعلا انك رائع شكرا جزيلا لك هل من الممكن ان يختلف الترتيب قليلا ليكون العمود الاول ثم الثاني 1 2 3 4 الخ a b c d الخ لقد تم تعديل الرد

حتي لا ازعجك فلنرجع للكود الاول فيكفيني هذا اليوم وكويس جدا اني وصلت لهذه المرحله عسي ان ابحث جيدا على النت واجد ما اريد Sub textx() Dim counnt% counnt = IIf(Not IsNumeric(Range("e9")) _ Or Range("e9") <= 0, 8, Range("e9")) Range("i12").Resize(counnt, 1).Select Selection.Copy End Sub بالنسبه لهذا الكود يعمل بروعه لا مثيل لها فما هو الشرح لهذه المعادله وشكرا جزيلا لحضرتك

شكرا جزيلا لك واقدر تعبك معي جدا واعرف اني ازعجك بكلامي ولكن الامر هام جدا جدا لي ولا افهم كيفيه عمله جيدا افتح حضرتك هذا الملف واضغط على الذر فلاحظ ما سيحدث فهو بالظبط ما اريده ولكن لا اريده ان يلصقه فقط اريده ان يحدده وينسخه فقط ليس اكثر Book2.xls ولا اريده عن طريق inputbox فقد جربته وعدلت عليه لاعطي لك هذا الكود

اتمني ان تري الفيديو المرفق

جربته وكانت النتيجه جميله ولكن لا يتضح انك تفهمني جيدا عندما جربته قام بنسخ الخلايا التي اريدها تمام ولكن لماذا لصقها لا اريده ان يلصقها بل الصقها انا يدويا اي تكون مخزنه بالذاكرة ثانيا هناك خلية فارغه بين النسخين كما بالصورة !!! لماذا حدث ذلك Sub Macro3() Dim Range1 As Range, Range2 As Range, Rng As Range Dim rowIndex As Integer Set Range1 = Range("h7:i16") Set Range2 = Range("k7") rowIndex = 0 Application.ScreenUpdating = False For Each Rng In Range1.Rows Rng.Copy Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True rowIndex = rowIndex + Rng.Columns.Count Next Application.CutCopyMode = False Application.ScreenUpdating = True End Sub ما رايك يهذا الكود لكن به مشكله واحده لا اريده ان يلصق لا اريده ان يعمل paste اريده فقط ان ينسخ بالتنسيق المطلوب اي نسخ العمودين فوق بعض تحديد ونسخ فقط وانا اعمل لصق يدويا في اي مكان اريده

شكرا لاهتمامك وانا منتظر ردك جدا ولا افعل اي شي الا انتظارك في هذا الملف اريد عند الضغط علي كلمة نسخ يحدث الاتي يتم نسخ البيانات الملونه وعندما اضغط كلك يمين والصقها يدويا تكون النتيجه كما في الشيت الثاني فهمتني انا اريد فقط نسخ اما اللصق فانا افعله يدويا في اي مكان اريده Book2.xls

اتمني الا اكون ازعجتك كثيرا بخبرتك نستفيد هل من الممكن نسخ عمودين فوق بعض عند اللصق مثال الملف مرفق عند الضفط على ذر نسخ ينسخ عمود واحد فقط اريده ان ينسخ العمودين فوق بعض ويظهر عند اللصق في مكان اخر بنفس الترتيب كما في المثال المرفق اتمني ان تكون فهمتني Book2.xls نفس الطريقه التي بالفيديو ولكن اريدها بماكرو او كود ليتم اضافتها لذر عند الضغط عليه يقوم بهذه المهمه شكرا جزيلا لحضرتك

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

هذا هو الملف المطلوب ولكن بعد ان تتصفح الملف هل من كود ابسط يمكن فهمه وحفظة بسهوله Book1.xls