عبدالله باقشير

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

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

السلام عليكم جرب الكود التالي: Sub KH_TEST() Dim Last As Long, i As Long Dim v1 As Double, v2 As Double ''''''''''''''''''''''''''''''''' Last = Cells(Rows.Count, "c").End(xlUp).Row Range("c2:c" & Last).Font.ColorIndex = 0 ''''''''''''''''''''''''''''''''' v1 = Val(Right(Range("c2"), 6)) - 1 ''''''''''''''''''''''''''''''''' For i = 2 To Last v2 = Val(Right(Range("c" & i), 6)) If v2 - v1 = 1 Then v1 = v2 Else Cells(i, "c").Font.ColorIndex = 3 End If Next End Sub

الله يوفقك في مشروعك وجزاكم خيرا وبارك فيكم تقبل تحياتي وشكري

السلام عليكم جزاك الله خيرا اخي الحبيب عبدالله المجرب تقبل تحياتي وشكري

السلام عليكم اكرمك الله وجزاكم خيرا انا لي الشرف بوجودكم تقبل تحياتي وشكري ============================ المرحلة الاخيرة المرفق 2003-2007 فاتورة مبيعات 3.rar

تحتاج اضافة هذه السطر بداية الكود kh_AddContl If MyCont = 20 Then Exit Sub هذا الكود بعد اضافة السطر اعلاه Private Sub kh_AddContl() Dim MyName As String Dim MyFrmLeft As Double, ScHght As Double Dim MyLeft As Double, MyWidth As Double Dim i As Integer '''''''''''''''''''''''''''''''''''''''''''''''''''''''' If MyCont = 20 Then Exit Sub MyCont = MyCont + 1 ScHght = (MyCont * iTop) + Frmtop '''''''''''''''''''''''''''''''''''''''''''''''''''''''' With Me.FrameList If ScHght > .Height Then .ScrollHeight = ScHght MyFrmLeft = .Left + .Width - .InsideWidth End With '''''''''''''''''''''''''''''''''''''''''''''''''''''''' For i = 1 To 4 MyWidth = Me.Controls("LabelZ" & i).Width MyLeft = Me.Controls("LabelZ" & i).Left - MyFrmLeft MyName = Cells(MyCont, i).Address With Me.FrameList.Controls.Add("Forms.TextBox.1", MyName, True) .Move MyLeft, MyTop, MyWidth, iHt .TextAlign = 3 End With Next MyTop = MyTop + iTop ''''''''''''''''''''''''''''''''''''''''''''''''' End Sub

اكرمك الله اخي الحبيب عباد تقبل تحياتي وشكري ===================================== جزاك الله خيرا تحتاج اضافة هذه الاسطر نهاية كود الترحيل فقط Me.FrameList.Controls.Clear MyCont = 0 MyTop = Frmtop kh_AddContl هذا كود الترحيل مع اضافة الاسطر Private Sub CommandButton1_Click() Dim LastRow As Long Dim Addrs As String Dim cotl As Control '''''''''''''' LastRow = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row + 1 ''''''''''''''' For Each cotl In Me.FrameList.Controls If Len(Trim(cotl)) Then Addrs = cotl.Name Sheets("Data").Cells(LastRow, "A").Range(Addrs).Value = cotl.Value End If Next Me.FrameList.Controls.Clear MyCont = 0 MyTop = Frmtop kh_AddContl End Sub

السلام عليكم الشكر واصل للاخ الحبيب عبدالله والاخ الحبيب عباد حفظهما الله =============== لائراء الموضوع بميزة اخذ عرض وموقع الليبل عنوان العمود المرفق 2003 -2007 إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar

السلام عليكم الشكر واصل للاخ الحبيب طارق حفظه الله برضه نفس الحكاية عندي اظن انه معمول على 2010 ======================= هذه المرحلة الاولى من العمل شاهد المرفق 2003-2007 فاتورة مبيعات 2.rar

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

السلام عليكم ورحمة الله وبركاته احبائي في الله أبو أنس حاجب ابو ردينه عباد nicola ياسر الحافظ يوسف عطا سعد عابد عبدالله المجرب khhanna حفظكم الله جميعا واكرمكم الله على كلماتكم الطيبة واثابكم بدعائكم واعطاكم بمثله اضعاف مضاعفة تقبلوا تحياتي وشكري

السلام عليكم اخي الفاضل / يوسف ----حفظك ربي شكرا جزيلا على هذه المعلومات نحن نستخدم التقويم الميلادي غالبا هل يكو ن اول يوم في رمضان مضبوط مع تقويم ام القرى في جهاز الكمبيوتر ؟

السلام عليكم الحل حسب ما فهمت من طلبك ------------------------------ النطاق mydate هو =الادخالات!$A$4:$H$10000 المرفق 2003 استدعاء تجميعي بين تاريخين 2003.rar

السلام عليكم اخي الحبيب دغيدي حفظك الله لا يوجد لدينا ما نفيدك به ان شاء الله اخي ابو حنين حفظه الله اصاب الهدف تقبل تحياتي وشكري

السلام عليكم حقيقة لا اعرف ما هي الاختلافات بين التقويمين (التقويم الهجري و تقويم ام القرى) او وجه العلاقة بينهما لو هناك توضيح مفصل قد نجد حلا ان شاء الله تقبل تحياتي وشكري

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

السلام عليكم المرحلة الاخيرة راجع الرابط ادناه http://www.officena.net/ib/index.php?showtopic=43259

السلام عليكم طلب لاحدهم جعلته هنا لتعم الفائدة راجع الرابط ادناه لتعرف المزيد http://www.officena....showtopic=43070 المرفقات 2003 الفرق بين الملفين عند التشييك على تحديد الكل تعطي نتائج مختلفة انشاء تقرير متقدم2.rar انشاء تقرير متقدم2.rar

السلام عليكم المرحله الاولى شاهد المرفق2003 انشاء تقرير متقدم1.rar

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

السلام عليكم بالمعادلات المرفق 2003 Q.rar

السلام عليكم اخي الحبيب عباد حفظك ربي عمل جميل تقبل تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اخي الكريم بدعائك اكرمك الله وحفظك من خصائص التاكست تعين MultiLine = True

جزاك الله خيراً السطر هذا يقوم بتغيير عرض الاعمدة حسب المحتوى .UsedRange.Columns.AutoFit احذفه