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

اخى اولا اوجه اليك دعوه لتغير الاسم الى اللغه العربيه التزاما بتعليمات وقواعد المنتدى بارك الله فيك ثانيا 1-قم بالدخول الى محرر الاكواد 2-قم بالضغط مرتين على ThisWorkbook لفتح النافذه الخاصه به 3-قم باضافة الكود الاتى ' هذا السطر هو المختص بتنفيذ اى شء نريده عند فتح الملف Private Sub Workbook_Open() 'MsgBox الكود المختص فى كتابة الشئ الذى نريده ' h عباره عنالرساله التى سوف تظهر عند فتح الملف ' ويمكنك تغيرها الى اى شئ تريده ' "" ولكن بشرط الحفاظ على علامتى التنصيص MsgBox "h" ' هذا السطر هو المختص بنهاية عمل الكود End Sub اتمنى ان اكون وفقت فى عمل المطلوب تقبل تحياتى

السلام عليكم ورحمة الله وبركاته اخى الريفى تقبل الله منا ومنكم صالح الاعمال تقبل تحياتى

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

اخى خالد جرب تغير الكود الاتى Private Sub CommandButton1_Click() If t1 = "" Then MsgBox "íÌÈ Úáíß ÇÏÎÇá ÑÞã" t1.SetFocus Else On Error Resume Next If Application.VLookup(t1, Range("A:a"), 1, 0) = Error Then lr = Range("a" & Rows.Count).End(xlUp).Row + 1 Cells(lr, 1) = t1 Cells(lr, 2) = t2 Cells(lr, 3) = t3 t1 = "" t2 = "" t3 = "" t1.SetFocus Else MsgBox "åÐÇ ÇáÑÞã ãæÌæÏ ãä ÞÈá", vbOKOnly, "ÊäÈíå" t1 = "" t1.SetFocus End If End If End Sub الى الكود الاتى Private Sub CommandButton1_Click() If t1 = "" Then MsgBox "íÌÈ Úáíß ÇÏÎÇá ÑÞã" t1.SetFocus Else On Error Resume Next If Application.VLookup(t1, Range("A:a"), 1, 0) = Error Then lr = Range("a" & Rows.Count).End(xlUp).Row + 1 Cells(lr, 1) = t1.Value Cells(lr, 2) = t2.Text Cells(lr, 3) = t3.Text t1 = "" t2 = "" t3 = "" t1.SetFocus Else MsgBox "åÐÇ ÇáÑÞã ãæÌæÏ ãä ÞÈá", vbOKOnly, "ÊäÈíå" t1 = "" t1.SetFocus End If End If End Sub تقبل تحياتى

السلام عليكم ورحمة الله وبركاته اخى الريفى هل تقصد هكذا تقبل تحياتى العملاء.rar

اخى اشكرك على الدعاء الطيب وفقك الله لما يحبه ويرضاه تقبل تحياتى

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

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

اخى الكريم هل تقصد هكذا if.rar

اخى خالد قم بكتابة كود التيكست على النحو الاتى وجرب الكود ME.TEXTBOX1.VALUE اذا لم تفلح معك هذه الطريقه يرجى ارفاق ملف للعمل عليه تقبل تحياتى

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

السلام عليكم ورحمة الله وبركاته اخى طاهر -- قم بتغير السطر التالى WS1.Range("B6:l10000" & LR1).SpecialCells(xlCellTypeVisible).EntireRow.Delete الى WS1.Range("B6:l" & LR1).SpecialCells(xlCellTypeVisible).EntireRow.Delete وذلك فى الموديول المسمى ب DELETINV_ ---- تقبل حياتى

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

السلام عليكم ورحمه الله وبركاته اخى الريفى هل تقصد هكذا جرب المرفق --------------------------------------------------------- تقبل تحياتى جديد111.rar

اخى ابوجيداء هل تقصد هكذا تقبل تحياتى form.rar

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

اخى عيسى ضع هذه الاكواد فى حدث الفورم Private Sub CommandButton1_Click() Application.Visible = True End End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Application.Visible = True End Sub تقبل تحياتى

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

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

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

للرفع

للرفع

فى امان الله

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

اخى مازن اعزرنى فقد حدث خطأ عند رفع الملف تفضل اخى تقبل تحياتى MAZEN FINAL.rar