ادخال البيانات وترحليها من خلال ملف اكسل وليس من خلال الفورمة

[ابو عبدالرحمن البغدادي]

السلام عليكم - حياكم الله

ممكن ادخال البيانات من خلال ورقة الاكسل وترحيلها الى الشيت المطلوب

فعندي ملف يحتوي على واجهة وأزرار - فإذا ذهبنا الى زر البحث وأدخلنا البيانات المطلوبة فهل يمكن ترحيلها الى الشيت المطلوب من خلال هذه الورقة

ورافق ملف بهذا الموضوع

بارك الله فيكم وبيض وجوهكم

 

[عبد العزيز البسكري]

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

أخي الفاضل " أبو عبد الرّحمن البغدادي "

إعْملْ حسابكْ

بقدرة المولى القدير .. ثم بقدرة أساتذة "أوفيسنا" الأكارم بإمكانهم ترحيل جهازك من أمامك إلى غرفة أخرى عبر ذبذبات الأثير

باسم الله .. تبارك الله

طبعًا يمكن .. أخي الغالي

فائق إحتراماتي

[ابو عبدالرحمن البغدادي]

بيض الله وجهك - وغفر ذنبك - ويرحم والديك - افرحتني افرح الله ايامك  اشكرك يا غالي 

 

هذا هو الملف ، من خلال شيت البحث تدخل البيانات وترحل الى الشيت المطلوب

 

http://www.up-00.com/?vBzL

تم تعديل ديسمبر 1, 2015 بواسطه ابو عبدالرحمن البغدادي

[الـعيدروس]

السلام عليكم

تفضل

Public Sub Alt_Trhil()
Dim S As Worksheet
T = CStr(Trim([b2])) '' خلية اسم الورقة المراد الترحيل اليها
Set S = Sheets(T)
With S
L = .Cells(.Rows.Count, 7).End(xlUp).Offset(1, 0).Row
C = 7
For Each r In ActiveSheet.Range("B3:B26,D2:D26")
    If C = 31 Then C = C + 1: .Cells(L, C) = r: C = C + 1
Next
End With
Set S = Nothing
End Sub

 

[ابو عبدالرحمن البغدادي]

السلام عليكم

ممكن وفقكم الله خطوات ادراج الكود وشرحه

[ياسر خليل أبو البراء]

أخي الكريم أبو عبد الرحمن

لك الكثير من الموضوعات ومازلت تجهل أين يوضع الكود ؟؟!!!

عموماً إليك الرابط التالي فيه البدايات .. أنا لا أطلب منك أن تتعلم الأكواد ولكن على الأقل تعرف كيف تتعامل معها وتضعها داخل موديول (دعك من الملفات الجاهزة وفقط .. تقدم خطوة للأمام)

من هنا

[الـعيدروس]

السلام عليكم

اخي ابو عبدالرحمن البغدادي

اتمنى ان عرفت طريقة العمل عبر مشاركت الاخ والاستاذ ياسر خليل

وان لديك ملاحظات اطرحها ولاتتردد

تحياتي

[ابو عبدالرحمن البغدادي]

السلام عليكم

اجب توضيح الآتي : كل الخطوات التي بينها الأخ ياسر عملتها ، ولكن الكود لا يعمل ، واستحي أن أقول الكود لا يعمل ، فأطرح مشكلتي باسلوب بأني لا أعرف ، لأن سرعة الرد على سؤالي وتفاعل الاخوة مع اسئلتي اضع اللوم على نفسي واطرح المشكلة من جديد ، وأسال الله العظيم أن يوفق الأخ العيدروس وأن يزيده من فضله وعلمه وحسن اللطف معنا واشكر الأخ عبدالعزيز البسكري كذلك لطفه واشكر الأخ ياسر ابو البراء على شحن الهمة للتعلم - وفقكم الله وسلمكم وحفظكم وميزان اعمالكم ، وأحب أن اتعلم وتعلمت من هذا المنتدى جزاء الله العاملين عليه لما يقدموه من الاجابات والحلون وتعليم الناس

الأخ ياسر ابو البراء : ممكن اذا عندك عتاب او نصيحة أو توجيه ان ترسله على الخاص - النصحية على الخاص تكون وقعه على الشخص افضل

شكرا

تم تعديل ديسمبر 2, 2015 بواسطه ابو عبدالرحمن البغدادي

[الـعيدروس]

اخي الكريم ابو عبدالرحمن

المرفق الاول توضيح

والاخر ملفك وبه الكود

وزر ترحيل انقر عليه لتشغيل الكود

تقبل تحياتي وشكري

توضيح.rar

برنامج الوزارات مرتب على واجهة تحتوي على ازرار_111.rar

[ابو عبدالرحمن البغدادي]

تمام  - جزيت خيرا

اشكرك يا طيب - ممنون