تطوير كود الاستاذ ياسر خليل

[عادل ابوزيد]

اساتذتى الكرام 

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

http://www.officena.net/ib/index.php?showtopic=57191

وقمت بحمد الله بتطوير الكود الخاص بالاستاذ الكبير النشيط جدا ياسر خليل ليعمل الكود على شرط وعلى شرطين وعلى 3 شروط وذلك بالمرفق

المطلوب :

ان يتم وضع الشروط فى check box ومن خلال الشروط المحدده يتم تنفيذ الكود

وهذا تطوير اخر فكرت فيه ولكنه اعلى من قدراتى

دمتم فى امان  الله

 

قائمة بالاسماء من عمودين بشيتين فى عمود واحد بشيت مختلف.rar

[محمد لطفى]

السلام عليكم

الفكرة جديرة بالاحترام

وجزاك الله خيرا والى الامام دائما

[عادل ابوزيد]

الاستاذ محمد لطفى

اشكرك من اعماق قلبى على التشجيع

دمتم فى امان الله وعزه

[ibn_egypt]

أخى الفاضل أ.عادل

 

دائما افكارك مبدعة، الموضوع بسيط ان شاء الله من قائمة المطور Developer قم بإدراج Check Box في الشيت ... تمام واضغط عليه Right-Click واختار تعيين ماكرو Assign Macro .. اختار الماكرو الذي تريده ... ثم اذهب وعدل الماكرو باضافة شرط فقط كما في الكود التالى

 

Sub المتعاملين_في_النقدية()
If ActiveSheet.CheckBoxes("Check Box 8") = xlOn Then
  Application.ScreenUpdating = False
  Set sh = Sheets("المتعاملين_في_النقدية")
  Ln = sh.[c9999].End(xlUp).Row
Dim v
    For Each v In Array("خروج نقديه", "دخول نقديه")
        With Sheets(v)
            Set deb = .Range("G4:G" & .Range("G" & .Rows.Count).End(xlUp).Row)
            For i = 1 To deb.Rows.Count
                If deb(i, 1) <> "" Then
                    If InStr(raj & ",", "," & deb(i, 1) & ",") = 0 Then raj = raj & "," & deb(i, 1)
                End If
            Next i
        End With
    Next v
    roy = Split(Mid(raj, 2), ",")
    sh.Range("c4").Resize(UBound(roy) + 1) = Application.Transpose(roy)
  Application.ScreenUpdating = True
Else
ActiveSheet.Range("C4:C100").ClearContents
End If
End Sub

طبق هذا الأمر على الباقي بتغيير اسماء ال Check Boxes فقط" مرفق ملف به مثال واحد وطبق أنت الباقي.. تمام

 

تحياتي  

قائمة بالاسماء من عمودين بشيتين فى عمود واحد بشيت مختلف.rar

[عادل ابوزيد]

استاذى الفاضل المحترم جددددددددددددددددددددددددددددددددا جداً ابن مصر الغالى ( اضافه بسيط مهمة)

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

اخوك فى الله لم ينفذ حتى الان ولكن عندى ثقه ان حلك هو المفيد ومن الاخر

جعلها الله فى ميزان حسناتك ونفعك بها فى الدنيا والاخرة ورزقك من حيث لا تحتسب

تقبل منى كل الحب والشكر والامتنان والدعاء بصالح الاعمال

تم التطبيق ولكن لزيادة الكفاءة احب ان اعرفها عن طريق استخدام  Option Button لانها من خصائصها انها تحدد خيار واحد فقط

تم تعديل ديسمبر 4, 2014 بواسطه عادل ابوزيد

[ibn_egypt]

استاذى الفاضل المحترم جددددددددددددددددددددددددددددددددا جداً ابن مصر الغالى ( اضافه بسيط مهمة)

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

اخوك فى الله لم ينفذ حتى الان ولكن عندى ثقه ان حلك هو المفيد ومن الاخر

جعلها الله فى ميزان حسناتك ونفعك بها فى الدنيا والاخرة ورزقك من حيث لا تحتسب

تقبل منى كل الحب والشكر والامتنان والدعاء بصالح الاعمال

تم التطبيق ولكن لزيادة الكفاءة احب ان اعرفها عن طريق استخدام  Option Button لانها من خصائصها انها تحدد خيار واحد فقط

 

أخى الفاضل أ.عادل

 

اسف بجد لم الاحظ انك اجريت تعديل على المشاركة الأخيرة وطلبت ان تكون Option Buttons بدلا من ال Check Boxes الا بعد رسالتك

 

تفضل مرفق ملف به المطلوب

 

تحياتي  

List_Options.rar

[عادل ابوزيد]

استاذى الفاضل الكبير ابن مصر الغالى

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

حاجة ممتعه بجد وانا ( اعوذ بالله من كلمه انا ) بشتغل على ملفك  باستمتع .. افكارك مرتبة ومنظمه وتنفيذ ولا اروع من كده .. على فكرة لا اطرح موضوع الا لما اعمل عملية بحث عليه فى المنتدى ويمكن على جوجل

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

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

  :fff:   مع ارق التحيات والامنيات الطيبة :fff:

[محمد لطفى]

السلا م عليكم

اخوانى الاعزاء اجابات اكثر من رائعه

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

[عادل ابوزيد]

الاستاذ محمد لطفى

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