سؤال الى الاخوة الاعضاء بسبب خطأ الكود

[osama kamal]

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

اية المشكلة ؟

[osama kamal]

 

(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

 

[osama kamal]

ارجو الرد

[ظفر الله عسكر]

اخي اسامه انا مبتدئ زيك
ينبغي ان تشرح عن الكود حتى يلي بدو يجاوبك يعرف شو المطلوب

ويفضل ارفاقه بملف اكسل اضغطه وارفقه بالمشاركة

تحياتي لك

[osama kamal]

انا بتعلم وكتبت الكود مثل شرح الدرس ولكن الكود يعطى خطا ولا اعرف السبب ... مطلوب عمل حركة صنف بالتاريخ مأخوذة من شيت داتا 1 وشيت داتا 2

مشروع المخازن 9.rar