235Waheed قام بنشر أكتوبر 27, 2021 مشاركة قام بنشر أكتوبر 27, 2021 السلام عليكم محتاج كود فتح اخر شيت رابط هذا التعليق شارك More sharing options...
أبوعيد قام بنشر أكتوبر 27, 2021 مشاركة قام بنشر أكتوبر 27, 2021 وعليكم السلام ارجو الشرح اكثر مع ارفاق ملف رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.