محمد عبد الناصر قام بنشر سبتمبر 21, 2016 مشاركة قام بنشر سبتمبر 21, 2016 السلام عليكم ورحمة الله وبركاته ؛؛؛ الكود ده بينقل الارقام اللي اقل من 91 فى الشيت 2 عايز اكتب اقل من 90 الي 1 (90:1) بس مش عارف اعملها ياريت حد يساعدنى فيها Sub CopyRows() 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 Sheets("Sheet2").Rows("5:1000").ClearContents For I = 6 To LR If Cells(I, "g").Value > 91 Then Rows(I).Copy Sheets("Sheet2").Range("A" & X): X = X + 1 Next I Application.CutCopyMode = False Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر سبتمبر 21, 2016 مشاركة قام بنشر سبتمبر 21, 2016 هل تقصد هكذا Sub CopyRows() 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 Sheets("Sheet2").Rows("5:1000").ClearContents For I = 6 To LR If Cells(I, "g").Value < 90 And Cells(I, "g").Value >= 1 Then Rows(I).Copy Sheets("Sheet2").Range("A" & X): X = X + 1 Next I Application.CutCopyMode = False Application.ScreenUpdating = True End Sub 2 رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر سبتمبر 21, 2016 الكاتب مشاركة قام بنشر سبتمبر 21, 2016 شكرااااااااااااااا استاذ ياسر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 21, 2016 مشاركة قام بنشر سبتمبر 21, 2016 اثراءً للموضوع هذا الكود (ربما اسرع قليلاً) Sub Filter_Me() Sheets("Sheet2").Range("a:a").ClearContents With Sheets("Sheet1") .Activate .AutoFilterMode = False lrg = .Cells(Rows.Count, "g").End(3).Row .Range("g6").AutoFilter Field:=1, Criteria1:=">=1", _ Operator:=xlAnd, Criteria2:="<=90" .Range("g6:g" & lrg).Copy Sheets("sheet2").Range("a5") .AutoFilterMode = False Application.CutCopyMode = False End With End Sub 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.