هل يمكن منع الكود من العمل في حال تحديد اكثر من ورقة عمل

[الـمـاتادور]

السلام عليكم

حدثت معي مشكلة حيث ان لدي كود يقوم بنسخ مجموعة من المعادلات للخلايا اللتي انتهيت من ضبط حسابات الزبائن فيها ولصقها كقيم ولكن بالخطأ امس كنت قد حددت عدة صفحات كمجموعة ولدى تطبيق الكود لم انتبه للتحديد فقام بالتطبيق على كل الصفحات المحددة 

هل يوجد اي فكرة لمنع الكود من العمل في حال تحديد اي صفحتين او اكثر مع بعض ؟؟؟؟؟؟؟؟

وشكرا

[احمدزمان]

‏السبت‏، 04‏ شعبان‏، 1441

 

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

بعد اذن اخي الكريم : احمد يوسف

 

لا مانع من المحاولة

 

اخي الماتادور

جرب إضافة هذا السطر اول الكود الذي تعمل عليه

مع وضع اسم الصفحة او الورقة بين علامات التنصيص ""

 

If ActiveSheet.Name <> "" Then Exit Sub

 

[سليم حاصبيا]

جرب هذا الكود

Sub Print_First_Sheet_In_Selections()
''''''''''''''''Replace  ".Select" By  ".PrintOut"  ''''''''''
ActiveWindow.SelectedSheets(1).Select

End Sub

 

[الـمـاتادور]

اعطاني الكود هذه الرسالة 
انا وضعت هذا السطر في بداية كودي 

ActiveWindow.SelectedSheets(1).PrintOut

[حسين مامون]

اخي الكريم

بعد اذن الاساتذة واثراء للموضوع 

يمكنك اللجوء الى طرق اخرى لمنع الكود من التنفيذ 

مثلا اضافة شرط اخر من غير الذي اشرت اليه  

فمثلا يمكن التحكم في الكود من خلال محتوى خلية معينة 

جرب جميع الطرق المتاحة 

 

[سليم حاصبيا]

الاكسل لم يتمكن من الطباعة لان الطايعة غير مثبتة عندك

قم اولاً يتعريف الطابعة ومن ثم تستطيع استعمالها

[سليم حاصبيا]

جرب هذا الملف    انه ينفذ الماكرو على الشيت التي تحتاره انت (في حال تحديد اكثر من شيت واحد)   بواسطة رسالة تطلب منك رقم الشيت الذي تريده

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

Option Explicit

Sub No_Error_In_Sheets()

  Dim ws As Worksheet, wb As Workbook
  Dim col As New Collection
  Dim i%, Inp_Box

  Set wb = ActiveWorkbook

For Each ws In ActiveWindow.SelectedSheets
 i = i + 1
 col.Add ws.Name, CStr(i)
Next ws
On Error Resume Next
If i > 1 Then
  Inp_Box = InputBox("You Have More than One Selected Sheets" & Chr(10) & _
       "Please Type The index Of the Sheet you need " & Chr(10) & _
       "Example: " & "1,2,3,etc...", 1)
   Sheets(col(Inp_Box)).Select
      If Err.Number > 0 Then
          MsgBox "you select Wrong number: " & """" & Inp_Box & """"
         On Error GoTo 0
         Exit Sub
      End If
End If
   On Error GoTo 0
 '++++++++++++++++++++++++++++++++
'Type here your macro
'Example
 ActiveSheet.Range("a1:a10") = 100
 '++++++++++++++++++++++++++++++
End Sub

الملف للتجربة

Run_macro.xlsm

[الـمـاتادور]

عاجز تماما عن الوصف وعن الشكر
ملك الكودات الاستاذ سليم