حسونة حسين

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

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

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

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

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى برنامج نمازج (1).xlsm

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

كتبت لك معادله تكتب يوم الميلاد وشهر الميلاد وسنة الميلاد لو اليوم والشهر مظبوطين في المعادله في المعادله بلغنى عدد 291 موظف.xlsx

ارفق ملفك الذي به مشكله التواريخ وياريت تظلل التواريخ اللي فيها مشكله بلون اصفر مثلا

حدد عامود التاريخ كله ثم من قائمه data اختر text to columns سوف تظهر لك هذه الصورة اختر next ثم تظهر هذه الرساله اختر كما بالصورة date ثم finish

الشكر لله الحمد لله الذي بنعمته تتم الصالحات

آمين يارب العالمين وجميع المسلمين

السلام عليكم ورحمة الله وبركاته وبها نبدأ تفضل اخى احمد مشكله ملفك ان التواريخ لم تكن بصيغه تواريخ تم التعديل في المرفق عدد 291 موظف.xlsx