moh250 قام بنشر سبتمبر 5, 2009 مشاركة قام بنشر سبتمبر 5, 2009 السلام عليكم و رحمة الله برجاء المساعدة السؤال الاول : ترحيل بيانات بشكل معين و اليكم الملف المرفق السؤال الثانى : كيف اختار بداية الصف الذى اريدة فى الترحيل و الشرح ؟؟؟؟؟؟؟؟ Z = .Cells(10000, 2).End(xlUp).Row + 1 tran.rar رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 6, 2009 مشاركة قام بنشر سبتمبر 6, 2009 (معدل) السلام عليكم Z = .Cells(10000, 2).End(xlUp).Row + 1 المعنى آخر صف في العمود رقم 2 ابتداءاً من الصف 10000 الى اعلى زايدا صف واحد. كود الترحيل: Sub kh_TR() Dim MyS As String Dim R As Integer, Z As Integer For R = 7 To 11 If MyS = "" Then MyS = Cells(R, 5) Else MyS = MyS & Chr(10) & Cells(R, 5) Next With ورقة2 Z = .Cells(10000, 2).End(xlUp).Row + 1 .Cells(Z, 2) = MyS End With End Sub تفضل المرفق ترحيل معين.rar تم تعديل سبتمبر 6, 2009 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر سبتمبر 6, 2009 مشاركة قام بنشر سبتمبر 6, 2009 السلام عليكم استاذي بروفسير خبور زادك الله خير على خير ورفعة فوق رفعة وفضل على فضل رابط هذا التعليق شارك More sharing options...
moh250 قام بنشر سبتمبر 6, 2009 الكاتب مشاركة قام بنشر سبتمبر 6, 2009 الاستاذ خبور جزاك الله كل خير برجاء توضيح كيفية الحصول عاى دورات تعليمية للvba ؟؟؟؟؟ السؤال الثانى : كيف اجعل شيت الاكسل demo اى تعمل لمدة يومان ثم تتوقف ؟؟؟؟؟ رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 7, 2009 مشاركة قام بنشر سبتمبر 7, 2009 السلام عليكم اخي الحبيب/ خالد القدس ربنا يعطيك امثال دعائك اضعاف مضاعفة الاخ/ MOH برجاء توضيح كيفية الحصول عاى دورات تعليمية للvba ؟؟؟؟؟ الله اعلم السؤال الثانى : كيف اجعل شيت الاكسل demo اى تعمل لمدة يومان ثم تتوقف ؟؟؟؟؟ لم افهم ما تعنيه من هذا السؤال رابط هذا التعليق شارك More sharing options...
moh250 قام بنشر سبتمبر 7, 2009 الكاتب مشاركة قام بنشر سبتمبر 7, 2009 السلام عليكم ورحمة الله الاخ العزيز / خبور زاد الله كل خير و زادك علما بالنسبة للسؤال الاول : برجاء توضيح كيفية الحصول على دورات تعليمية للvba ؟؟؟؟؟ اى مراجع او اسطوانات تعليمية (بالعربى) لتعلم الvba بالنسبة للسؤال الثانى : Z = .Cells(10000, 2).End(xlUp).Row + 1 المعنى آخر صف في العمود رقم 2 ابتداءاً من الصف 10000 الى اعلى زايدا صف واحد و على سبيل المثال انا لو عايز ابدأ من الصف الثالث او الصف الرابع برجاء التوضيح بمثال بالنسبة للسؤال الثالث : كيف اجعل شيت الاكسل demo اى تعمل لمدة يومان ثم تتوقف ؟؟؟؟؟ 1- كيفية عمل فورم يوزر نيم و باسورد للدخول على الشيت 2 - جعل الشيت مؤقت يعمل لمدة يومان من تاريخ الدخول رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر سبتمبر 8, 2009 مشاركة قام بنشر سبتمبر 8, 2009 الاخ الغالى خبور خير x = sheets("scc7").Cells(Rows.Count, 2).End(xlUp).Row + 1 هذا الكود فى ملف ترحيل بيانات يقوم بترحيل البيانات ابتداء من الصف التاسع مش فاهم ازاى اغير بداية الترحيل مثلا انا عايزة يبدا من الصف 15 او من الصف 20 الله يكرمك ممكن توضح ازاى اغير فى الصف رابط هذا التعليق شارك More sharing options...
إياد جمعة قام بنشر سبتمبر 8, 2009 مشاركة قام بنشر سبتمبر 8, 2009 تياتي لك على هذا الموضوع الرائع رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر سبتمبر 9, 2009 مشاركة قام بنشر سبتمبر 9, 2009 (معدل) السلام عليكم الاخ خبور الاخوة الاعضاء هذا ملف تجربيبي و هو يعمل ليوم واحد (تحت التجريب) **** ملاحظه مهمه (عند غلق الملف اختر حفظ التعديلات نعم) فكره الملف تقوم على: 1- تشغيل كود عند الفتح (بحيث يحفظ تاريخ فتح الملف في الخليه A1) 2- عند غلق الملف يقوم كود ( حملته من موقع Ozgrid) بحذف الكود السابق(لنحصل لعى تاريخ ثابت عند اعادة تشغيل الملف) **اذا كانت الفكره سليمه نستطيع ان نحدد عدد الايام التى نريد لعمل الملف ********************* باسوورد الملف 123456 وضعته على اعتبار انه سيكون من واجبات العمل على الملف الاصلى demo.rar تم تعديل سبتمبر 9, 2009 بواسطه ابو اسامة العينبوسي رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر سبتمبر 9, 2009 مشاركة قام بنشر سبتمبر 9, 2009 (معدل) الاخ الفاضل : ابو اسامة بارك الله فيك ودائما الى الامام وهذا الموضوع فعلا يحتاج الى التطوير والابداع منكم وان يتم ادراجة فى موضوع منفصل بذاته تم تعديل سبتمبر 9, 2009 بواسطه safwatscc رابط هذا التعليق شارك More sharing options...
moh250 قام بنشر سبتمبر 10, 2009 الكاتب مشاركة قام بنشر سبتمبر 10, 2009 السلام عليكم ورحمة الله الاخ العزيز / اسامة زاد الله كل خير و زادك علما على توضيح فكرة الDEMO من فضلك اريد اجابة طرحتها من قبل و هى : بالنسبة للسؤال الاول : برجاء توضيح كيفية الحصول على دورات تعليمية للvba ؟؟؟؟؟ اى مراجع او اسطوانات تعليمية (بالعربى) لتعلم الvba بالنسبة للسؤال الثانى : Z = .Cells(10000, 2).End(xlUp).Row + 1 المعنى آخر صف في العمود رقم 2 ابتداءاً من الصف 10000 الى اعلى زايدا صف واحد و على سبيل المثال انا لو عايز ابدأ من الصف الثالث او الصف الرابع برجاء التوضيح بمثال بالنسبة للسؤال الثالث : كيف اجعل شيت الاكسل demo اى تعمل لمدة يومان ثم تتوقف ؟؟؟؟؟ 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.