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

[235Waheed]

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

[أبوعيد]

وعليكم السلام

ارجو الشرح اكثر مع ارفاق ملف

[235Waheed]

في ٢٧‏/١٠‏/٢٠٢١ 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