اريد كود ترحيل صفوف إلى صفحة أخرى بشرط .. مع حذف هذه الصفوف

[أحمد عباس]

شيكات مسددة.rar

[رجب جاويش]

تفضل أخى

Application.ScreenUpdating = False

Set sh = Sheets("الشيكات المسددة")

LR = Cells(Rows.Count, 1).End(xlUp).Row

On Error Resume Next

For i = 2 To LR

If Cells(i, "E").Value <> "" And Cells(i, "E").Value = "نعم" Then

Range(Cells(i, "A"), Cells(i, "D")).Copy

sh.Range("A" & sh.Cells(Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial xlPasteValues

Application.CutCopyMode = False

Range(Cells(i, "A"), Cells(i, "E")).Delete Shift:=xlUp

i = i - 1

End If

Next i

Application.ScreenUpdating = True

MsgBox "تم الترحيل بنجاح"

Set sh = Nothing

End Sub

شيكات مسددة1.rar

[أحمد عباس]

بارك الله فيك أ/ رجب .. وزادك الله من علمه

[أحمد عباس]

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

 

أولاً : كل الشكر والتقدير للقائمين على منتدى أوفيسنا فيما يقدمونه من علم ينتفع به ... أسال الله العظيم أن يجعل عملكم هذا فى ميزان حسناتكم 

 

ثانياً : بفضل الله ثم بفضلكم صممت كارته حركة صنف من وحدتين عن طريق أحد الأكواد التى تعلمتها من المنتدى  وما ينقصنى هو إضافة كود لعمل عمود الرصيد بمعنى : 

 

     الرصيد =  الخلية السابقة + الوارد - الصادر   وهكذا فى كل خلية فى عمود الرصيد

 

  قمت بكتابة الكود التالى : 

 

 

[o12] = [o11] + [i12] - [l12]

 

         ( Offset(1, 12) = .Offset(-1, 12) + .Offset(1, 6) - .Offset(1, 9.

 

ولكن لم تكن النتائج صحيحة .. فالرجاء من سيادتكم مساعدتى فى ذلك الأمر ... ولكم جزيل الشكر 

 

المرفقات :

[رجب جاويش]

أخى الفاضل / أحمد عباس

يفضل فتح موضوع جديد

تضع فيه مرفق توضح به ما تريد

[حمادة عمر]

السلام عليكم

الاستاذ القدير / رجب جاويش

 

بارك الله فيك

وزادك الله من علمه

ودائما نظل نتعلم منك ومن روائعك

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