استاذ ياسر  بارك الله فيك

اسأل الله ان يحفظك ويرعاك ويحقق مبتغاك ويزيدك من الخير والطاعات ويرزقك الرفقه الصالحه

ويحميك من كل مكروه اسأل الله ان لايجعل في قلبك حاجة الا قضاها ولا هما الا فرجه ولا ضيقا الا ابدله بسعاده لاتشقين بعدها ابدا

 

اخي ياسر والله لا اعرف كيف اشرح لك  اكثير



ولكن الرجو ان تسهيل عليا الأمور



ولكن اريد تطبيق الطريقة كما وضحت لك في الفيديو في المشاركة رقم 4

اما في تعديل الكودهده هي الطريقة التي قومت بي تعديل بها الكود هل هيا صحيحة ام لا

المشكلة لما اكتب قيمة .f10. يتم تطبيق كتابة رقم 1 في العمود k من 10 وحتى  125

وهدا مالا اريدوه اريد من f10 الىf40 ومن f41 الى f70 يتم تكرار على اربع

 شهيد الملف





لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب





Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$F$10" Then

        If Target.Value <> "" Then Range("K10:K39").Value = 1 Else Range("K10:K39").Value = ""

           If Target.Value <> "" Then Range("K40:K76").Value = 1 Else Range("K40:K76").Value = ""

              If Target.Value <> "" Then Range("K77:K111").Value = 1 Else Range("K77:K111").Value = ""

                If Target.Value <> "" Then Range("K112:K130").Value = 1 Else Range("K112:K130").Value = ""

    End If

    

    'يمكنك تكرار نفس الأسطر مع تغيير عنوان الخلية الهدف والنطاق المطلوب

End Sub





 

 اخي ياسر م من الفجر وانا احاول

ولم اتوصل بي اي ناتجة

اخي لوسمحت ان تقوم انت بدللأ مني بدلك جزاك الله خيرا

 

 

جزاك الله خيرا يا اخي العزيز

 



من المفترض على الكود ان يشتغل على 4 اسطر وليس سطروحد

كما وضحت في الفيديو الأول الأخ  ياسر

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

اخي الحبيب ياسر

 عمل رائع شكرا لك على المجهود عمل رئع

جزاك الله خيرا يا اخي العزيز

ولكن ظهر لي الخطأ عندا تكرار الأسطر والله اخي لا أدري ما المشكلة ام طريقة في تكرار الأسطر خطيئة

 
اخي الكريم ياسر

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

وجزاك الله خيرا

لوسحمت اخي اريدكود يقوم بتنفيد متل هده الطريقة التي تظهر في الفيديو في المرافيق

اخي لم اجد سوى هذه المواقع لرفع



 










لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب



 

 اخي ياسر

كل ما في طلبي أرجوا أن أجد لديكم الجواب

اريد لما اكتب في الخلية .f10. يتم ادراج قيمة رقم 1 في عمود . k.من سطر f10 الى f 39 ومن سطرf40 الى سطر f76 ومن سطر f77 الى سطر  f112



عندما تكون الخلية في عمود f فارغة يكون في عمود k رقم صفر

 
السلام عليكم ورحمة الله وبركاته
اسف اخي على  كثرة الأسئلة

فعلاً  اخي لقد أدهشتني الطريقة التي استطعت من خلالها

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

حاولت  طتبق طريقة  ولكن لقلت خبراتي لم استطيع ممكن لوسمحت  شرح دلك مرئي اوتصوير لقد انتفخ راسي من المحاولة ولم استطع اريد شرح طريقة بشكل اوضح

جزاكم الله خير الجزاء وجعله في ميزان حسناتك

 اخي الكريم لوسمحت اريد بأن تبين لي الطريقة كيفية ضبط حجم الخط التى قام بيها الأخ مهند محسين

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

اخي ياسر

اشكر لك  على اهتمامك فجزاك الله خير

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


بالضبط هو المطلوب أخي الكريم جزاك الله خيرا





لوسمحت بأن تبين لي الطريقة ضيط تكبير حجم الخط. في طباعة

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

جزاكم الله خيرا ونفع الله بكم الاسلام والمسلمين