كود ماكرو لترحيل رقم من خليه الى اخرى فى نفس الشيت

[mostafa tayee]

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

اطلب من سيادتكم كود ماكرو يقوم بنقل رقم من خليه لخليه اخرى بنفس الشيت

يقوم بنقل الرقم الموجود فى الخليه C16 ألى العمود D 

بحيث ان إذا كانت الخليه D4 تحتوى على رقم يقوم الكود اتوماتيك بوضع الرقم فى اول خليه فارغه بعدها وهيا D5 

 

   

الخزينه فرع2.rar

[GasserReda]

قم بوضع الكود في sheet1_module

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Not Intersect(Target, Range("C16")) Then
        Cancel = True
        lastr = Range("D15").End(xlUp).Row + 1
        Cells(lastr, 4).Value = Range("C16").Value
    End If
End Sub

دبل كليك في الخلية C16 ليقوم الكود بالعمل

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

 انسخ هذا الكود و جربه

Private Sub Worksheet_change(ByVal Target As Range)
    Dim mrng As Range
    Set mrng = Range("c16")
If Not Intersect(Target, mrng) Is Nothing Then
    c = Cells(Rows.Count, 4).End(xlUp).Row
    Cells(c + 1, 4) = mrng.Value
End If
End Sub

[mostafa tayee]

اولا شكرا لكل من حاول مساعدتى 

بس للاسف لم استطيع تنفيذ اى كود 

هل ممكن حضرتكم تنفذوا على الملف الذى قمت برفعه وانا ابقى احملها ويكون الكود موجود ومفعل فيه 

ولك جميعا جزيل الشكر 

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

 تم تغيير الملف لاصابته بفيروس

مجرد ما تنقر الخلية C16  وتحرج منها تنتقل قيمتها الى الى العامود D

نقل المجموع.rar

[mostafa tayee]

ألف شكر اخى  EMembers-1 على تعبك وعلى تفاعل بقيت الاصدقاء