mostafa tayee قام بنشر فبراير 2, 2015 مشاركة قام بنشر فبراير 2, 2015 السلام عليكم ورحمه الله وبركاته اطلب من سيادتكم كود ماكرو يقوم بنقل رقم من خليه لخليه اخرى بنفس الشيت يقوم بنقل الرقم الموجود فى الخليه C16 ألى العمود D بحيث ان إذا كانت الخليه D4 تحتوى على رقم يقوم الكود اتوماتيك بوضع الرقم فى اول خليه فارغه بعدها وهيا D5 الخزينه فرع2.rar رابط هذا التعليق شارك More sharing options...
GasserReda قام بنشر فبراير 2, 2015 مشاركة قام بنشر فبراير 2, 2015 قم بوضع الكود في 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 ليقوم الكود بالعمل رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 3, 2015 مشاركة قام بنشر فبراير 3, 2015 انسخ هذا الكود و جربه 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 رابط هذا التعليق شارك More sharing options...
mostafa tayee قام بنشر فبراير 3, 2015 الكاتب مشاركة قام بنشر فبراير 3, 2015 اولا شكرا لكل من حاول مساعدتى بس للاسف لم استطيع تنفيذ اى كود هل ممكن حضرتكم تنفذوا على الملف الذى قمت برفعه وانا ابقى احملها ويكون الكود موجود ومفعل فيه ولك جميعا جزيل الشكر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 4, 2015 مشاركة قام بنشر فبراير 4, 2015 تم تغيير الملف لاصابته بفيروس مجرد ما تنقر الخلية C16 وتحرج منها تنتقل قيمتها الى الى العامود D نقل المجموع.rar رابط هذا التعليق شارك More sharing options...
mostafa tayee قام بنشر فبراير 8, 2015 الكاتب مشاركة قام بنشر فبراير 8, 2015 ألف شكر اخى EMembers-1 على تعبك وعلى تفاعل بقيت الاصدقاء رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.