Ali Mohamed Ali

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

اهلا وسهلا بك اخ كريم فى منتدانا العظيم تفضل برفع الملفات وان شاء الله ستلقى الإستجابة من الإخوة والأساتذة والخيراء جزاك الله كل خير

بعد اذن استاذنا الكبير سليم تفضل تصحيح معادلة-1.xlsx

تفضل اخى الكريم statistic-1.xls

لاحظ الصورة رقم 1 الخاصة بوضع الكود الأول الخاص بورقة العمل . أما الكود الثانى الذى يوضع فى موديول نقوم بالتالى : أولا أضغط على Alt F11 من لوحة المفاتيح عند فتح ملف الإكسيل ستظهر نافذة جديدة كما بالصورة رقم 2 -فأضغط من الأعلى على insert ثم أختار Module وبالتالى اقوم بوضع الكود الثانى فى الصفحة الجديدة التى ستظهر لى جزاك الله كل خير

Option Explicit 'Sub split_name(rg) ''Dim MY_Name$ 'Dim i% 'Dim k%: k = 7 ''st = rg.Value ''MY_Name = Split(st, " ") 'For i = 0 To UBound(rg) ' Cells(2, k) = rg(i) ' k = k + 1 ' Next 'End Sub 'Sub give_name() 'Dim arr 'Dim k% 'arr = Split(Range("a2"), " ") 'For i = 0 To UBound(rg) ' Cells(2, k) = rg(i) ' k = k + 1 ' Next 'End Sub Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 And Target.Row > 1 _ And Target.Count = 1 Then Target.Offset(0, 1).Resize(, 4).ClearContents Dim i% Dim arr, k%: k = 2 arr = Split(Trim(Target), " ") For i = 0 To UBound(arr) Cells(Target.Row, k) = arr(i) k = k + 1 Next End If Application.EnableEvents = True End Sub أولا وضع هذا الكود الأول فى حدث ورقة العمل ثم بعد ذلك قم بعمل وادخال موديول جديد وضع به هذا الكود الثانى :

هذا العمل بالأكواد VBA

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

بعد اذن استاذنا الكريم سليم حاصبيا هذا الملف من أعماله القيمة التى مادامت باقية لنا ومنارة فى التعلم والتقدم له منا كل الحب والمحبة والإحترام-جزاك الله كل خير ملحوظة: من فضلك استاذ ميدو لا تقوم بطرح نفس التساؤل فى اكثر من مشاركة مختلفة حتى لا تتجاهل الأساتذة تشساؤلك وايضا بعد ذلك تقوم برفع ملف لتوضيح ما تريد كما نصحك وبين لك استاذنا الكبير سليم بارك الله فيك تقسيم الخلية الى عدة أعمدة.xlsm

تفضل اخى الكريم تقسيم الخلية الى عدة أعمدة.xlsm

تفضل اخى الكريم مخازن 1.xlsm

أخى الكريم اهلا بك فى المنتدى الكريم اين الملف الذى تريد العمل عليه -من الأفضل رفع الملف تجنبا لمضيعة وقت الأساتذة والخبراء حتى لا يتم عدم الإلتفات الى طلبك فهو مبهم للجميع الى الأن جزاك الله كل خير

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

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

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

تفضل fgh-1.xlsx

تفضلى لكى ما طلبتى لإخفاء الصفوف فقط -1اخفاء.xlsm

من فضلك لا تكرر نفس التساؤل فى عدة مشاركات فهذا يجعل جميع الأساتذة والخبراء يبتعدوا عن حل مشكلتك لانك بذلك تقوم بتشتيت جميع الإخوة بارك الله فيك

تفضل تجربة14-جديدة-1.xlsm

من فضلك وضح المطلوب بدقة أين كشف التسديدات ؟!!!

نعم بالتأكيد هذه الأكواد تحتاج زر توضع هذه الأكواد فى موديول تفضلى اخفاء.xlsm

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

بعد اذن الأستاذ أحمد ولإثراء الموضوع -هذا حل اخر بالأكواد كود استخراج اسم ولي الامر-2.xls

وعليكم السلام من الأفضل ارسال الملف لوضع الكود به ولكن هذا هو كود الإخفاء للخلايا الفارغة: Sub HideBlan() For i = 4 To 103 If Cells(i, 6) = 0 Then Cells(i, 6).EntireRow.Hidden = True End If Next Dim c As Range For Each c In Range("g104:s104").Cells If c.Value = "0" Then c.EntireColumn.Hidden = True End If Next c End Sub وهذا هو كود الإظهار: Sub showBlank() For i = 4 To 103 If Cells(i, 6) = 0 Then Cells(i, 6).EntireRow.Hidden = False End If Next Dim c As Range For Each c In Range("g104:s104").Cells If c.Value = "0" Then c.EntireColumn.Hidden = False End If Next c End Sub جزاكم الله كل خير

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