نقل محتويات صف بالضغط علي خليه في نفس الصف

[تامر خليفه]

مرحباء للجميع

عندي جدول به بعد المعلومات مثل الوظيفه و الاس م و القسم

اريد عندما اضغط علي خليه فيه يقوم بنقل كافه الصف الي صف اخر كما في المرفق

نقل محتويات.xlsx

[shreif mohamed]

نقل محتويات.xlsm

[تامر خليفه]

ممتاز اخي الفاضل

لك جزيل الشكر

لكن حضرتك صممت الكود لينقل ويحذف من المكان الاساسي وعلي اعتبار ان مكان النقل متساوي

طمعا في علم حضرتك

كيف اقوم بنفس العمليه بدون حذف المعلومات من المكان الاساسي

وعلي اعتبار ان مكان النقل ليس بجانب البعض

مثلا اول خليه تنقل في K1

والثانيه تنقل في M5

والثالث N7

تم تعديل أبريل 17, 2018 بواسطه تامر خليفه

[سليم حاصبيا]

بعد اذن اخي شريف

هذا الكود بنسخ لك الصف في اي خلية تم تحديدها (ليس من الضروري الاولى)

ولا تتم عملية النسخ الا اذا كان الصف مكتملاً (من اجل اكمال تعبئة الجدول)

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False

Dim Final_Row%, r%
Dim my_rg As Range
Dim Rg_to As Range: Set Rg_to = Range("i2:k2")

Final_Row = Cells(Rows.Count, 1).End(3).Row
Set my_rg = Range("a" & 2, "c" & Final_Row)
    If Not Intersect(Target, my_rg) Is Nothing _
       And Target.Count = 1 Then
      r = Target.Row
        If Application.CountA(Cells(r, 1).Resize(1, 3)) = 3 Then
           Rg_to.ClearContents
           Rg_to.Value = Cells(r, 1).Resize(1, 3).Value
        End If
    End If
Application.EnableEvents = True
End Sub

الملف مرفق

 

نقل محتويات salim.xlsm

[تامر خليفه]

ممتاز اخي الفاضل

لك جزيل الشكر

 

اخي الفاضل

 

1 ساعه مضت, تامر خليفه said:

ممتاز اخي الفاضل

لك جزيل الشكر

لكن حضرتك صممت الكود لينقل ويحذف من المكان الاساسي وعلي اعتبار ان مكان النقل متساوي

طمعا في علم حضرتك

كيف اقوم بنفس العمليه بدون حذف المعلومات من المكان الاساسي

وعلي اعتبار ان مكان النقل ليس بجانب البعض

مثلا اول خليه تنقل في K1

والثانيه تنقل في M5

والثالث N7