بلال منذر قام بنشر يوليو 29, 2018 مشاركة قام بنشر يوليو 29, 2018 فصلا وليس امرا قيام بتعديل طفيف لهذا الكود ليرحل البيانات بدون رقم تسلسلي و يبدا الترحيل من خلية الاسم D15 Sub terhel() Dim EndRow As Long If Sheets("ÓäÏ ÊÍÕíá").Range("B12").Value = "" Or Sheets("ÓäÏ ÊÍÕíá").Range("D35").Value = "" Or Sheets("ÓäÏ ÊÍÕíá").Range("E12").Value = "" Then MsgBox prompt:="ÊÃßÏ ãä ÅÏÎÇá ßÇÝÉ ÇáÈíÇäÇÊ", Title:="ÎØÃ" Else EndRow = Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Range("A1").CurrentRegion.Rows.Count Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 1).Value = EndRow Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 4).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(12, 2).Value Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 5).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(35, 4).Value Sheets("ÅÔÚÇÑ ÈÇáÎÕã").Cells(EndRow + 1, 6).Value = Sheets("ÓäÏ ÊÍÕíá").Cells(12, 5).Value Sheets("ÓäÏ ÊÍÕíá").Range("B12").ClearContents MsgBox prompt:="Êã ØÈÇÚÉ æ ÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", Title:="ÑÓÇáÉ ÊÃßíÏ" End If End Sub terhel.xlsm رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر يوليو 29, 2018 مشاركة قام بنشر يوليو 29, 2018 ممكن يكون المطلوب هكذا terhel.xlsm 1 رابط هذا التعليق شارك More sharing options...
بلال منذر قام بنشر يوليو 29, 2018 الكاتب مشاركة قام بنشر يوليو 29, 2018 30 دقائق مضت, ahmedkamelelsayed0 said: ممكن يكون المطلوب هكذا terhel.xlsm بارك الله فيك استذنا ahmedkamelelsayed0 وجزالك الله كل الخير وزادك الله علما. رابط هذا التعليق شارك More sharing options...
بلال منذر قام بنشر يوليو 30, 2018 الكاتب مشاركة قام بنشر يوليو 30, 2018 (معدل) 14 ساعات مضت, bilouinfo said: بارك الله فيك استذنا ahmedkamelelsayed0 وجزالك الله كل الخير وزادك الله علما. بعد التحية والسلام للأسف لم يكن المطلوب المرغوب. -اولا هذا التعديل على الكود يرحل البيانات في المرة الاولى بشكل عادي اما في المرة الثانية فانه يرحل البيانات فقي نفس مكان البيانات السابقة المرحلة...يعنى انه لا يرحل البيانات صف بعد صف. - ثانيا لا اريد ان استعمل الترقيم التلقائئ (.Range("A1").CurrentRegion.Rows.Count )....أريد ان يكون مكان الرقم فارغ..يعنى يرحل لي ثلاث خانات فقط... فهل من مساعدة.. تم تعديل يوليو 30, 2018 بواسطه bilouinfo رابط هذا التعليق شارك More sharing options...
بلال منذر قام بنشر يوليو 30, 2018 الكاتب مشاركة قام بنشر يوليو 30, 2018 هل من مساعدة؟؟ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان