مطلوب كود: ينقل سجل من صفحة لاخرى بناءاً على قيمة خلية

[خالدو]

السلام عليكم ورحمة الله وبركاته

اخواني الافاضل هل ممكن كود ينقل و ينسخ صف بالكامل من شيت لاخر بناءاً على قيمة خلايا موجود في عمود معين على نفس الصف مع توسيط خلية لهذا الغرض؟

أرجو التكرم ومراجعة الشرح في الملف المرفق

وجزاكم الله خيراً

CopyMove.rar

[طارق محمود]

السلام عليكم

الكود في حدث الورقة DocLog

كالتالي

[code]Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$D$2" Then 'move

	a = [d2]

	Range("$8:$424").AutoFilter Field:=11, Criteria1:=a

 	Range([K8].End(xlDown), [A1000].End(xlUp)).Select

 	Selection.Copy

	Sheets("Move").[A10000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

	Selection.EntireRow.Delete Shift:=xlUp


	Application.CutCopyMode = False

	Exit Sub

Else

	If Target.Address = "$F$2" Then 'copy

	a = [F2]

	Range("$8:$424").AutoFilter Field:=11, Criteria1:=a

 	Range([K8].End(xlDown), [A1000].End(xlUp)).Copy

	Sheets("Copy").[A10000].End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

	Application.CutCopyMode = False

	Else

    	Exit Sub

	End If

End If

End Sub

ومرفق الملف أيضا

CopyMove.rar

[خالدو]

جزاك الله خيراً أخي واستاذي طارق

مش ممكن يتم النقل والنسخ بنفس التنسيق اللي موجود بالصفحة الاصلية؟

بارك الله فيك

[طارق محمود]

مرة واحدة في الأول نسق الورقتين كما تريد

والكود لن يؤثر في التنسيق

[خالدو]

جزاك الله خيراً أخي الكريم.

[احمد فضيله]

السلام عليكم ورحمة الله و بركاته

الاخ الفاضل المهندس / طارق

بسم الله ما شاء الله . ابداع دائم

جزاك الله كل خير

و السلام عليكم ورحمة الله و بركاته