mohamadhaje قام بنشر يوليو 20 مشاركة قام بنشر يوليو 20 السلام عليكم ورحمة الله وبركاته ارجو المساعدة في نقل صف كامل الى ورقة اخرى عندما تكون قيمة الخلية محددة وفي ملفي عندما تكون قيمة الخلية منفذ تنتقا تلقائيا الى الورقة الثنية وشكرا لكم مسبقا على المساعدة علما انني استخدمت هذا الكود ولم يعمل Sub Cheezy() Dim xRg As Range Dim xCell As Range Dim I As Long Dim J As Long Dim K As Long I = Worksheets("Sheet1").UsedRange.Rows.Count J = Worksheets("Sheet2").UsedRange.Rows.Count If J = 1 Then If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0 End If Set xRg = Worksheets("Sheet1").Range("C1:C" & I) On Error Resume Next Application.ScreenUpdating = False For K = 1 To xRg.Count If CStr(xRg(K).Value) = "منفذ" Then xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1) xRg(K).EntireRow.Delete If CStr(xRg(K).Value) = "منفذ" Then K = K - 1 End If J = J + 1 End If Next Application.ScreenUpdating = True End Sub تطبيق طلبات.xlsx رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر يوليو 21 مشاركة قام بنشر يوليو 21 وعليكم السلام ورحمه الله وبركاته عدل هذا السطر Set xRg = Worksheets("Sheet1").Range("C1:C" & I) الى Set xRg = Worksheets("Sheet1").Range("E1:E" & I) رابط هذا التعليق شارك 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.