تنفيد الكود من ورقة اخرى

[مصطفى محمود مصطفى]

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

العمل للاستاذ سليم حاصبيا جزاه الله خيرا

هل يمكن ان نضع زر لكود في ورقة وينفذ عمل الكود في ورقة اخرى 

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

تحياتي لكم ووافر احترامي

Fix_rand.xlsm

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

تعديل الماكرو

Option Explicit
Sub Ashwaii()
Application.ScreenUpdating = False
With Sheets("Salim")
  .Select
  Dim my_rg As Range
  Dim My_min%, My_max%: My_min = .[c1]: My_max = .[d1]
  Dim lra%: lra = .Cells(Rows.Count, 1).End(3).Row
  If lra < 2 Then lra = 2
  .Range("a2:a" & lra).ClearContents
  Dim Nb%: Nb = My_max - My_min + 1
  .Range("a2").FormulaArray = _
  "=IF(ROWS($A$1:A1)>$D$1-$C$1+1,"""",LARGE((COUNTIF($A$1:A1,ROW(INDIRECT($C$1&"":""&$D$1)))=0)*ROW(INDIRECT($C$1&"":""&$D$1)),RANDBETWEEN(1,SUM(--(COUNTIF($A$1:A1,ROW(INDIRECT($C$1&"":""&$D$1)))=0)))))"
  .Range("a2").AutoFill Destination:=Range("a2:a" & Nb + 1)
  .Range("a2:a" & Nb + 1).Value = Range("a2:a" & Nb + 1).Value
End With
Sheets("data").Select
Application.ScreenUpdating = True
End Sub

 

[مصطفى محمود مصطفى]

الاستاذ سليم المبدع

بارك الله لكم في علمكم وصحتكم

وفقكم الله