البحث في الموقع
Showing results for tags 'مساعدة في اصلاح كود نقل اصفف الي شيت اخر'.
تم العثور علي 1 نتيجه
-
السلام عليكم الكود ده كان شغال معايا بس بدل كلمة tmam كنت بكتب ارقام عايز اكتب لو يساوي تم الرد ينقل الاصفف Sub Move() Dim LR As Long, I As Long, X As Long LR = Sheets("Sheet1").Cells(Rows.Count, "G").End(xlUp).Row X = 5 Application.ScreenUpdating = False For I = 6 To LR If Cells(I, "G").Value = "tmam" Then Rows(I).Copy Sheets("Sheet2").Range("a" & X): X = X + 1 Next I Application.CutCopyMode = False Application.ScreenUpdating = True End Sub انا دايخ فيه من امبارح مش عارف فين المشكلة
