yasse.w.2010

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

الاساتذه الكرام السلام عليكم ورحمة الله وبركاته ارجو من حضراتكم تعديل هذا الكود بحيث عند نسخ الشيت يتم اضافته في اخر شت وليس بعد شيت رقم 10 شاكر جدا لكم Sheets("نموذج").Select Sheets("نموذج").Copy After:=Sheets(10) Range("C4").Select

الف الف شكر استاذ علي الف شكر منتدى اوفسينا

الساده الاساتذه الكرام السلام عليكم ورحمة الله وبركاته يوجد عندي استفسار بخصوص اظهار ايقونة الالوان في الاكسيل حيث ان الشاشه عندي فول اسكرين ويجب وضع زر عند الضغط عليه يفتح مربع الالوان لاختيار اللون هل ممكن افادتي في ذلك

الف شكر لحضرتك عملت ال حضرتك قولته والملف اشتغل جزاك الله خيرا الف شكر منتدى اوفسينا

كود يبحث داخل الملفات وهي مغلقة معدل.rar السلام عليكم ورحمة الله وبركاته الاساتذه الكرام ارجو من سيادتكم التعديل على الكود الموجود في ملف داتا بحيث يعمل لصق للبيانات بصيغة Paste:=xlPasteValues لصق بدون تنسيق الخلايا شاكر لكم جدا مع العلم بان الملف يعمل ولاكن ( بيعمل لصق للبيانات بتنسيق الخلايا وايضا بالمعادلات - و المعادلات مرتبطه بملفات اخري ) الكود موجود في مديول ميكرو رقم 1 في شيت داتا ممكن حضرتك تعدلي في الكود ده بحيص يجلب البيانات من الشيتات المغلقه التي اسمها reservation بحيث الملفات بها اوراق عمل كثيره لا يجلب البيانات الا من ورقت العمل التي اسمها reservation DATA.xlsm

الف شكر لحضرتك وضعن الكود ويعمل بشكل رائع الف شكر منتداي الغالي اوفسينا

الساده الاستاذه الكرام مرفق لحضارتكم ملف به كود يجلب اسماء الشيتات في الكومبو بوكس ويعمل بشكل جيد مطلوب من من سيادتكم تعديل الكود بحيث يستثني ورقه رقم 8 و ورقه رقم 7 مع الشرح شاكر لكم جدا 11111.xlsm

الف شكر جدا لكم ..شكرا للاساتذه الكرام ...شكرا موقع اوفسينا

السلام عليكم ورحمة الله وبركاته الاساتذه الكرام ارجو المساعده في هذا الشيت حيث انه عند وضع اي معادلة جمع وبالاخص سابتوتل لا يرى الخلايه المصنف1.xlsx

السلام عليكم ورحمة الله وبركاته - الساده الاعضاء المحترمين ...كل عام وحضراتكم بخير ...ارجو منكم المساعده في معرفة التالي 1 - طريقة حساب نسبة تامين عقد المؤسسة الخاص بالحج حيث انه لو فرضنا ان اجمالي العقد 10000 الف ريال كم المبلغ المفروض ان يوضع في البنك بعد خصم قيمة التامين ...شاكر لكم جدا

استاذنا الفاضل مرفق ملف ارجو المساعده به عند كتابة عمرة يتم تلوين الخليه الفارغة اسفلها الخليه فارغه ولا تحتوي على اي شيء تلوين2.xlsx

ارجو من الاساتذة الكرام المساعدة في عمل تلوين شرطي ...و مرفق ملف به الشرح وارجو تلوين خلية فارغة عند كتابة مثلا ( احمد ) يقوم التنسيق الشرطي بتلوين الخلية الفارغة اسفلها تلوين.xlsx

Sub تحديث_الشيت() Application.CalculateFull End Sub اعمل مديول وضع فيه هذا الكود Private Sub Worksheet_Activate() Call تحديث_الشيت End Sub وضع هذا في حدث الشيت

السلام عليكم .. فلابد من التحية عند بدء المشاركة ,الاساتذه الكرام ممكن تعديل على هذا الكود بحيث يقبل البحث باي حرف في الاسم بالكامل وكذا عند الكتابه تظهر الاسماء اسفل الكمبوبوكس ..شاكر لكم جدا القائمة بالكومبوبوكس.xlsm

الف شكر استاذ محمد يعمل بشكل رائع الف شكر منتدي اوفسينا الغالي

الساده الاساتذه السلام عليكم ورحمة الله وبركاته هل من طريقه في التيكيست بوكس بحيث عند وضع مؤشر الماوس بداخله يمسح ما فيه شاكر لكم جدا

الاساتذه الكرام السلام عليكم ورحمة الله و بركاته ..ارجو من حضارتكم التعديل على هذا الكود بحيث يبحث باي حرف في اي كلمة ارجو من حضارتكم التعديل على هذا الكود بحيث يبحث باي حرف في اي كلمة ...بمعني ( احمد علي خليل ) ممكن ابحث بحرف أ او ع او خ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim xCombox As OLEObject Dim xStr As String Dim xWs As Worksheet Dim xArr Set xWs = Application.ActiveSheet On Error Resume Next Set xCombox = xWs.OLEObjects("DropListTemp") With xCombox .ListFillRange = "" .LinkedCell = "" .Visible = False End With If Target.Validation.Type = 3 Then Target.Validation.InCellDropdown = False Cancel = True xStr = Target.Validation.Formula1 xStr = Right(xStr, Len(xStr) - 1) If xStr = "" Then Exit Sub With xCombox .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Width + 5 .Height = Target.Height + 5 .ListFillRange = xStr If .ListFillRange = "" Then xArr = Split(xStr, ",") Me.DropListTemp.List = xArr End If .LinkedCell = Target.Address End With xCombox.Activate Me.DropListTemp.DropDown End If End Sub Private Sub DropListTemp_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Select Case KeyCode Case 9 Application.ActiveCell.Offset(0, 1).Activate Case 13 Application.ActiveCell.Offset(1, 0).Activate End Select End Sub بحث (2).xlsm

الاستاذ الفاضل : حسين مامون ..شاكر لك جدا على تعب حضرتك ..لو امكن ممكن التعديل على كود التاريخ بحيث يكون بصيغة yyyy / mm / dd في التعديل و الترحيل و البحث والف شكر لسيادتك

جميل جدا جدا استاذ حسين الف شكر لحضرتك وارجو من حضرتك عمل زر ادراج حجز شاكر لك جدا وكذالك تفعيل زر البحث ..وعند الحذف لا يحذف الصف كاملا بل يمسح محتويات الخلايا التي في الصف ققط والف شكر لحضرتك ..كذلك تفعيل التعديل على الحجز 1 - ادراج حجز 2 - تعديل حجز 3- حذف حجز ( ولا يحذف مسلسل الحجز - فقط البيانات التي في الصف ) 4- بحث حجز عند ادخال رقم الججز وعمل بحث لا ياتي بالنتائج

السلام عليكم و رحمة الله وبركاته الاساتذه الكرام ممكن تكملة كود الفروم ( البحث - التعديل - الحذف ) هوه فرم ادخال صغير شاكر لكم جدا على مساعدتكم لي شكرا منتدي اوفسينا فورم ادخال بيانات ديناميكى (1).xlsm

لقيت الكود ده ووضعته في حدث الصغحة من احد مشاركتكم على اوفسينا واشتغل الف الف شكر لحضرتك وعلى اهتمامكم الف شكر الف شكر منتدايا الغالي اوفسينا Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("c2").Select End Sub

مرسل لحضرتك ملف ..الكود لا يعمل ..ممكن اكون كش عارف طريقة وضعه ...ارجو من حضرتك تفعيله ..اريد عند فتح الشيت الخليه c2 تكون عليها وكذا لا يتم التحرك لاي خليه اخري في الشيت ورقة عمل Microsoft Excel جديد.xlsm

السلام عليكم ورحمة الله وبركاته الاساتذه الكرام موع اوفسينا الغالي ارجو منكم المساعدة في التعديل في هذا الكود هذا الكود اضعه في حدث الشيت ويقف في الخلية c2 عند الدخول للشيت هل ممكن التعديل بحيث يظل واقف على هذه الخليه ولا يتحرك منها Private Sub Worksheet_Activate() Range("c2").Select End Sub شاكر لكم جدا

الف شكر لحضرتك الف شكر منتدي اوفسينا الف شكر