ابن الملك

عودا حميدا استاذى الغالى / ياسر خليل الف حمدلله على سلامة حضرتك علم وجارى تنفيذ المطلوب سوف اقوم بتجزءه السؤال . تقبل حياتى

أساتذتى الاعزاء بجد عمل رائع جدا جدا ولكن هل من الممكن من شرح الكود لنى حاولت أقراه لكن مفهمتش ولا حاجه سامحونى أنا مبتدأ جدا وانا محتاج فورم زى ده ممكن بعد أذنكم للى يقدر يساعد شرح الكود ولكن بالراحه معلش كلمه كلمة أنا عندى أعمده أكبر وأيضا بيانات أكثر ' عدد الاعمدة Private Const ContColmn As Integer = 11 ' تنسيق التاريخ Private Const DateFormt As String = "yyyy/mm/dd" Private sRng As Range Private sColmn Private Sub ButtonFind_Click() Dim MyValue Dim MyAr() As String Dim ib As Boolean Dim R As Integer, i As Integer, ii As Integer Dim MyColmnFind As Integer, LastRow As Integer Dim dt1 As Date, dt2 As Date '------------------------- MyColmnFind = Me.ComboFind.ListIndex + 1 If MyColmnFind = 0 Then Exit Sub If MyColmnFind = 3 Then Me.TextFind = "" '------------------------- Me.ListFind.Clear '------------------------- With sRng.Worksheet LastRow = .Range("A65536").End(xlUp).Row If IsDate(Me.TextDate1) Then dt1 = DateValue(Me.TextDate1) Else dt1 = WorksheetFunction.Min(.Range("C2").Resize(LastRow)): Me.TextDate1 = Format(dt1, DateFormt) If IsDate(Me.TextDate2) Then dt2 = DateValue(Me.TextDate2) Else dt2 = WorksheetFunction.Max(.Range("C2").Resize(LastRow)): Me.TextDate2 = Format(dt2, DateFormt) End With '------------------------- sColmn = "" With sRng For R = 2 To LastRow Select Case .Cells(R, 3).Value2: Case dt1 To dt2 ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 If ib Then sColmn = sColmn & R & " " ii = ii + 1 ReDim Preserve MyAr(1 To ContColmn, 1 To ii) For i = 1 To ContColmn If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) _ Else MyValue = .Cells(R, i).Value2 MyAr(i, ii) = MyValue Next End If End Select Next End With If ii Then '**************************************************** aad = Range("bb2:bl" & ii + 1).Address Range(aad) = WorksheetFunction.Transpose(MyAr) Range(aad).Sort key1:=[bd2] myar1 = Range(aad) For irt = 1 To UBound(myar1) myar1(irt, 3) = Format(Cells(irt + 1, "bd"), DateFormt) Next Me.ListFind.List = myar1: Me.ListFind.ListIndex = 0 Range(aad).Clear '******************************************************* End If End Sub Private Sub ButtonSaveFil_Click() Dim iC As Integer iC = Me.ListFind.ListCount If iC = 0 Then GoTo 1 '------------------------ Application.ScreenUpdating = False With Workbooks.Add(xlWBATWorksheet) With .Sheets(1) .Range("A1").Resize(1, ContColmn).Value = sRng.Value .Range("A2").Resize(iC, ContColmn).Value = Me.ListFind.List .UsedRange.Columns.AutoFit End With End With Application.ScreenUpdating = True Unload Me 1 End Sub Private Sub ButtonSelect_Click() Dim iNdx As Integer iNdx = Me.ListFind.ListIndex If iNdx = -1 Then GoTo 1 iNdx = Split(Trim(sColmn))(iNdx) Application.Goto sRng.Worksheet.Range("A" & iNdx) Unload Me 1: End Sub ' تعدي البحث بالتاريخ Private Sub ComboFind_Change() Dim vbol As Boolean vbol = CBool(Me.ComboFind.ListIndex + 1 = 3) Me.TextFind.Visible = Not vbol End Sub Private Sub ListFind_Change() Me.ButtonSelect.Enabled = CBool(Me.ListFind.ListIndex + 1) Me.ButtonSaveFil.Enabled = CBool(Me.ListFind.ListCount) End Sub Private Sub TextDate1_AfterUpdate() Me.TextDate1 = Format(Me.TextDate1, DateFormt) End Sub Private Sub TextDate2_AfterUpdate() Me.TextDate2 = Format(Me.TextDate2, DateFormt) End Sub Private Sub UserForm_Activate() Dim wColmn '----------------------------- Set sRng = ورقة1.Range("A1").Resize(1, ContColmn) '----------------------------- For i = 1 To ContColmn With Me.Controls("Lab" & i) .Caption = sRng(i) wColmn = wColmn & .Width & " " End With Next '----------------------------- wColmn = Join(Split(Trim(wColmn)), ",") '----------------------------- With Me.ListFind .ColumnCount = ContColmn .ColumnWidths = wColmn End With '----------------------------- With Me.ComboFind .Column = sRng.Value .ListIndex = 0 .Style = 2 End With '----------------------------- Me.ButtonSaveFil.Enabled = False Me.ButtonSelect.Enabled = False End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Set sRng = Nothing End Sub سا محونى لو طلبى ثقيل

استاذى الفاضل ياسر العربى أرق التحيات لحضرتك ممكن أستأذن حضرتك فى سؤال ما معنى الكلمة دى Sheets(Array("ورقة2", "ورقة6", "ورقة11", "ورقة12", "ورقة14", "ورقة15", "ورقة16")). _ يعنى ايه Array وبتستخدم فى ايه ؟؟؟ وشكرا

تفضل اخى العزيز محمد عادل لعل المطلوب بالمرفق وشكرا sumproduct (2).rar

أخى العزيز ماجد القثمى أخى العزيز خالد الرشيدى فقط لاثراء الموضوع لا أكثر مرفق الملف لعل به ماتريد وشكرا ادخال التاريخ تلقائيا وعدم تغيره مع مرور الايام.rar

أخى العزيز نايف لديك حق أخونا ومعلمنا الكبير الاستاذ ياسر خليل لم يزور الموقع منذ يوم السبت الماضى لعل المانع خير

أساتذتى الكرام وأخوتى الافاضل مرفق ملف أكسيل محتاج اظبط فورم البحث به أن امكن لكم منى كل أحترام . وشكرا التحصيلات.rar

أعزائى كما اخبرنا أ/ ياسر خليل بان الاعضاء ينفرون من المواضيع ذات الطلبات الكثرة - تم الغاء كل الطلبات والابقاء فقط على طلب واحد مرفق بالرابط التالى http://www.officena.net/ib/topic/66966-رسال-ه-تأخر-السداد/ وشكرا

أخوانى وأساتذتى الكرام مرفق ملف أكسيل وكل المطلوب فيه رساله تفيد بعدد الايام التى مرت على عدم سداد العميل للاشتراك الشهرى . وشكرا تحصيلات - 3.rar

أخى العزيز أبو عيد أشكر حضرتك على مرورك الكريم . مرفق التحصيلات هو المرفق السليم . أتمنى أن يكون المطلوب واضح ..كل ما أطلبه هو فكرة مبسطه لمتابعه تحصيلات اشتراكات انترنت . أتمنى المساعده من من يستطيع المساعده . وشكرا

أساتذتى الكرام الحمدلله قمت بضبط موضوع الترحيل من الشيت التحصيلات الى شيت البيانات . ولكن احبائى فى الله واجهتنى مشكله هى امكانيه تكرار رقم التليفون و شهر السداد ف بالتالى هيشيل الداتا القديمة ويرحل الداتا الجديدة جوه الشيت خلايا ملونه أصفر قمت بعمل محاوله Data Validation بأنه يعمل Count If ولكن المشكله فى ان الاكسيل مقدرتش اوضح له أنه لما يدور ويلاقيها متكرر يظهر الليست اللى أنا مختارهاله . ممكن مساعده ؟؟؟ Copy of TE-Data - 3.rar تحصيلات - 3.rar

اخى العزيز ممكن أستأذنك فى رفع الملفات مره أخرى . لان الروابط مش شغاله وشكرا

UP

شكرا لمرورك الكريم مرفق الملف وشكرا تحصيلات.rar

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

أساتذتى الكرام كل الاحترام والتحية لجميعكم مرفق ملف عبارة عن 2 شيت اكسيل الشيت الاول به بيانات عملاء ل موزع شركة أنترنت الشيت الثانى به سدادات وتواريخ السداد المطلوب : 1- عند الضغط على زرار ترحيل يتم فتح ملف بيانات العملاء وكتابة مبلغ السداد عند اتفاق رقم التليفون مع شهر السداد - يعنى عند رقم التليفون و الشهر لازم يتساوى مع ملف البيانات 2- عند الترحيل محتاج تاريخ السداد يكون ك كومنت علشان لما اقف على اى شهر من الشهور أعرف تاريخ سداده 3- ان يتم ظهور رساله بأسماء أو ارقام تليفون العملاء الذين لم يسددوا فواتيرهم - اعتمادا على تاريخ الاشتراك " بمعنى لو تاريخ الاشتراك 15 ديسمبر " - يبقى رساله تظهر كل يوم 15 من كل شهر لو مسددش الفاتورة وطبعا أن يقوم عد الايام التى مرت على عدم السداد يعنى " مر كذا يوم على عدم السداد .... أنا أستخدمت داله Sumproduct ولكن مع حجم العملاء الشيت سوف يصبح ثقيل جدا أخوانى وأساتذتى أنا مرحب جدا بمن لديه فكرة أفضل من هذه الفكرة أو من يريد أثراء الموضوع .. وشكرا برجاء من السادة المراقبين حذف هذا الموضوع لتكراره بسبب مشكله بالانترنت لديا وأعتذر جدا عن هذا التكرار

تواجهنى مشكله فى تعريف المتغيرات لكل نسخ الاوفيس 97 و 2003 و 2007 و 2010 و ........ بشوف فى المنتدى ناس بتقول " المرفق لا يعمل الا على أوفيس الاصدار الفلانى مثلا 2010 أو 2007 والسؤال هل هناك طريقه لاعاده تعريف كل المتغيرات على كل أنواع الاوفيس ....... بس مرفق ملف به متغيرات لكن تم تعريفها لاوفيس 2010 او 2013 Convert Numbers to Letters By Excel Ver. 3 (3).rar

استاذى الاستاذ / ياسر خليل شكرا لمساعده حضرتك .... هو ليه مفيش كومنت صورة فيها حكمه النهارده ؟؟؟؟؟؟؟ وفى سؤال تانى بس أنا هسأله فى موضوع تانى هو فى تعريف للمتغيرات لكل نسخ الاوفيس 97 و 2003 و 2007 و 2010 و ........ بس أنا هسأل السؤال ده فى موضوع تانى

أساتذتى الكرام قمت برفع الملف المرفق من قبل ولكن اخبرنى أحد زملائى بأن الملف لايعمل معه وعندما سألته أخبرنى بأنه يعمل على أوفيس 2013 X64 وعندما دخلت الكود وجدته كالتالى Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long ف هل كلمه User 32 لها علاقه بالموضوع أم لا ........؟؟؟ Convert Numbers to Letters By Excel Ver. 3.rar

الى كل الاساتذه الكرام فى المنتدى فى سؤال معرفش ينفع ولا لا .......... أنا عندى شيت مكون من أكثر من صفحه جوه ورك بوك واحد و السؤال هو هل فى كود يخلينى أختار صفحه معينه يحفظها أكسيل فى ورك بوك تانى يعنى الكود يعرف حدود الصفحه لوحده الصفحه مش الشيت يعنى هو شيت واحد لكن فيه كذا صفحه و يعمل ورك بوك جديد وينسخ نطاق الصفحه المختارة فى الورك بوك الجديد . مرفق محاوله لكن مش مكتمله ..... منتظر مساعده Save Page As Excel.rar

الف الف مبروك للاساتذه الكرام أ / حسام عيسى أ / ياسر العربي أ / إبراهيم أبو ليلة ومن نجاح الى نجاح

انا بتعلم من المدرسه الكبيرة والعائله أوفيسنا وبتعلم من المدرسه أ/ ياسر خليل كل الاحترام لشخص حضرتك الكريم بجد .

الحمد لله ان المطلوب تم بنجاح

أخى العزيز الغالى KHMB سلام الله ورحمته وبركاته ,,, لا داعى للاعتذار لانك لم تخطىء فى حقى نحن اخوه ولكن هل هناك داله أسمها Grand Total صدقنى انا فقط كنت أقول الحق أن المطلوب غير مفهوم بالنسبه الي ليس اكثر

أخى العزيز يرجى أرفاق ملف يوضح الفكرة وضع تصورى للبرنامج , بمعنى كما يقول دائما أ/ ياسر خليل أبدأ ونحن معك ولكن أبدأ .