osama kamal قام بنشر ديسمبر 30, 2017 مشاركة قام بنشر ديسمبر 30, 2017 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then Range("a6:f3000").ClearContents For i = 3 To 200 x = WorksheetFunction.CountA(Range("a6:a3000")) If Sheets(6).Cells(i, 1) = [b1].Value Then Sheets(3).Cells(5, 1).Offset(1 + x, 0) = Sheets(6).Cells(i, 1) Sheets(3).Cells(5, 2).Offset(1 + x, 0) = Sheets(6).Cells(i, 2) Sheets(3).Cells(5, 3).Offset(1 + x, 0) = Sheets(6).Cells(i, 3) Sheets(3).Cells(5, 4).Offset(1 + x, 0) = Sheets(6).Cells(i, 4) Sheets(3).Cells(5, 5).Offset(1 + x, 0) = Sheets(6).Cells(i, 5) Sheets(3).Cells(5, 6).Offset(1 + x, 0) = Sheets(6).Cells(i, 6) End If Next i For i = 3 To 200 x = WorksheetFunction.CountA(Range("a6:a3000")) If Sheets(2).Cells(i, 1) = [b1].Value Then Sheets(3).Cells(5, 1).Offset(1 + x, 0) = Sheets(7).Cells(i, 1) End If Next i End If End Sub اية المشكلة ؟ رابط هذا التعليق شارك More sharing options...
osama kamal قام بنشر ديسمبر 30, 2017 الكاتب مشاركة قام بنشر ديسمبر 30, 2017 (Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then Range("a6:f3000").ClearContents For i = 3 To 200 (("x = WorksheetFunction.CountA(Range("a6:a3000 If Sheets(6).Cells(i, 1) = [b1].Value Then (Sheets(3).Cells(5, 1).Offset(1 + x, 0) = Sheets(6).Cells(i, 1) (Sheets(3).Cells(5, 2).Offset(1 + x, 0) = Sheets(6).Cells(i, 2) (Sheets(3).Cells(5, 3).Offset(1 + x, 0) = Sheets(6).Cells(i, 3) (Sheets(3).Cells(5, 4).Offset(1 + x, 0) = Sheets(6).Cells(i, 4) (Sheets(3).Cells(5, 5).Offset(1 + x, 0) = Sheets(6).Cells(i, 5) (Sheets(3).Cells(5, 6).Offset(1 + x, 0) = Sheets(6).Cells(i, 6) End If Next i For i = 3 To 200 (("x = WorksheetFunction.CountA(Range("a6:a3000 If Sheets(2).Cells(i, 1) = [b1].Value Then (Sheets(3).Cells(5, 1).Offset(1 + x, 0) = Sheets(7).Cells(i, 1) End If Next i End If End Sub رابط هذا التعليق شارك More sharing options...
osama kamal قام بنشر ديسمبر 30, 2017 الكاتب مشاركة قام بنشر ديسمبر 30, 2017 ارجو الرد رابط هذا التعليق شارك More sharing options...
ظفر الله عسكر قام بنشر ديسمبر 30, 2017 مشاركة قام بنشر ديسمبر 30, 2017 اخي اسامه انا مبتدئ زيك ينبغي ان تشرح عن الكود حتى يلي بدو يجاوبك يعرف شو المطلوب ويفضل ارفاقه بملف اكسل اضغطه وارفقه بالمشاركة تحياتي لك 1 رابط هذا التعليق شارك More sharing options...
osama kamal قام بنشر ديسمبر 30, 2017 الكاتب مشاركة قام بنشر ديسمبر 30, 2017 انا بتعلم وكتبت الكود مثل شرح الدرس ولكن الكود يعطى خطا ولا اعرف السبب ... مطلوب عمل حركة صنف بالتاريخ مأخوذة من شيت داتا 1 وشيت داتا 2 مشروع المخازن 9.rar رابط هذا التعليق شارك 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.