المساعدة في نقل كود من ورقة الى ورقة

[احمد 505]

السلام عليكم

أعزائي

ارجوا المساعدة في نقل الكود المرفق

الذي قام بمعله الاستاذ/ ابو حنين

 

1 اريد الطريقة في نقل محتويات الورقه المرفقة بالكود

   الى ورقة ثانية ( قاعدة  بياناتي )

 

2- الكود بالمرفق يبداء من العمود B

 

3- أنا اريد ان اغير العمود ليتماشى مع قاعدة البيانات حسب الترتيب

 

4- لماذا العمودين A+B  تتكرر في العمودين التاليين ( اريد الاحتفاض بالخمس نتائج ولكن دون التكرار ) 

 

5- هل بالامكان تعديل الكود الى معادلة (وتعطي نفس نتائج الكود

 

اشكركم

 

 

A2.rar

[احمد 505]

يا جماعة ايش اللي اصل في المنتدى

ليش الناس ما بترد

 

احد مات والا شي

[احمد 505]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Or Target.Column = 3 Then
If CStr(Cells(Target.Row, 3)) = CStr(Cells(Target.Row, 15)) Then
Exit Sub
Else
Application.DisplayAlerts = False
Range(Cells(Target.Row, 2), Cells(Target.Row, 9)).Copy Cells(Target.Row, 4)
Range(Cells(Target.Row, 12), Cells(Target.Row, 15)).ClearContents
End If
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Or Target.Column = 3 Then
Cells(Target.Row, 14).Value = Cells(Target.Row, 2).Value
Cells(Target.Row, 15).Value = Cells(Target.Row, 3).Value
End If
End Sub

احبابي هذا الكود الموجود عندي

 

واريد ان اعرف كيف اغيره بحيث يتوافق مع الاعمدة التي اريد ان انقله اليها

 

 

 

 

 

 

 

[احمد 505]

يا اخوان ارجوا الرد

ليش ما فيه رد لحد الان

اذا فيه مشكله في السؤال اخبروني

[احمد 505]

ياحماعة ما يصير كذا

والا رد

[احمد 505]

اخواني الاعزاء المشرفين

فضلا لا امرا

ارجوا اغلاق هذا السؤال

حيث تمت اجابته من قبل الاخ والاستاذ ( ياسر خليل )

اشكرك استاذ ياسر

وعذرا على التكرار