235Waheed

@عبدالفتاح في بي اكسيلمتشكر جدا

@عبدالفتاح في بي اكسيل للاسف نفس المشكله

@أ / محمد صالح متشكر جدا

السلام عليكم محتاج دالة هايبر لينك الشيت ثابت "DATA" لاكن الرينج متغير وهو ناتج الكود دا =IFERROR(VLOOKUP(H11;DATA!A3:AQ252;43;FALSE);VALUE(("0")))

Private Sub CommandButton3_Click() Application.ScreenUpdating = False Dim ax As VbMsgBoxResult ax = MsgBox("هل تريد تاكيد الطباعة", vbYesNo + vbQuestion, "طباعة") If ax = vbYes Then lr = Sheets(1).Range("a1000").End(xlUp).Row c = 2 For I = 3 To lr If c Mod 2 = 0 Then If Sheets(1).Cells(I, 39) = "موجود" Then Sheets(2).Cells(3, 13) = Sheets(1).Cells(I, 1) c = c + 1 End If GoTo 1 Else If Sheets(1).Cells(I, 39) = "موجود" Then Sheets(2).Cells(29, 13) = Sheets(1).Cells(I, 1) c = c + 1 Sheets(2).Range("a1:P50").PrintOut Sheets(2).Cells(3, 13) = "" Sheets(2).Cells(29, 13) = "" End If End If 1: Next I If Sheets(2).Cells(29, 13) = "" And Sheets(2).Cells(3, 13) <> "" Then Sheets(2).Range("a1:P25").PrintOut End If Else MsgBox "تم انهاء الطباعة" End If Application.ScreenUpdating = True End Sub تم حل الكود بالشكل دا Private Sub CommandButton3_Click() Cells(3, 13) = "" Cells(29, 13) = "" Dim at As Integer at = Cells(24, 21).Value If at = "31" Then Cells(3, 13) = Cells(20, 20) Cells(29, 13) = Cells(20, 23) myfile = "F:\elrawy\saarc\" & "(" & Sheets(2).Range("m3").Value & "." & Sheets(2).Range("m29").Value & ")" & Sheets(2).Range("b3").Value & "." & Sheets(2).Range("b29").Value & ".PDF" Sheets(2).Range("a1:Q50").ExportAsFixedFormat Type:=xlTypePDF, Filename:=myfile If at = "30" Then Cells(3, 13) = Cells(20, 20) Cells(29, 13) = Cells(20, 23) Sheets(2).Range("a1:P50").PrintPreview End If End If Cells(3, 13) = "" Cells(29, 13) = "" End Sub

Dim action As VbMsgBoxResult wahed = MsgBox("هل تريد المتابعة", vbYesNo + vbExclamation + vbDefaultButton1, "تاكيد الترحيل") If wahed = vbYes Then sheet2.Activate Cells.Select Selection.Copy Dim ss As String ss = InputBox("input sheets name") Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = ss Cells.Select ActiveSheet.Paste انا محتاج بعد الكود دا ارجع شيت 3 اخد منه عمود b وضيفه مكان العمود bفى الشيت الجديد ‏‏‏‏كشف حدادين 2021 (8) -.xlsm

السلام عليكم محتاج كود فتح اخر شيت

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

متشكر جدا والله انا تعبت من البحث

السلام عليكم محتاج تعديل لكود البحث بحيث ان ال id فى خليتين مدمجه وامامه خانة ساعات العمل واسفلها خانت السلف هل ينفع الكود المستخدم فى جلب مثلا خلية من (d3:z3) ,وللسلف من (d4:z4) lr = WorksheetFunction.CountIf(Range("A2:A1000"), Val(TextBox1.Value)) If TextBox1.Value <> "" And lr = 1 Then TextBox2.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 2, 0) TextBox4.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 4, 0) TextBox5.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 5, 0) TextBox6.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 6, 0) TextBox7.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 7, 0) TextBox8.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 8, 0) TextBox9.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 9, 0) TextBox10.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 10, 0) TextBox11.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 11, 0) TextBox12.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 12, 0) TextBox13.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 13, 0) TextBox14.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 14, 0) TextBox15.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 15, 0) TextBox16.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 16, 0) TextBox17.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 17, 0) TextBox18.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:r1000"), 18, 0) TextBox19.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:AL1000"), 35, 0) TextBox20.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:AL1000"), 36, 0) TextBox21.Value = WorksheetFunction.VLookup(Val(TextBox1.Value), Range("A2:AL1000"), 37, 0) Else TextBox2.Value = "" TextBox4.Value = "" TextBox5.Value = "" TextBox6.Value = "" TextBox7.Value = "" TextBox8.Value = "" TextBox9.Value = "" TextBox10.Value = "" TextBox11.Value = "" TextBox12.Value = "" TextBox13.Value = "" TextBox14.Value = "" TextBox15.Value = "" TextBox16.Value = "" TextBox17.Value = "" TextBox18.Value = "" TextBox19.Value = "" TextBox20.Value = "" TextBox21.Value = "" End If ‏‏كشف حدادين 2021 (8) - نسخة.xlsm

السلام عليكم محتاج دالة للبحث عن اسم داخل شيتات الاشهر واستدعاء بيانات الاسم كشف حدادين 2021.xlsx

والكود دا هضيفة قبل عدة أوامر وفى النهاية هضيف إعادة الحماية نسخة من تاسيس - Copy.rar

بسم الله الرحمن الرحيم اولا الفورم اكثر من رائع لاكن ليا طلب انا عايز اضيف خانت ضرب العدد فى سعر الواحده ويكون زى خانة الرقم اجبارى مفهاش تعديل UserForm Flexibles.rar

استاذى الفاضل انا عجبنى جدا الفورم دا بس انا محتاج فيه ل المسلسل +الصنف+السعر + العدد وحاولت اعدل فيه باظ منى ممكن بعد ازنك مرفق نموذج ادخال بيانات.alidroos.rar