نرجوا المساعده

[abo mohamad]

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

Book1 الصف ( صفر.rar

[يحيى حسين]

السلام عليكم و رحمة الله

أخي ابو محمد

يمكنك إلغاء القيمة المساوية لصفر في كشف الشريك محمد بهذا الكود

 

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





 

[abo mohamad]

  في 20‏/4‏/2010 at 15:33, يحيى حسين said:

<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(&quot;h&quot; &amp; Rows.Count).End(xlUp).Row<br />

For i = LRow To 9 Step -1<br />

   With Range(&quot;h&quot; &amp; i &amp; &quot;:&quot; &amp; &quot;l&quot; &amp; i)<br />

    &nbsp;&nbsp;&nbsp; If Range(&quot;h&quot; &amp; i).Value = 0 Then<br />

        &nbsp;&nbsp;&nbsp; .Delete<br />

    &nbsp;&nbsp;&nbsp; End If<br />

   End With<br />

Next i<br />

<br />

NLRow = Range(&quot;h&quot; &amp; Rows.Count).End(xlUp).Row<br />

Range(&quot;J10&quot;).Formula = &quot;=J9+H10&quot;<br />

Range(&quot;j10:j&quot; &amp; NLRow).FillDown<br />

   <br />

End Sub<br />

<br />

 <br />

<br />

<br />

 

<br /><br /><br /><br />

<br /><br /><br />

اخى واستاذى / يحيى

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

اشكرك على سرعة الرد لكن مشكلتى فى الاكواد للاسف لا اجيد التعامل معها

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

وجزاك الله الف خيرا

[يحيى حسين]

أخي قم بالضغط على

ALT+F11

ثم

Insert

ثم

module

وانسخ الكود هناك

ثم F5

ليتم تفعيل الكود

[يحيى حسين]

أخي ابو محمد شاهد المرفق

Book1 الصف ( صفر.rar

[abo mohamad]

  في 20‏/4‏/2010 at 16:02, يحيى حسين said:

أخي ابو محمد شاهد المرفق

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

[يحيى حسين]

أخي إن شاء الله

بالصبر و المثابره ستصل لك شيء

[abo mohamad]

  في 20‏/4‏/2010 at 16:10, abo mohamad said:

  في 20‏/4‏/2010 at 16:02, يحيى حسين said:

أخي ابو محمد شاهد المرفق

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

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

[يحيى حسين]

سعدت بك اخي ابو محمد

و وفقك الله