حسونة حسين

وعليكم السلام ورحمة الله وبركاته استاذنا الغالى ابو يوسف آمين يارب العالمين وإياكم اخى الغالى وجزاكم مثله استاذنا 🤲

وعليكم السلام ورحمة الله وبركاته ضع هذه المعادله في العامود j واسحب المعادله لاسفل =If(D2="نقدى";H2;G2+H2) وان شاء الله تفي بالمطلوب

وجزاكم مثله اخى ياسين الحمد لله الذي بنعمته تتم الصالحات

Cells(2, 3) = "" تمسح الخليه c2 فقط

منور استاذنا الغالى ابو يوسف بارك الله فيك

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

وعليكم السلام ورحمة الله وبركاته يمكنك الاستفادة من هذا الموضوع

وفيك بارك اخى الحمد لله الذي بنعمته تتم الصالحات

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

وعليكم السلام ورحمة الله وبركاته Range("c2:d4").clearcontents

السلام عليكم ورحمة الله وبركاته وبها نبدأ اخى الكريم صاحب السؤال هذه الملف موجود في موقعه الرسمي هنا كل ما عليك الا ان تضغط download سوف تاتى لك مكان تكتب فيه اسمك والاميل الذي سوف يرسل لك الرابط عليه وستجد الاكواد ظاهرة ليست محميه

وعليكم السلام ورحمة الله وبركاته عدل xlDescending الى xlAscending

جرب هذا التعديل اخى ياسين ملف جديد.xlsm

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

يمكنك اختصار كود الطباعه هكذا ActiveSheet.PrintOut Copies:=1 لطباعه الشيت المفتوح امامك ActiveSheet.PrintOut العدد المطلوب Copies:=1

اخى ظبط اعدادات الويندوز كما في في هذا الرابط مشكلة اللغه العربية

تفضل اخى عربي ملف جديد.xlsm

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

وجزاكم مثله اخى الكريم والحمد لله الذي بنعمته تتم الصالحات

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

اخى الكود الجديد به كل ما تحتاج ان شاء الله

آمين يارب العالمين وجزاكم مثله اخى الكريم والحمد لله الذي بنعمته تتم الصالحات

السلام عليكم ورحمه الله وبركاته وبها نبدأ ضع هذا الكود في ملفك Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) + 1 UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 4) = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) * UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 3) UserForm1.Label7.Caption = UserForm1.Label7.Caption + 1 Dim varTotal As Currency Dim varTotal2 As Currency Dim varRow As Integer For varRow = 0 To (UserForm1.ListBox1.ListCount - 1) varTotal = varTotal + UserForm1.ListBox1.Column(2, varRow) varTotal2 = varTotal2 + UserForm1.ListBox1.Column(4, varRow) Next UserForm1.Label7.Caption = varTotal UserForm1.Label9.Caption = varTotal2 End Sub بدلا من Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm2.Show End Sub

وعليكم السلام ورحمه الله وبركاته لالغاء عمل طباعه عن طريق ctrl +p ضع هذا السطر في كود Private Sub Workbook_Open Application.OnKey "^p", "" بعد هذا السطر Application.ScreenUpdating = False ليصبح هكذا Application.ScreenUpdating = False Application.OnKey "^p", ""

تفضل اخى عربي ملف جديد.xlsm