على نور قام بنشر فبراير 12, 2012 مشاركة قام بنشر فبراير 12, 2012 السلام عليكم ورحمة الله هذا طلبى الثانى ارجو ان تساعدونى فيه اريد كود ترحيل يكون بسيط وجميل واقدر اعدل فيه بعد اذنكم اريد ترحيل الاسماء المكتوبة امامها متعدد وجائز الى شيت 2 وشيت 3 على حسب المكتوب امامهم التوضيح فى المرفق ترحيل نور.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر فبراير 12, 2012 مشاركة قام بنشر فبراير 12, 2012 السلام عليكم أخي العزيز تفضل كود بسيط مع شرح بسيط Sub shift() LR = [AV1000].End(xlUp).Row 'لمعرفة آخر سطر فيه نتيجة متعدد وجائز For R = 11 To LR ' نبدأ حلقة من أول سطر به بيانات إلي آخر سطر x = Cells(R, "AV") With Sheets(x) LR2 = .[B1000].End(xlUp).Row + 1 'لتحديد آخر سطر جاهز لنقل بيانات .Cells(LR2, "B") = Cells(R, "B") .Cells(LR2, "C") = Cells(R, "D") .Cells(LR2, "D") = Cells(R, "E") End With 10 Next R MsgBox ("الحمد لله" & Chr(10) & "تم الترحيل") End Sub وهذا هو المرفق ترحيل نور.rar 1 رابط هذا التعليق شارك More sharing options...
احمد حجازى قام بنشر يوليو 18, 2012 مشاركة قام بنشر يوليو 18, 2012 السلام عليكم اريد بعد ازنك طريقه ترحيل او كود ترحيل حسب الاسم بمعنى انى لم اكتب اسم الشركه تترحل بيانتهااا ف الصف لشيت الشركه اللى كتبت اسمه ............ وميرسى لخدماتكم الممتازه وتالشرح الهايل رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يوليو 18, 2012 مشاركة قام بنشر يوليو 18, 2012 ارفق ملف يا استاذ احمد لتلبية طلبك رابط هذا التعليق شارك More sharing options...
جمال عبد السميع قام بنشر يوليو 18, 2012 مشاركة قام بنشر يوليو 18, 2012 إلي أساتذتي ومعلمي اللذين تعلمت منهم ولازلت أبحث عن كل خط يخطونة والقائمة طويلة وعظيمة من قمم هذا الصرح أقدم هذا الحل بالمعادلات بعد تقديم أساتذتي العظام حل الأكواد ترحيل نور 2.rar رابط هذا التعليق شارك 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.