اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :محمد الدسوقى
عدد النتائج (196) نتيجة
22-10-2018 08:54 مساء
icon أحدث إصدار لشيت كنترول ابتدائى 2018 ـ مدارس رسمية ولغات | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
 انتظرونا قريبا سيتم الاعلان عن الاصدار الرابع الجديد لبرنامج الكنترول المدرسى وشئون الطلبة
بالتعديلات الوزارية الاخيرة بالقرار 360
 
20-10-2018 08:45 مساء
icon استيراد بيانات من ملف خارجي محدد- ملف البيانات- | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
الحمد لله الذى بنعمته تتم الصالحات

19-10-2018 12:02 صباحا
icon استيراد بيانات من ملف خارجي محدد- ملف البيانات- | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
ما هى رسالة الخطأ
راجع الكود جيدا ربما أنك
تستخدم أسماء أوراق عمل مختلفة
أو نسخ نطاقات مختلفة
أو امتدادات لملفات مختلفة عن الكود
---------------------
أرفق ملف العمل إن أمكن ،  للتطبيق عليه

 
18-10-2018 09:30 مساء
icon استيراد بيانات من ملف خارجي محدد- ملف البيانات- | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 وجزاكم اخى الكريم على
18-10-2018 08:58 مساء
icon استيراد بيانات من ملف خارجي محدد- ملف البيانات- | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
تفضل أخى الكريم
الكود التالى انسخه و ضعه فى موديول عادى واربطه بالزر الموجود فى ملف الاستيراد


Sub M_D()
    Dim sh As Worksheet
    Dim wkb As Workbook
    Dim MD1, MD2 As Variant
    Set sh = Sheets("استيراد")
    Application.ScreenUpdating = False
'------------------------------------------------
    Set wkb = Workbooks.Open(ThisWorkbook.Path & "\ملف البيانات.xlsm")
         lr = wkb.Sheets("dataa").Cells(Rows.Count, 4).End(xlUp).Row
     Set MD1 = wkb.Sheets("dataa").Range("B7:D" & lr)
     Set MD2 = wkb.Sheets("dataa").Range("E7:J" & lr)
                 MD1.Copy
'------------------------------------------------
    Windows("استيراد.xlsm").Activate
    sh.Activate
   Range("A12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'------------------------------------------------
Windows("ملف البيانات.xlsm").Activate
wkb.Activate
MD2.Copy
Windows("استيراد.xlsm").Activate
    sh.Activate
   Range("K12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
'------------------------------------------------
Range("A6").Select
'------------------------------------------------
    Application.CutCopyMode = False
     wkb.Close SaveChanges:=True
Application.ScreenUpdating = 1
End Sub

-------------------------------------------------
وإليك ملف التطبيق 
لابد أن يكون ملف الاستيرادج وملف البيانات فى مجلد واحد
------------------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
------------------------------------
 
15-10-2018 04:27 مساء
icon حصرياً : الإصدار الأحدث من برنامج Total Excel Converter 5.1.0.255 Full | الكاتب :محمد الدسوقى |المنتدى: اكسيل شروحات ودروس
 
جزاكم الله خيرا أخى الكريم

06-10-2018 09:34 مساء
icon ضبط كود التعديل داخل الفورم | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
أستاذ / هانى
لماذا عرضت هذا الطلب فى مشاركة منفصلة عن الموضوع الأصلى لك فى مشاركة أخرى تحت عنوان ( تعديل كود الحذف )
فلماذا لا  يكون الموضوع متكامل حتى لا يتشتت الأعضاء
وعلى العموم استبدل كود التعديل فى ملفك بالكود التالى 
إن شاء الله شغال 100 %

Private Sub CommandButton2_Click()
Dim Ws As Worksheet, RG As String
Dim X As Range
Set Ws = Sheets("قائمة المعلومات")

RG = ComboBox5.Value
If RG = "" Then
MsgBox ("من فضلك أدخل  الاسم المراد تعديل بياناته"), 64, "Mohamed EL_Desouky"
Else
For Each X In Ws.Range("B3:B" & Ws.Range("A" & Rows.Count).End(xlUp).Row)
On Error Resume Next
If X.Value = RG Then
Ws.Activate
X.Select
'-------------------------------------------
ActiveCell.Offset(0, -1).Value = TextBox1.Text
ActiveCell.Offset(0, 0).Value = TextBox2.Text

ActiveCell.Offset(0, 1).Value = ComboBox1.Text

ActiveCell.Offset(0, 2).Value = TextBox3.Text
ActiveCell.Offset(0, 3).Value = TextBox4.Text
ActiveCell.Offset(0, 4).Value = TextBox5.Text
ActiveCell.Offset(0, 5).Value = TextBox6.Text
ActiveCell.Offset(0, 6).Value = TextBox7.Text

ActiveCell.Offset(0, 7).Value = ComboBox2.Text
ActiveCell.Offset(0, 8).Value = ComboBox3.Text
ActiveCell.Offset(0, 9).Value = ComboBox4.Text

ActiveCell.Offset(0, 10).Value = TextBox8.Text

ActiveCell.Offset(0, 11).Value = TextBox9.Text
ActiveCell.Offset(0, 12).Value = TextBox10.Text
End If
Next
MsgBox ("تم تعديل البيانات بنجاح"), 64, "Mohamed EL_Desouky"
End If
   Empty_Controls
   TextBox2.SetFocus
   TextBox1.Text = ""
End Sub
06-10-2018 02:37 مساء
icon ضبط كود الحذف داخل الفورم | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
أستاذ / هانى
الحمد لله الذى بنعمته تتم الصالحات
ولكم بمثل ما دعوت لى وزيادة
وإن شاء الله فى أفرب وقت سأعمل على الطلب الثانى
وذلك لضيق الوقت جدا بسبب الانشغال الدراسة وهمومها

 
06-10-2018 01:53 صباحا
icon ضبط كود الحذف داخل الفورم | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
الأستاذ / هانى على
   تم التعديل على كود الحذف الموجود فى الفورم الأصلى لمشاركتك الأولى
بحيث أنه إذا تم اختيار الاسم المراد حذفه من الكمبوبوكس وضغطت على زر ( حذف )
سيتم حذف بيانات الصف الموجود به هذا الاسم كاملا
-----------------------
وتم التعديل البسيط على الفورم 
تم حذف زر ( بحث ) الموجود أسفل الكمبوبوكس ) الموجود به الأسماء
وتم التعديل بحيث أنه بمجرد اختيار الاسم من الكمبوبوكس يتم ملء جميع عناصر الفورم بالبيانات تلقائيا دون الحاجة إلى الضغط على زر البحث إلـ كان موجود
-------------------------
أرجو أن يكون هذا هو المطلوب
أما بالنسبة لطلبك بوجود زر ( إرسال ) لفتح ورقة ورد ـ قد يكون المطلوب غامض علىّ بعض الشئ فرجاء التوضيح 
هل تريد ورقة ورد لكل عميل على حده ؟؟
وأخيرا الملف بعد التعديل 
-----------------------------

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
-----------------------------
 
03-10-2018 10:37 مساء
icon فورم مميز للبحث | الكاتب :محمد الدسوقى |المنتدى: اكسيل مشاريع جاهزه
 
جزاك الله خيرا أخى الكريم

01-10-2018 10:23 مساء
icon بحث وتعديل لكل صفحه | الكاتب :محمد الدسوقى |المنتدى: اكسيل اسئله واجابات
 
أستاذى / نصر الإيمان
لم أفهم قصدك من المطلوب
ما فهمته من ملفك أن يقوم الكود بالبحث داخل كل صفحة على حده وهذا ما تم بالفعل داخل ملفك 
بدلا من عمل يوزرفورم بحث لكل صفحة على حده
استبدلته بيوزرفورم  واحد يقوم بالمطلوب
--------------
فإن كان ذلك أو قم بالتفصيل للمطلوب أكثر توضيحا

 
01-10-2018 09:57 مساء
icon كود إدراج فواصل صفحات وتحديد عدد الصفوف فى كل صفحة للطباعة | الكاتب :محمد الدسوقى |المنتدى: اكسيل شروحات ودروس
 
تحياتى أستاذى الفاضل الجليل / عبد الجيد
ومشكور مروركم العطر علينا الذى تفوح منه الأخلاق الطيبة والنفس الراضية
تقبل تحياتى

الصفحة 1 من 17 < 1 2 3 4 17 > الأخيرة »





الساعة الآن 09:36 صباحا

أعلن هنا
أعلن هنا
أعلن هنا