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

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

وبعد تعديلات كثيره على كودك الاول وصلت لهذا الكود وعمل بنجاح

لا افهم ماذا يعني فالرجاء منك شرحه سطر سطر 

الرقم في الخليه e9 هل ممكن احذف السطر d9

للعلم هذا الكود يعمل بحالته هكذا فهل من اقتراح لتعديله 

Sub textx()

End Sub

بداية اشكرك جزيلا للمحاوله

ولكنه ليس المطلوب 

اريد كما بالملف الذي رفعته اليك وكما بالصورة التالية 

عند ادخال عدد الي الخليه 

ثم الضغط على الذر 

يتم تحديد ونسخ نطاق خلايا ضعف العدد المكتوب

في هذا الملف اذا ضغطت على الذر يقوم بنسخ الخلايا 

اريد ان يكون هناك شرط وهو قيمة الخليه D9

اذا كانت القيمة مثلا 4 عند الضغط على الذر يقوم يتحديد ونسخ الخلايا بداية من الخليه I12 والي عدد ضعف العدد المدخل في الخلية D9 سيكون في مثالنا هذا الي الخلية I19

هل وضحت الصورة 

Book1.xls

تفضل اخي  وشكرا للرد 

اتمني ان تكون وصلت للمطلوب 

Book1.xls

السلام عليكم ورحمة الله وبركاته

كل عام وانتم بخير

بمناسبة عيد الاضحي المبارك

هذه اول مشاركة لي بهذا المنتدي الرائع

ارجو مساعدتي ممن لدية الخبرة 

سؤالي هو

لديك خليه ما بها رقم يتم ادخاله يدويا 

المطلوب ماكرو او كود اخصصه لذر عند الضغط عليه يقوم بالتاكد ان الخليه التي بها رقم ليست فارغه هذه اولا

ثانيا يقوم بنسخ عدد من الخلايا يساوي ضعف هذا الرقم

مثال 

الخليه A1=4

اذا ينسخ النطاق C5:C13

النطاق المنسوخ ضعف الرقم الموجود

مع العلم ان بداية النسخ ثابته وهي الخليه C5 

فقط وليس اكثر وشكرا لكم

لو سمحتم في شي بخصوص هذا الامر 
واتمني الرد في اقرب وقت من سيادتكم

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

والافضل ربط العدد بالريجستري الخاص بالويندوز

فهل من حل لديكم
وشكرا لكم