أكاديمية الصقر للتدريب

اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا




أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .

Preview

الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :mahmoud ayad
عدد النتائج (154) نتيجة
01-06-2021 01:34 مساء
icon مشكله ترحيل | الكاتب :mahmoud ayad |المنتدى: اكسيل اسئله واجابات
 
استاذ ياسر اسف معلش طلب بسيط انا لما باجي ارحل تاني بيرحلي ع نفس الخلايا ... المفروض يرحل بعد اخر خليه
01-06-2021 12:55 مساء
icon مشكله ترحيل | الكاتب :mahmoud ayad |المنتدى: اكسيل اسئله واجابات
 اولا تحياتي لاخي الكريم استاذ ياسر خليل

اللهم زد ف علمك ورزقك وبارك لك ف نفسك واهلك ومالك بقدر ما تتفضل به علينا اخي العزيز

كود اكثر من رائع انت بتعمل كدا ازاي انا بجد عايز اتعلم الدوال دي بس كل محاولاتي تفشل ف تعلمها

او ان عقلي لا يستوعبها .... 

اتمني دروس اون لاين ف كيفيه عمل مثل هذه الدوال 

اشكرك
24-05-2021 02:52 مساء
icon طباعه اعمده وصفوف يتم تحديدها | الكاتب :mahmoud ayad |المنتدى: اكسيل اسئله واجابات
 كود روعه من استاذ ابو الدهب يا لذيذ يا رايق بس بعد اذنك زودت حتتين بحيث يعملي PRINTPRVIEW قبل الطباعه
Sub abodahab_print()
Dim l As Long
Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual

    With ActiveSheet
        .Columns("D:G").EntireColumn.Hidden = True
        .Columns("O:Q").EntireColumn.Hidden = True
        lr = .Cells(Rows.Count, 2).End(xlUp).Row
        
            .Range("b6:r" & lr).Select
            .PageSetup.PrintArea = "$b$6:$r" & lr
            .PageSetup.CenterHorizontally = True
            .PageSetup.CenterVertically = False
            .PageSetup.Orientation = xlLandscape
            .PrintPreview
        
       .Columns("D:G").EntireColumn.Hidden = False
        .Columns("O:Q").EntireColumn.Hidden = False
    End With
Application.ScreenUpdating = True
   Application.DisplayAlerts = True
    Application.EnableEvents = True
       Application.Calculation = xlCalculationAutomatic
End Sub
 
Sub abodahab_print() Dim l As Long Application.ScreenUpdating = False     Application.Displaya l e r ts = False     Application.EnableEvents = False     Application.Calculation = xlCalculationManual     With ActiveSheet         .Columns("D:G").EntireColumn.Hidden = True         .Columns("O:Q").EntireColumn.Hidden = True         lr = .Cells(Rows.Count, 2).End(xlUp).Row                      .Range("b6:r" & lr).Select             .PageSetup.PrintArea = "$b$6:$r" & lr             .PageSetup.CenterHorizontally = True             .PageSetup.CenterVertically = False             .PageSetup.Orientation = xlLandscape             .PrintPreview                 .Columns("D:G").EntireColumn.Hidden = False         .Columns("O:Q").EntireColumn.Hidden = False     End With Application.ScreenUpdating = True    Application.Displaya l e r ts = True     Application.EnableEvents = True        Application.Calculation = xlCalculationAutomatic End Sub
 
15-04-2021 07:20 صباحا
icon مساعده في مؤثرات شهرية | الكاتب :mahmoud ayad |المنتدى: اكسيل اسئله واجابات
 يا سلام عليك يا استاذ salim يا رائع روعه الكود والفكره لقد اعجبتني حقا

تسلم ايدك جزاك الله كل خير
14-04-2021 01:43 مساء
icon مساعده في مؤثرات شهرية | الكاتب :mahmoud ayad |المنتدى: اكسيل اسئله واجابات
 Mjk5NzI2MQ585811 Mjk2MjAxMQ777722لاحظ حضرتك يا استاذ سليم المظلل باللون الاخضر يوجد تواريخ لشهر فبراير ... فمن المفترض ف صفحه المؤثرات عند اختيار من يوم 1-2-2021 الي 28-2-2021 يظهر لي مؤثرات شهر فبراير 
ولكن هنا لم يظهر حيث اجد حضرتك رابط الترحيل بتاريخ اول خليه ف صفحه data لو تساوي الخليه d4 ف صفحه slim
14-04-2021 07:46 صباحا
icon مساعده في مؤثرات شهرية | الكاتب :mahmoud ayad |المنتدى: اكسيل اسئله واجابات
 يعني حضرتك اكتب شهر فبراير واضغط run مش هيظهر اي نتائج ....





13-04-2021 01:37 مساء
icon رمضان كريم | الكاتب :mahmoud ayad |المنتدى: المنتدى العام
 كل رمضان وكل المؤمنين والمسلمين بألف صحه وبخير

اللهم أهله علينا وعلي أمه محمد بالخير واليمن والبركات
13-04-2021 12:16 مساء
icon مساعده في مؤثرات شهرية | الكاتب :mahmoud ayad |المنتدى: اكسيل اسئله واجابات
 اشكرك استاذ سليم  كود رائع ولكن هناك بعض الملاحظات
حضرتك رابط عمليه الترحيل لو التاريخ ف صفحه slim بتساوي اول تاريخ ف data
بمعني انا جيت اشوف شهر فبراير لم يحضر اي نتائج
ثانيا انا عايز بين تاريخين يعني من تاريخ ... الي تاريخ .... فيجلب المؤثرات اللي بين التاريخين دول
13-04-2021 08:23 صباحا
icon مساعده في مؤثرات شهرية | الكاتب :mahmoud ayad |المنتدى: اكسيل اسئله واجابات
 السلام عليكم 
رمضان كريم عليكم الحمدلله الذي ابقي فينا ارواحنا لصيامه وقيامه اللهم اهله علينا اعواما واعوام
اخواتي الكرام اعلم ان الجميع مشغول ولكن اريد حل عن طريق ال vba اذا تكرمتم
ولكم جزيل الشكر
05-04-2021 08:11 صباحا
icon مساعده في مؤثرات شهرية | الكاتب :mahmoud ayad |المنتدى: اكسيل اسئله واجابات
 لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
تم عمل المطلوب باستخدام معادلات index & match للاستاذ حسام خطاب
ولكن هل يوجد حل باستخدام vba لكي يكون الشيت اقل في الحجم 
25-03-2021 02:48 مساء
icon مراقبه اقساط | الكاتب :mahmoud ayad |المنتدى: اكسيل شروحات ودروس
 جزاك الله كل خيرا استاذ علي ... حضرتك احنا بنتعلم منك ومن الاساتذه الموجودين هنا 
فكره شيت الاستاذ الصقر رائعه بصراحه وانا استفدت منها 
ربنا يجعلها ف ميزان حسناته اولا ... 
25-03-2021 08:08 صباحا
icon كود لترحيل البيانات لاعمدة مختلفة الترتيب | الكاتب :mahmoud ayad |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: salim
كنت قد وضعت موضوعاً جول الــServer لهذا المنتدي و انه في أغلب الأحيان 70% تظهر هذه العبارة على الــBrowser
This site can’t be reached  والان النسبة اصبحت 90%
ولاحياة لمن تنادي   اي لم يرد على تساؤلاتي من المسؤولين عن الموقع
لهذا اذا استمر هذا الوضع سأقوم (آسفاً) بتعليق عضويتي في الموقع

الكود من جديد (الصفحات الباقية ليست محذوفة بل تم اخفاءها
لمراقبة عمل الكود)

Sub My_Data()

Dim A, D    As Worksheet
Dim RD%, RA%, I%, K%
Dim Ar_A(), Ar_D()
Set A = Sheets("Atten")
Set D = Sheets("Daily ENT")
RD = D.Range("D7").Resize(500).Find("", LookIn:=xlValues).Row - 1
RA = A.Cells(Rows.Count, "D").End(3).Row + 1
If RA < 7 Then RA = 7
'-----------------------------------------------------
 Ar_A = Array("D", "E")
 Ar_D = Array("D", "C")

For K = 7 To RD
   For I = 0 To 1
      A.Cells(RA, Ar_A(I)) = _
      D.Cells(K, Ar_D(I))
   Next I
     A.Cells(RA, I + 4).Resize(, 7).Value = _
   D.Cells(K, "F").Resize(, 7).Value
 RA = RA + 1
Next K
End Sub

 


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

الصفحة 1 من 13 < 1 2 3 4 13 > الأخيرة »





الساعة الآن 02:43 صباحا

أعلن هنا
أعلن هنا
أعلن هنا