توكل

من مشاركة أبي حنين يمكن لهذا الكود أن يعطينا الجواب Sub odd() Dim i As Integer, x As Integer x = 1 For i = 1 To 16 Step 2 Cells(x, 1) = WorksheetFunction.odd(i) x = x + 1 Next i End Sub طبعاً محاولة متواضعة من تلميذ مازال يحبو في عالم vba

تحياتي أستاذ جلال بعد إذن الأستاذ الزباري قد يكون المثال المرفق " محاولة متواضعة" هو المطلوب Dynamic Chart.rar

أعتقد ان الكود التالي سيفي بالغرض Sub odd() Dim i As Integer For i = 1 To 16 Cells(i, 1) = i i = i + 1 Next i End Sub جعل الله هذا العلم في صحائف أستاذنا الزباري وفي صحائف كل من علمنا في هذا المنتدي الرائع

ما شاء الله عليك جزيت خيراً أنا متابع معك خطوة بخطوة

جزاك الله خيراً وأفاض عليك من فتوح العلم المزيد

الإخوة الأحبة أحاول أن أكتب معادلة تنتج تواريخ الأيام الزوجية فكانت هذه المعادلة (=IF(AND(DAY(EOMONTH(A5;0))=31;DAY(A5)<>31);ODD(A5+1);EVEN(A5+1))) كما في المثال المرفق ولكن في نهاية تاريخ الشهر يحصل خطأ فهل يمكن تصحيح المعادلة إذا تكرمتم تواريخ الأيام الزوجية.rar

هنا سيكتب الرقم 11 حتماً جزاك الله خيرا وزادك علماً بانتظار المزيد

احسن الله إليك وزادك علما

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

ما شاء الله زادكم الله من فضله كل يوم نتعلم شيئاً جديداً

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

يمكن تطبيق الكود التالي للكتابة في ثلاثة أعمدة طبعاً هناك حلول أفضل ولكن كل حسب علمه Dim i As Integer For i = 1 To 100 Cells(i, 1).Value = i Next i For i = 1 To 100 Cells(i, 2).Value = i Next i For i = 1 To 100 Cells(i, 3).Value = i Next i

تفضل أخي الكريم تم عمل مثال بسيط بمجرد أن تضغط زر الماكرو في المثال سوف يكتب من 1 - 100 في الخلية A1 إلى A100 LOOP.rar

جزاك الله خيراً فعلاً حقق المطلوب ولكن هل بالامكان الوقوف على آخر خلية فارغة ؟

السلام عليكم ورحمة الله وبركاته إخوتي الأحبة هل بالإمكان إختصار هذا الكود عفوا لا أدري كيف يمكن تعريب الرسالة والتي هي: لايمكن الطباعة لوجود خانات فارغة Private Sub Workbook_BeforePrint(Cancel As Boolean) If Range("L9").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L9").Select End If If Range("L10").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L10").Select End If If Range("L11").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L11").Select End If If Range("L12").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L12").Select End If If Range("L13").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L13").Select End If If Range("L14").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L14").Select End If If Range("L15").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L15").Select End If If Range("L16").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L16").Select End If If Range("L17").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L17").Select End If If Range("L18").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L18").Select End If If Range("L19").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("L19").Select End If If Range("I28").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("I28").Select End If If Range("I29").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("I29").Select End If If Range("I30").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("I30").Select End If If Range("I31").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("I31").Select End If If Range("I32").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("I32").Select End If If Range("I33").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("I33").Select End If If Range("I34").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("I34").Select End If If Range("I36").Value = "" Then MsgBox "ÚÐÑÇ áä ÊÊã ÇáØÈÇÚÉ áæÌæÏ ÎÇäÇÊ ÝÇÑÛÉ íÌÈ Ãä ÊÚÈÃ" Cancel = True Range("I36").Select Else ActiveWindow.SelectedSheets.PrintOut Copies:=1 ', Preview:=True End If End Sub

أضف هذا الشرط في Data Validation

ما شاء الله جزاكم الله كل خير على إثرائكم الموضوع

=CHOOSE(LEFT($D2,1),"CEN","WST","EST","NOR",,,"SOT") إستدراك بسيط أخي سليم. القيمة الخامسة لا تظهر وتعطي قيمة خطأ! والحل يكون كالتالي =CHOOSE(LEFT($D2,1),"CEN","WST","EST","NOR",,,"SOT")

جميل أخي سليم شكراً جزيلاً ، مختصر أكثر من دالة الـ IF. ربما بعض الإخوة لديه حل آخر لإثراء الموضوع.

الإخوة الأعزاء السلام عليكم ورحمة الله تعالى وبركاته لدي معادلة شرطية IF معLEFT في العمود C لكتابة المنطقة بناء على أرقام الفروع، الرجاء التكرم بالإفادة إن كانت هناك طريقة أبسط لإعطاء نفس النتيجة بالمعادلات مع الشكر والتقدير. branches.rar

الأستاذ محمد الريفي أنا جربت دالة TEXTJOIN فعلاً جمعت الخلايا وتخطت الفراغات

الأخ فراس/ جرب المرفق وهو تكملة لملف الأستاذ سليم عله يكون المطلوب تكرار الخلايا مع تجاوز الخلايا الرقمية.rar

الأستاذ محمد الريفي دائماً تمتعنا بشيء جديد، زادك الله علماً ومعرفة، وجزاك الله خير الجزاء

جزاك الله خيراً وأحسن إليك

جزاك الله خيراً هو المطلوب أمر بسط أخي الصقر : في صفحة Post أريد الإحتفاظ بالبيانات يعني الكود يعود هنا بلصق البيانات الجديدة فوق البيانات القديمة وأنا أريد أن يلصق البيانات الجديدة تحت القديمة مع الشكر الجزيل