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

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

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

السلام عليكم IIf(tb, 1, 2) هذه مثل دالة اف يعني سينتج منها الرقم 1 او الرقم 2 اذا كان tb =true ستعطيك الرقم 1 سيكون سطر الكود كانه For j = 1 To 3 اذا كان tb =false ستعطيك الرقم 2 سيكون سطر الكود كانه For j = 2 To 3 تحياتي

السلام عليكم تم استخدام الدالة في هذا الموضوع http://www.officena.net/ib/index.php?showtopic=47835 تفضل الملف 2003 اضافة الصور من مجلد خارجي-00.rar

السلام عليكم هذه اكواد ابسط واسرع المرفق 2010 فورم ترحيل بسيط.rar

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

التهنئة بترقية الاخ وائل احمد المصري الى عضو مميز

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

هل رايت هذا الموضوع http://www.officena.net/ib/index.php?showtopic=26727 تحياتي

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

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

جزاكم الله خيرا ولي الشرف اما عن سؤالك : الله اعلم .....اسال من قام به تحياتي

اخي الحبيب ياسر الكود فيه توضيح كيف يعتمد النص للتاريخ الهجري على انه تاريخ وليس نص وقد تم التطبيق على TextBox4 فقط تحياتي

السلام عليكم احذف هذا الكود الموجود في موديل الورقة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) UserForm1.TextBox1.Value = Range("B3").Value UserForm1.TextBox2.Value = Range("B4").Value End Sub هو السبب تحياتي

ان شاء الله ممكن هات ملفاتك للتطبيق

نعم دالة مثل دالة الاكسل تعطيك عدد الاحرف Step -1 علشان نعكس السلسلة من الاكبر الى الاصغر ودائما الافتراضي step 1 هذه دالة بحث في النص مثيل دالة FIND و SEARCH هذا على السريع ودمتم

السلام عليكم جرب هذا Private Sub CommandButton1_Click() VBA.Calendar = vbCalHijri Application.ScreenUpdating = False q = [b2000].End(xlUp).Row + 1 Range("b" & q) = TextBox1.Value Range("c" & q) = TextBox2.Value Range("d" & q) = TextBox3.Value Range("e" & q) = ComboBox1.Value Range("f" & q) = CDate(TextBox4) Range("g" & q) = TextBox5.Value Application.ScreenUpdating = True MsgBox "data has been succesfully recorded", okonly, "attention" VBA.Calendar = vbCalGreg Unload Me End Sub تحياتي

السلام عليكم الشكر واصل للاخ حسام عيسى ....حفظه الله الكود موجود في موديل الورقة Search Private Sub Worksheet_Change(ByVal Target As Range) If Not Target.Address = Range("C2").Address Then Exit Sub '''''''''''''''''' Dim Lr As Long, i As Long, R As Long Dim txt Range("A6:F25").ClearContents txt = Trim(Target) If Len(txt) < 3 Then Exit Sub With Sheets("Data") Lr = .Cells(.Rows.Count, "A").End(xlUp).Row For i = Lr To 2 Step -1 If txt = CStr(.Cells(i, "A")) Or txt = CStr(.Cells(i, "B")) Or InStr(CStr(.Cells(i, "C")), txt) Then Cells(R + 6, "A").Resize(1, 3).Value = .Cells(i, "A").Resize(1, 3).Value Cells(R + 6, "D").Resize(1, 2).Value = .Cells(i, "E").Resize(1, 2).Value Cells(R + 6, "F").Value = .Cells(i, "H").Value R = R + 1 If R = 20 Then Exit For End If Next End With End Sub المرفق 2010 Search++.rar تحياتي

السلام عليكم لو بحثت في منتدانا لوجدت الكثير من هذا واحسن عموما تم تعديل الكود بما يتناسب لطلبك بدون استخدام اي معادلة حيث يقوم الكود بايجاد آخر صف Sub TestCopyFromClosedWB() Dim wb As Workbook Dim rngTarget As Range Dim strSourceWB As String, strSourceWS As String Dim Lr As Long ' اسم الملف الذي تريد الاستيراد منه strSourceWB = ThisWorkbook.Path & "\Book1.xls" ' اسم الورقة مكان الاستيراد strSourceWS = "Sheet1" ' خلية اللصق Set rngTarget = Range("B2") Application.ScreenUpdating = False On Error Resume Next Set wb = Workbooks.Open(strSourceWB, True, True) On Error GoTo 0 If Not wb Is Nothing Then On Error Resume Next With wb.Worksheets(strSourceWS) ' آخر صف في العمود بي في ورقة الاستيراد Lr = .Cells(.Rows.Count, "B").End(xlUp).Row .Range("B2:K" & Lr).Copy rngTarget End With On Error GoTo 0 wb.Close False End If Application.ScreenUpdating = True Set wb = Nothing: Set rngTarget = Nothing End Sub المرفق 2003 Get Data From Same Path.rar تحياتي

السلام عليكم الشكر اصل لاخي الكريم/ جلال الجمال ........اكرمه الله في بداية كود الفورم يمكنك تغيير عرض التاكست حسب ما تريد ( وهذا مذكور في التعليمات) مثلا الحالي 200 غيره الى 300 او اكثر او اقل حسب ما تريد فقط تعمل حسابك ان المتبقي من عرض الفرمة سيكون لليبل الخاص بالعنوان ويمكنك ايضا زيادة عرض الفرمة يدويا اثناء التصميم . '====================================================== ' عُرض تاكست الادخال Private Const iWgt1 As Single = 300 '====================================================== تحياتي

وعليكم السلام هذا الحل : الم تطلع على الرابط ؟؟ تحياتي

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

السلام عليكم هذا على السريع المرفق 2003 اضافة ازرار الى الفورم.rar

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

السلام عليكم تم بالمعادلات شاهد المرفق 2010 استخراج بيانات فاتورة بحسب رقمها.rar