حسونة حسين

السلام عليكم ورحمة الله وبركاته وبها نبدأ اخى الكريم صاحب السؤال هذه الملف موجود في موقعه الرسمي هنا كل ما عليك الا ان تضغط 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

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ مشكلتك ليست في الكود مشكلتك في الويندوز تفضل حل مشكله اللغه العربيه

وعليكم السلام ورحمة الله وبركاته اجعل تنسيق الخلايا رقم لأنها موجوده عام

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

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود Private Sub Workbook_Open() Call HideAll End Sub في ThisWorkbook

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى Sub Transfer_Non_Adjacent_Columns() Dim WS As Worksheet, SH As Worksheet Dim LR As Long Set SH = ThisWorkbook.Worksheets("صفحة العمل") Set WS = ThisWorkbook.Worksheets("ترحيل الشراء") LR = WS.Cells(Rows.Count, 1).End(xlUp).Row + 1 With WS.Cells(LR, "A").Resize(4, 1) .Value = SH.Range("A12").Value .Offset(0, 2).Value = SH.Range("B11:B15").Value .Offset(0, 3) = SH.Range("J3:J7").Value .Offset(0, 4) = SH.Range("D3:D7").Value .Offset(0, 5) = SH.Range("I3:I7").Value .Offset(0, 6) = SH.Range("E11:E15").Value .Offset(0, 7) = SH.Range("F11").Value SH.Range("A12").Value = SH.Range("A12").Value + 1 End With

لم ترد على سؤالى لانى مسحت البيانات وجربت الكود بعد التعديل الذي وضعته لك والكود ياتى بالبيانات في الشيت المطلوب ENTP-SH

لم ترد على سؤالى لانى مسحت البيانات وجربت الكود بعد التعديل الذي وضعته لك والكود ياتى بالبيانات في الشيت المطلوب ENTP-SH

وجزاكم مثله اخى وليد هذا رابط يشرح الخطا

السلام عليكم ورحمه الله وبركاته وبها نبدأ تفضل اخى هاشم نموذج كنترول .xlsm