تغییر در دستور مورد نظر در ماکرو

[maziardm]

با سلام و روز خوش
ماکرو زیر رو را در نظر بگیرید.

Sub qwww()
'
' qwww Macro
'


'
Rows("654:654").Select
With Selection.Font
.Name = "B Traffic"
.Size = 13
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub

مشکلی که وجود دره اینه که در دستور بالا ردیف 654 رو اصلاح می کنه. در حالیکه من می خوام ردیف آخر رو اصلاح کنه. چرا که با توجه به کم یا زیاد شدن ردیف های اکسل آخرین ردیف اکسل جاش (شماره اش) عوض می شه. و در نتیجه دستور بالا فایده ای نداره.
با تشکر منتظر راهنمایی دوستان می باشم

[iranweld]

ماکرو اصلاحی

Sub qwww()

Z1 = Cells(Rows.Count, "A").End(xlUp).Row

With Rows(Z1 & ":" & Z1).Font

.Name = "B Traffic"
.Size = 13
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With

End Sub 

[maziardm]

سلام مجدد
ممنون از پاسخت
ببخشید دیر جواب دادم. دسترسی به اینترنت نداشتم.
در این زمینه دو تا سوال داشتم.
کالا برای انتخاب محدوده آخرید ردیف میشه از دستور زیر استفاده کرد. برای هر کاری یا دستوری نیاز داریم که ردیف آخر انتخاب بشه. میشه از کد زیر استفاده کرد.

Z1 = Cells(Rows.Count, "A").End(xlUp).Row

With Rows(Z1 & ":" & Z1).Font 

دوم اینکه اگر بخواهیم اولین ردیف و یا سومین ردیف را انتخاب کنیم از چه دستوراتی استفاده می کنیم؟
با تشکر از شما

[iranweld]

بجای z1 شماره ردیف مورد نظر رو قرار بدید

[maziardm]

کالا برای انتخاب محدوده آخرید ردیف میشه از دستور زیر استفاده کرد. برای هر کاری یا دستوری نیاز داریم که ردیف آخر انتخاب بشه. میشه از کد زیر استفاده کرد.

Z1 = Cells(Rows.Count, "A").End(xlUp).Row

With Rows(Z1 & ":" & Z1).Font 

با تشکر از شما

با سلام دوباره
می خواستم بدونم در این قسمت از سوال چطور؟
با تشکر