محمد فاروق محمود

الى السادة المحترفين طاب كود لالغاء work sheet menu bar وكذلك عدم تفعيل toolbar

بارك اللة فيكوم ولكن لو قمتوا بشرح الاكواد هيكون افضل ولكم جزيل الشكر

اريد كم حضراتكم كود يكون عند الطباعة باضافة صف جديد للمجموع والملف المرفق موجود وشكراًBook1.rar

وانا فى انتظارك يا اخى

شكراً اخى على مرورك وجزاكم الله خيراًindex.rar

هذة الاكواد لنموذج ادخال بيانات وتعديلها ارجو من حضراتكم حد يشرحها لى بالتفصيل وشكراً Dim MyArray(22) Private Sub ComboBox1_Change() Dim R As Integer, RR As Integer, Endrow As Integer If ComboBox1.Value = 0 Then GoTo 1 With Sheets("ÇáãåäÏÓíä") Endrow = .Range("A" & .Rows.Count).End(xlUp).Row For RR = 3 To Endrow If .Cells(RR, 1).Value = ComboBox1.Value Then For R = 1 To 21 Me.Controls(MyArray®).Value = .Cells(RR, R + 1).Value Next R Exit For End If Next RR End With 1 End Sub Private Sub ComboBox2_Change() End Sub Private Sub CommandButton21_Click() Dim R As Integer, RR As Integer, N As Integer, Endrow As Integer Application.ScreenUpdating = False With Sheets("ÇáãåäÏÓíä") Endrow = .Range("A" & .Rows.Count).End(xlUp).Row For RR = 3 To Endrow If .Cells(RR, 1).Value = ComboBox1.Value Then For R = 1 To 21 .Cells(RR, R + 1).Value = Me.Controls(MyArray®).Value Next R Exit For End If Next RR End With MsgBox "Êã ÊÚÏíá ÇáÈíÇäÇÊ ÈäÌÇÍ", vbExclamation, "ÇáÍãÏááå" Application.ScreenUpdating = True End Sub Private Sub CommandButton22_Click() End End Sub Private Sub CommandButton24_Click() Application.ScreenUpdating = False With Sheets("ÇáãåäÏÓíä") Endrow = .Range("A" & .Rows.Count).End(xlUp).Row + 1 For R = 0 To 21 .Cells(Endrow, R + 1).Value = Me.Controls(MyArray®).Value Next R End With MsgBox "ÊãÊ ÇÖÇÝÉ ÇáÈíÇäÇÊ ÈäÌÇÍ", vbExclamation, "ÇáÍãÏááå" Application.ScreenUpdating = True End Sub Private Sub CommandButton25_Click() Private Sub UserForm_Activate() Dim R As Integer MyArray(0) = "ComboBox1" For R = 1 To 21 MyArray® = "TextBox" & R Next R If Label4.Caption = "ÇÖÇÝÉ ãåäÏÓ Çæ ãæÙÝ ÌÏíÏ" Then KH_A Else KH_B End Sub Private Sub KH_A() Me.ScrollTop = 0 With ComboBox1 .ShowDropButtonWhen = 0 .Style = 0 .SetFocus End With CommandButton21.Visible = False End Sub Private Sub KH_B() Dim RR As Integer, Endrow As Integer Me.ScrollTop = 0 CommandButton24.Visible = False ComboBox1.Clear With Sheets("ÇáãåäÏÓíä") Endrow = .Range("A" & .Rows.Count).End(xlUp).Row For RR = 3 To Endrow ComboBox1.AddItem .Cells(RR, 1).Value Next RR End With ComboBox1.SetFocus End Sub

اشكرك وان كنت اتمنى ان اجد زر معاينة عندما اضغط علية اجد printpreviw لكل صفحة فى نهايتها جمع تلقائى فى ذيلها فقط ولكم جزيل الشكر

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

اشكركم على الاهتمام ويبدو انى لم اوصل ما اريد جيداً اسف ولكن اريد صف الجمع يكون فى الطباعة فقط وليس فى الشيت يعنى صفحة المهندسين تكون كما هيا ولما اختار امر طباعة يطبع كل صفحة ويكون فى اخرها المجموع .

بمعنى لو ضغط على قائمة file-print preview تعطى صفحة فى ذيلها خانة لجمع قيم كل عمود فى خانة جديدة اسفل كل عمود

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

من فضلكم عايز لما اطبع الملف يعمل جمع تلقائى لكل صفحة على حدة وكمان صفحة للاجماليات يكون فيها مجموع كل صفحة فى صف دون التاثير على الصفحة يعنى ممكن بالكود وهذا هو الملف1 الاساسى.rar

بصراحة عمل جميل لشخص محترف لا اعرفة وينقصنى بعض الاضافات على العمل حتى يكون مناسب لى وليس باkemas.rarلضرورة كل الطلبات

واللة اعلم جرب الترحيل من عمود الى عمود

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

ربط عمود فى ورقة1 بعمود بورقة 2 بحيث لو حصل اضافة او حذف او تعديل يتاثر بية ولكم جزيل الشكر