ترحيل بيانات

[moh250]

السلام عليكم و رحمة الله برجاء المساعدة

السؤال الاول : ترحيل بيانات بشكل معين و اليكم الملف المرفق

السؤال الثانى : كيف اختار بداية الصف الذى اريدة فى الترحيل و الشرح ؟؟؟؟؟؟؟؟

Z = .Cells(10000, 2).End(xlUp).Row + 1

tran.rar

[عبدالله باقشير]

السلام عليكم

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 بواسطه خبور خير

[خالد القدس]

السلام عليكم

استاذي بروفسير خبور زادك الله خير على خير ورفعة فوق رفعة وفضل على فضل

[moh250]

الاستاذ خبور جزاك الله كل خير

برجاء توضيح كيفية الحصول عاى دورات تعليمية للvba ؟؟؟؟؟

السؤال الثانى : كيف اجعل شيت الاكسل demo اى تعمل لمدة يومان ثم تتوقف ؟؟؟؟؟

[عبدالله باقشير]

السلام عليكم

اخي الحبيب/ خالد القدس ربنا يعطيك امثال دعائك اضعاف مضاعفة

الاخ/ MOH

برجاء توضيح كيفية الحصول عاى دورات تعليمية للvba ؟؟؟؟؟

الله اعلم

السؤال الثانى : كيف اجعل شيت الاكسل demo اى تعمل لمدة يومان ثم تتوقف ؟؟؟؟؟

لم افهم ما تعنيه من هذا السؤال

[moh250]

السلام عليكم ورحمة الله

الاخ العزيز / خبور زاد الله كل خير و زادك علما

بالنسبة للسؤال الاول : برجاء توضيح كيفية الحصول على دورات تعليمية للvba ؟؟؟؟؟ اى مراجع او اسطوانات تعليمية (بالعربى) لتعلم الvba

بالنسبة للسؤال الثانى :

Z = .Cells(10000, 2).End(xlUp).Row + 1

المعنى آخر صف في العمود رقم 2 ابتداءاً من الصف 10000 الى اعلى

زايدا صف واحد

و على سبيل المثال انا لو عايز ابدأ من الصف الثالث او الصف الرابع برجاء التوضيح بمثال

بالنسبة للسؤال الثالث : كيف اجعل شيت الاكسل demo اى تعمل لمدة يومان ثم تتوقف ؟؟؟؟؟

1- كيفية عمل فورم يوزر نيم و باسورد للدخول على الشيت

2 - جعل الشيت مؤقت يعمل لمدة يومان من تاريخ الدخول

[safwatscc]

الاخ الغالى خبور خير

x = sheets("scc7").Cells(Rows.Count, 2).End(xlUp).Row + 1

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

يقوم بترحيل البيانات ابتداء من الصف التاسع   مش فاهم ازاى اغير بداية الترحيل مثلا انا عايزة يبدا من الصف 15 او من الصف 20 

الله يكرمك  ممكن توضح ازاى اغير فى الصف

[إياد جمعة]

تياتي لك على هذا الموضوع الرائع

[ابو اسامة العينبوسي]

السلام عليكم

الاخ خبور

الاخوة الاعضاء

هذا ملف تجربيبي

و هو يعمل ليوم واحد (تحت التجريب)

**** ملاحظه مهمه (عند غلق الملف اختر حفظ التعديلات نعم)

فكره الملف تقوم على:

1- تشغيل كود عند الفتح (بحيث يحفظ تاريخ فتح الملف في الخليه A1)

2- عند غلق الملف يقوم كود ( حملته من موقع Ozgrid) بحذف الكود السابق(لنحصل لعى تاريخ ثابت عند اعادة تشغيل الملف)

**اذا كانت الفكره سليمه نستطيع ان نحدد عدد الايام التى نريد لعمل الملف

*********************

باسوورد الملف 123456 وضعته على اعتبار انه سيكون من واجبات العمل على الملف الاصلى

demo.rar

تم تعديل سبتمبر 9, 2009 بواسطه ابو اسامة العينبوسي

[safwatscc]

الاخ الفاضل : ابو اسامة

بارك الله فيك

ودائما الى الامام

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

وان يتم ادراجة فى موضوع منفصل بذاته

تم تعديل سبتمبر 9, 2009 بواسطه safwatscc

[moh250]

السلام عليكم ورحمة الله

الاخ العزيز / اسامة زاد الله كل خير و زادك علما على توضيح فكرة الDEMO من فضلك اريد اجابة طرحتها من قبل و هى :

بالنسبة للسؤال الاول : برجاء توضيح كيفية الحصول على دورات تعليمية للvba ؟؟؟؟؟ اى مراجع او اسطوانات تعليمية (بالعربى) لتعلم الvba

بالنسبة للسؤال الثانى :

Z = .Cells(10000, 2).End(xlUp).Row + 1

المعنى آخر صف في العمود رقم 2 ابتداءاً من الصف 10000 الى اعلى

زايدا صف واحد

و على سبيل المثال انا لو عايز ابدأ من الصف الثالث او الصف الرابع برجاء التوضيح بمثال

بالنسبة للسؤال الثالث : كيف اجعل شيت الاكسل demo اى تعمل لمدة يومان ثم تتوقف ؟؟؟؟؟

1- كيفية عمل فورم يوزر نيم و باسورد للدخول على الشيت