abo mohamad قام بنشر أبريل 20, 2010 مشاركة قام بنشر أبريل 20, 2010 السلام عليكم ورحمة الله وبركاته اتمنى ان اجد الحل على ايديكم كما تعودنا فلن تبخلوا عنا المطلوب فى الملف المرفق وبارك الله فيكم Book1 الصف ( صفر.rar رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أبريل 20, 2010 مشاركة قام بنشر أبريل 20, 2010 السلام عليكم و رحمة الله أخي ابو محمد يمكنك إلغاء القيمة المساوية لصفر في كشف الشريك محمد بهذا الكود Sub Excel4Us() Dim i As Long Dim LRow As Integer Dim NLRow As Integer LRow = Range("h" & Rows.Count).End(xlUp).Row For i = LRow To 9 Step -1 With Range("h" & i & ":" & "l" & i) If Range("h" & i).Value = 0 Then .Delete End If End With Next i NLRow = Range("h" & Rows.Count).End(xlUp).Row Range("J10").Formula = "=J9+H10" Range("j10:j" & NLRow).FillDown End Sub رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر أبريل 20, 2010 الكاتب مشاركة قام بنشر أبريل 20, 2010 <br />السلام عليكم و رحمة الله <br />أخي ابو محمد <br />يمكنك إلغاء القيمة المساوية لصفر في كشف الشريك محمد بهذا الكود <br /> <br /> Sub Excel4Us()<br /> Dim i As Long<br /> Dim LRow As Integer<br /> Dim NLRow As Integer<br /> LRow = Range("h" & Rows.Count).End(xlUp).Row<br /> For i = LRow To 9 Step -1<br /> With Range("h" & i & ":" & "l" & i)<br /> If Range("h" & i).Value = 0 Then<br /> .Delete<br /> End If<br /> End With<br /> Next i<br /> <br /> NLRow = Range("h" & Rows.Count).End(xlUp).Row<br /> Range("J10").Formula = "=J9+H10"<br /> Range("j10:j" & NLRow).FillDown<br /> <br /> End Sub<br /> <br /> <br /> <br /> <br /> <br /><br /><br /><br /> <br /><br /><br /> اخى واستاذى / يحيى جزاك الله كل خيرا اشكرك على سرعة الرد لكن مشكلتى فى الاكواد للاسف لا اجيد التعامل معها فلو تكرمت اخى العزيز ممكن كتابتا فقط تقولى بعد نسخ هذا الكود اين أضعه فى الصفحه؟ وجزاك الله الف خيرا رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أبريل 20, 2010 مشاركة قام بنشر أبريل 20, 2010 أخي قم بالضغط على ALT+F11 ثم Insert ثم module وانسخ الكود هناك ثم F5 ليتم تفعيل الكود رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أبريل 20, 2010 مشاركة قام بنشر أبريل 20, 2010 أخي ابو محمد شاهد المرفق Book1 الصف ( صفر.rar رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر أبريل 20, 2010 الكاتب مشاركة قام بنشر أبريل 20, 2010 أخي ابو محمد شاهد المرفق أخى الكريم جزاك الله عنا الف خير وبارك الله فيك والله ما ذكرته فى المشاركه الاخيره أعلمه والحمد لله ولكنى حاولت أطبق ما قولته لى ولكن بلا فائده وهذه ليست المره الاولى فقبل ذلك مئات المرات أرى اكواد رائعه فى المنتدى واحاول ان اطبقها عندى لكى استفاد منها فى عملى ولكن ايضا بلا فائده فلانصيب لى فى الاكواد ولا اعرف السبب رغم انى اطبق ما ذكرته بالحرف وجزاك الله خيرااخى الكريم رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أبريل 20, 2010 مشاركة قام بنشر أبريل 20, 2010 أخي إن شاء الله بالصبر و المثابره ستصل لك شيء رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر أبريل 20, 2010 الكاتب مشاركة قام بنشر أبريل 20, 2010 أخي ابو محمد شاهد المرفق أخى الكريم جزاك الله عنا الف خير وبارك الله فيك والله ما ذكرته فى المشاركه الاخيره أعلمه والحمد لله ولكنى حاولت أطبق ما قولته لى ولكن بلا فائده وهذه ليست المره الاولى فقبل ذلك مئات المرات أرى اكواد رائعه فى المنتدى واحاول ان اطبقها عندى لكى استفاد منها فى عملى ولكن ايضا بلا فائده فلانصيب لى فى الاكواد ولا اعرف السبب رغم انى اطبق ما ذكرته بالحرف وجزاك الله خيرااخى الكريم بارك الله فيك بارك الله فيك بارك الله فيك لو استطيع ان أخترع داله او كود يكرر لك الشكر والتقدير على ماقدمته فجزاك الله خيرا اول مره يتم عمل الكود معى فلك منى الف شكر وجعله الله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
يحيى حسين قام بنشر أبريل 20, 2010 مشاركة قام بنشر أبريل 20, 2010 سعدت بك اخي ابو محمد و وفقك الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان