إبراهيم ابوليله

الاخ الكريم HOFA 15 يرجى كتابه اسم الظهور الخاص بك باللغه العربيه وبالنسبه لرفع ملف الاكسل الى المنتدى قم بضغط الملف ثم قم بانشاء موضوع جديد ثم خيارات اضافيه للرد ثم BROWSE ثم ارفق الملف ثم عرصض للمشاركه ثم ابدأ موضوع جديد

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

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

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

الاخ رجب نحن نستفيد دائما منك

الاخ رجب لقد وجدت ايضا هذا الكود Sub Macro1() Application.ScreenUpdating = False On Error Resume Next If Range("B2") = "" Or Range("C2") = "" Or Range("E2") = "" Or Range("F2") = "" = 1 Then MsgBox " برجاء اكمال البيانات " Else Dim lastrow As Integer lastrow = Range("b10000").End(xlUp).Row + 1 Range("b2:f2").Copy Cells(lastrow, 2).PasteSpecial Paste:=xlPasteValues Range("B2:F2").ClearContents Application.CutCopyMode = False MsgBox " تم ترحيل البيانات " End If End Sub

الاخ رجب بارك الله فيك وشاكر جدا لاهتمامك

الاخوه الكرام لست ادرى لماذا هذا الكود بطئ ارجو حل المشكله واذا كان هناك كود اخر اسرع فلا مانع SEC.rar

الاخ ابو حنين بارك الله فيك عمل رائع لايخرج الا من مبدع

الاخ طارق مشكورا جدا وبارك الله فيك

الاخوه الافاضل هل يعلم احد لماذا لا يعمل البحث مع الارقام بحث.rar

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

الاخ طارق مشكورا وبارك الله فيك ولكن لم تجبنى على معنى LR = [A50000].End(xlUp).Row - 2

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

الاخ طارق بارك الله فيك فالحمد لله بفضلك استطعت تقريبا فهم الكثير من محتويات الكود ولكن ينقصنى فهم بعض الاشياء ارجو من ان تشرحها لى حتى استطيع فهمها بارك الله فيك For i = 1 To Sheets.Count If Sheets(i).Name = N_Sht Then Reply = MsgBox("__" & N_Sht & " ___" & Chr(10) & " ___", vbYesNo) 10 Sheets(mySht).Select LR = [A50000].End(xlUp).Row - 2

بارك الله فيك اخ طارك

الاخ الفاضل تفضل If Application.CountIf([A7:A10000], Me.TextBox1.Value) > 0 Then MsgBox (" This name already exists"): Exit Sub ضع هذا الكود فى حدث الفوم لاحظ انه يمكنك تغير النطاق على حسب ماتريد

الاخ طارق بارك الله فيك ولكن ممكن تشرح لى With ActiveSheet.Range("A4:N" & LR) .AutoFilter Field:=14, Criteria1:=fr_D, Operator:=xlAnd, Criteria2:=to_D .AutoFilter Field:=2, Criteria1:=nm .AutoFilter Field:=3, Criteria1:=nm1 LR = [A50000].End(xlUp).Row ' After Filter End With انا اريد ان اعرف معنى AutoFilter Field:=14, Criteria1:=fr_D, Operator:=xlAnd, Criteria2:=to_D وماهى هى وظيفته وايضا .AutoFilter Field:=2, Criteria1:=nm وايضا LR = [A50000].End(xlUp).Row ' After Filter بارك الله فيك

الاخ طارق مشكورا وبارك الله فيك

الاخ طارق اريد ان يظهر السطر رقم 15002 مع كل عمليه نسخ لانه سوف يكون مخصص لتجمع البيانات(sum)

الاخ رجب مشكورا عمل اكثر من رائع

الاخوه الكرام عمل اكثر من رائع يعجز اللسان عن الشكر والله والاخ رجب والاخ عبد الله دائما ننتظر من ماهو اكثر وبارك الله فيكم

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

تفضل ياخى ارجو ان اكون استطعت التوضيح صفوف-اعمدة 1_TAREQ3.rar

الاخوه الكرام مشكورين على مجهودكم الرائع ولكن عندى سؤال بالنسبه لكود الاخ رجب هل يمكن جعل الاسم فى الخليه a1 والرقم فى الخليه b1 بدلا من الخلايا 7و8