[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]
سلام
خیلی عالی بود
فقط میخواستم بدونم میشه این کد رو ماکرو نوشت و اینکه ستون کد هم به صورت اتوماتیک ادغام بشه در این فایلی که شما زحمت کشیدید کدها به صورت دستی وارد شده
کامنت