الـعيدروس

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

السلام عليكم جزاكم الله خير استاذ عبدالله واستاذ محمد يحياوي وهذا كود اخر Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A2:A500")) Is Nothing Then Target.Offset(0, 1).Resize(1, 3).Interior.Color = Target.Interior.Color End If End Sub

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

السلام عليكم الاخ الفاضل حاجب طلبك يحتاج روقان ووقت وللاسف حاليا الوقت لايوجد عندي وبالنسبة للملف علية ملاحظات وخلايا لااعرف ماهيا وماعملها لاني لست انا من قام بعمله انا اقصد ترفق مثال وعليه شكل الفورم كيف تريده والظاهر اني فهمت طلبك خطاء انا كنت اضن انك تريد فورم فاتورة كأي فاتورة شراء او مبيعات المعروفة في اكثر البرامج والافضل عند طرح موضوع تبداء بفكرة بسيطه ومن ثم نتدرج حبه حبه حتى نصل لما تريده وزيادة وعلى العموم السموحه على الاطاله اطلع على المرفق هذا عمل للاستاذ الحبيب عادل حنفي ان شاء الله يفيدك Invoice full pic.rar

السلام عليكم ماهو vcf ارجو ارفاق مثال من ملفات هذه الصيغة

السلام عليكم جرب المرفق وهل هذا ماتريده وبالنسبة لاستعراض الجدول ربما عرض بيانات الجدول في الليست تقوم مقامه ولاكن الرأي رأيك انتظر ردك تحياتي ALIDROOS_JC_1.rar

مرفقك هو حل التصفية المتقدمة جزك الله خير

السلام عليكم الاخ الفاضل احمد السموحه منك السهر باين عليه مؤثر فينا تفضل هذا الكود Sub ALIDROOS_JC() Dim ish As Worksheet Dim SRH_ALI As Range Application.ScreenUpdating = False Range(Cells(6, 1), Cells(Rows.Count, 42)).ClearContents ALI = [A2].Value If ALI = "" Then MsgBox "سطر فارغ": [A2].Select: Exit Sub With ورقة18.Range("AP8:AP25000") Set SRH_ALI = .Find(ALI, LookIn:=xlValues) If Not SRH_ALI Is Nothing Then firstAddress = SRH_ALI.Address Do SRH_ALI.Offset(0, -41).Resize(1, 42).Copy ورقة1.Range("A6:A" & ورقة1.Range("A65536").End(xlUp).Row + 1).PasteSpecial xlPasteValues Set SRH_ALI = .FindNext(SRH_ALI) Loop While Not SRH_ALI Is Nothing And SRH_ALI.Address <> firstAddress MsgBox " تم جلب التقرير بنجاح", vbInformation, "الحمد لله" Application.ScreenUpdating = True Else MsgBox "القيمة المدخلة خطاء أعد الإدخال وتأكد من حالة الأحرف" Exit Sub End If End With End Sub وهذه المرفقات للعلم بالامكان عمل الفرز بالتصفية المتقدمة مطلوب فرز ALIDROOS.rar

ماهو عمود الفرز ============================ حيث /ان الرفم (1) يساوى ناجح "إقتباس" ============================ في اي عمود هذا الرقم

مزيد من التوضيح ارفق مثال وان شاء الله نتوصل لما تريد

السلام عليكم انظر المرفق dd.rar

السلام عليكم حط هذا الكود في حدث ورقة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Or Target.Row < 2 Then Exit Sub If Not Intersect(Target, Range("E3:E5000")) Is Nothing Then Dim R_ALI As Range Set R_ALI = Range("B3:B5000") With R_ALI Set C = .Find(Target.Value, , LookIn:=xlValues, lookat:=xlWhole) If Not C Is Nothing Then Target.Offset(0, -1).Value = C.Offset(0, -1).Value Else MsgBox "إدخال خاطئ", vbInformation, "تنبية !!!" Exit Sub End If End With End If End Sub

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

او في حدث open Private Sub Workbook_Open() Sheets("الرئيسية").Select End Sub

السلام عليكم الكود يعمل مزبوط

السلام عليكم جزاك الله خير اخي اباالحسن اعمال استاذنا الحبيب عادل حنفي كلها مميزة تقبل مروري

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

السلام عليكم الاخوة الاحبه من اساتذة واعضاء اقدم لكم هذا الملف عبارة عن حزمة تشغيل الملفات 2007 ذات تنسيق xlms في اوفيس 2003 xls وهو موجود في موقع microsoft وربما يكون موجود في المنتدى مسبقاً وانما توفير جهد البحث لمن يحتاجه هذا رابط من شركة microsoft http://www.microsoft.com/downloads/details.aspx?displaylang=ar&FamilyID=941b3470-3ae9-4aee-8f43-c6bb74cd1466 تحياتي

السلام عليكم جزاك الله خير استاذ عبدالله على هذه الروائع بالنسبة للتحكم في الليبلات 24 عن طريق ليبل LabelEvent لاكن ماهيا الالية لااعلمها وانما استخدمت هذا الكود لاحرك مكان ليبل LabelEvent في الفورم وقت التنفيذ ازحته عن بقية الليبلات اضغط على احد المربعات لايظهر الصور Dim C_ALI As Boolean Private Sub UserForm_Initialize() C_ALI = False End Sub Private Sub LabelEvent_Click() If C_ALI = True Then C_ALI = False Else C_ALI = True End If End Sub Private Sub LabelEvent_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If C_ALI = True Then LabelEvent.Left = LabelEvent.Left + X LabelEvent.Top = LabelEvent.Top + Y End If End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If C_ALI = True Then LabelEvent.Left = X LabelEvent.Top = Y End If End Su واما اللغز في التحكم الفعلي لااعلم

السلام عليكم جزاكم الله خيرا

السلام عليكم تفضل Sub ALIDROOS_JC() With ورقة4.Columns(2).Rows(65536).End(xlUp) .Offset(1, 0) = [D12] .Offset(1, 1) = [S12] .Offset(1, 2) = [E14] .Offset(1, 3) = [E14] .Offset(1, 4) = [AB15] .Offset(1, 5) = [AL13] .Offset(1, 6) = [E15] .Offset(1, 7) = [P14] .Offset(1, 8) = [R20] & " " & [Y20] & " " & [AC20] _ & " " & [AD20] & " " & [AF20] & " " & [AI20] & " " & [AJ20] End With MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "تم الترحيل" End Sub

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

ماصيغة الملف المرفق ؟؟ لايفتح عندي ربما اوفيس 2010 نرجو تحويله لااوفيس 2003 لان جهازي الحالي 2003

الف الف مبروك تستاهل كل خير مزيد من الرقي ان شاء الله تقبل مروري

ملفك بطئ يهنج الجهاز عندي حط الكود في مودويل واضغط مفتاح ALt + F8 انقر على الماكرو ثم زر تشغيل بعدها اضغط CTRL + F2