[B][SIZE=1]بخش امضاء :
[/SIZE][/B][LEFT]
[CODE]
Sub Macro()
ActiveCell = "IY" & Right(Application.Name, 5)
With ActiveCell.Characters(Start:=2, Length:=1).Font
.Name = "Webdings"
.Color = 255
End With
End Sub
[/CODE]
[/LEFT]
ممنون دوست عزیز
حالا اگه بخوام انتهای همین کد ارسال شد پرینت رو هم اضافه کنم ، که شیت دوم رو پرینت بگیره به چه شکل هست
(یعنی با زدن کلمه اجرا هم عدد رو بفرسته هم همون شیت ذوم رو پرینت بگیره)
ممنون دوست عزیز
حالا اگه بخوام انتهای همین کد ارسال شد پرینت رو هم اضافه کنم ، که شیت دوم رو پرینت بگیره به چه شکل هست
(یعنی با زدن کلمه اجرا هم عدد رو بفرسته هم همون شیت ذوم رو پرینت بگیره)
کافیه کد زیر را اضافه کنید.( دقت کنید نام شیت را درست مرقوم بفرمایید)
کامنت