مصطفى محمود مصطفى قام بنشر يناير 1, 2019 مشاركة قام بنشر يناير 1, 2019 السلام عليكم ورحمة الله وبركاته العمل للاستاذ سليم حاصبيا جزاه الله خيرا هل يمكن ان نضع زر لكود في ورقة وينفذ عمل الكود في ورقة اخرى لما نضغط على زر موجود في ورقة العمل الحالية يقوم هذا الكود بالتنفيذ والعمل في ورقة اخرى تحياتي لكم ووافر احترامي Fix_rand.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 1, 2019 مشاركة قام بنشر يناير 1, 2019 تعديل الماكرو 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 2 رابط هذا التعليق شارك More sharing options...
مصطفى محمود مصطفى قام بنشر يناير 1, 2019 الكاتب مشاركة قام بنشر يناير 1, 2019 الاستاذ سليم المبدع بارك الله لكم في علمكم وصحتكم وفقكم الله 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان