اذهب الي المحتوي
أوفيسنا

a.kawkab

02 الأعضاء
  • Content Count

    50
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

10 Good

1 متابع

عن العضو a.kawkab

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    cairo
  • بلد الإقامة
    مصر

وسائل التواصل

  • Yahoo
    a.kawkab@yahoo.com

اخر الزوار

268 زياره للملف الشخصي
  1. مطلوب كود حفظ عدد معين من الشيتات في ملف العمل بصيغة xlsm الملف المرفق به 7 شيتات المطلوب حفظ عدد معين من الشيتات وليكن شيت1وشيت2 وشيت4 وشيت7فى ملف منفصل بنفس اسماء الشيتات المطوب حفظها والملف يكون بنفس اسم الملف الاساسى بتاريخ يوم الحفظ مثلا Ahmed12/2019 orAhmed13/12/2019 Ahmed.xlsx
  2. السلام عليكم اخى الكريم فوزى اولا : انت لم تحدد فى طلبك ان الطباعة لاكثر من شيت ثالثا : وهو الاهم اليك فورم طباعة لماتريد لعله يفى بطلبك Ahmed1.xlsm
  3. السلام عليكم اليك ماتريد لعل الملف المرفق يفى بالغرض Ahmed.xlsm
  4. بارك الله فيك استاذ مجدى وجزاك الله خير الثواب
  5. تم تعديل الاستعلام بالحلقات التكرارية شكرا للاستاذ العيدروس لتعديله للكود وتم تنشيط رقم المسلسل ويعمل بانتطام مرقق رابط مباشر للملف بعد التعديل الاخير 101استعلام عن طريق الاسم (4) .xlsm
  6. فى خدث combobox3 dيوجد الكود التالى اكمل ال case لباقى الشيتات بنفس الطريقة وارجوا من اساتذة المنتدى الافاضل التكرم بتحويل هذا الكود الى حلقة تكرارية توفيرا للوقت والجهد ()Private Sub ComboBox3_Changet On Error Resume Next Dim ws As Worksheet Dim aa As String aa = ComboBox3.Value T = Cells(Rows.Count, 1).End(xlUp).Row TextBox1 = Val(Cells(T, 1)) + 1 ""=Me.ComboBox1.RowSource ""=Me.ComboBox2.RowSource ""=Me.ComboBox1.Text ""=Me.ComboBox2.Text For Each ws In ThisWorkbook.Worksheets If ws.Name = Me.ComboBox3.Value Then Sheets(aa).Select Select Case Me.ComboBox3 "Case "101 "Me.ComboBox1.RowSource = "name1 Me.ComboBox2.RowSource = "data1 "Case "102 "Me.ComboBox1.RowSource = "Name2 "Me.ComboBox2.RowSource = "data2 "Case "Sheet2 "Me.ComboBox1.RowSource = "sama "Me.ComboBox2.RowSource = "asd End Select End If Next End Sub
  7. عفوا اخى الكريم الفورم موجود ويعمل بصورة جيدة اعدت تحميله لك مرة اخرى لاتفتحه بواسطة drive لان ذلك يؤدى لاختفاء الفورم حمله على الجهاز ثم فك الضغط ورب ضارة نافعة فقد عدلت لك كود الطباعة بالحلقات التكرارية ليعمل على جميع الصفحات بسهولة مرفق الرابط الجديد https://drive.google.com/file/d/1lejWvh6cW2-UaV0THDPOe_iHA_D0AYzj/view?usp=sharing 101استعلام عن طريق الاسم (3) .xlsm
  8. السلام عليكم تم عمل فورم للطباعة وتم تطبيق العمل على الوراق من 101 : 106 عليك اكمال باقى الاوراق او الاستعانة باخد الاساتذة من الموقع لتحويل الكود الى صيغة تكرارية 101استعلام_عن_طريق_الاسم_(3)_.xlsm
  9. السلام عليكم تم التعديل ولكن بالنسبة للاستعلام فتم عمل 3 شيتات لضيق الوقت اكمل باقى الشيتات بنفس الطريقة 101استعلام عن طريق الاسم (3) .xlsm
  10. السلام عليكم تم التعديل/ مرفق الملف 101استعلام عن طريق الاسم.xls
  11. شكرا جزيلا استاذنا الفاضل لقد اقضت واضبت زادك الله بسطة فى العلم وحفظك من كل سوء
  12. استاذنا الفاضل ا/ سليم شكرا لمجهودك واود الا ان اكون اثقلت على حضرتك لقد تم المطلوب بفضل مجهودكم ولكن طلب منى فى العمل ان يكون ترحيل البيانات مصحوبا بالمعادلات الموجودة فى شيت مجانى وليس ترحيل قيم فقط فهل اطمع فى كرم حضرتكم ان تعدل الكود بحيث يتم ترحيل البيانات من شيت مجانى الى شيت salim مصحوبا بالمعادلات وليس قيم فقط وشكرا لسعة صدركم
  13. شكرا استاذنا الفاضل استاذ سليم وجزاك الله خيرا وزادك بسطة فى العلم لقد تعلمت منكم الكثير ولكنى احب ان افهم الاكواد قبل نقلها لذلك سؤالى بسيط ورد فى كودكم #Dim R#, i#, m R = Maj.Cells(Rows.Count, "Z").End(3).Row Sal.Range("A2", Range("A1").End(4)).ClearContents مامعنى # فى السطر الاول ومعتى( end(3 قى السطر الثانى وشكرا (هل تعنى( end(xl up ومعنى (end(4 فى السطر الثالث وشكرا لكم
×
×
  • اضف...