حسونة حسين

وجزاكم مثله اخى الكريم 

والحمد لله الذي بنعمته تتم الصالحات 

السلام عليكم ورحمة الله وبركاته 

تفضل اخى رابط اخر على الميديا فاير

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

آمين يارب العالمين 

وجزاكم مثله اخى الكريم 

والحمد لله الذي بنعمته تتم الصالحات 

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

ضع هذا الكود في ملفك

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