235Waheed قام بنشر أكتوبر 27, 2021 الكاتب قام بنشر أكتوبر 27, 2021 في ٢٧/١٠/٢٠٢١ at 21:20, أبوعيد said: وعليكم السلام ارجو الشرح اكثر مع ارفاق ملف 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.