حسونة حسين

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

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

السلام عليكم ورحمه الله وبركاته وبها نبدأ ضع هذا الكود في ملفك 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

وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل اخى الكريم Sub Copie_sh() Application.EnableEvents = False Sheets("ENTP-SH").Range("E13:AI72").Value = Sheets("ENTP.EL AMINE G").Range("E13:AI72").Value Sheets("ENTP-SH").Range("E101:AI164").Value = Sheets("ENTP.EL AMINE G").Range("E101:AI164").Value Application.EnableEvents = True End Sub

وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل 2020شيت مدرستى - الصف الرابع-.zip

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

وعليكم السلام اخى @محمد عدنان طلبك من البدايه كان ترحيل صف واحد وهو في الخليه b4 من شيت data وهذا ما تم عمله اختر افضل اجابه لسؤالك وافتح موضوع جديد بالطلب الجديد وان شاء الله تجد مطلبك سواء منى او من الاساتذه

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

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

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

وعليكم السلام ورحمة الله وبركاته تفضل اخى الكريم Me.TextBox3.Value = Me.TextBox1.Value & " " + Me.TextBox2.Value

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

اخى محمد عدنان اطلع على هذا الموضوع هل هو ما تريد فعله ام لا