son dolu satır ayarı

[igultekin2000]

iyi akşamlar; örnek makrolarla bir çok işimi görebiliyorum. bazı işlemlerde örnekleri uygulayamıyorum. genelde son dolu satır kopyalama vs gibi işlemlerin yanında, son dolu satır hücre biçimleme yaptığımda son dolu satır olarak yapmak istiyorum.

Sub Fat_Aktar()
Application.DisplayAlerts = False
Dim GK, KK As Worksheet
Set KK = Sheets("LISTELE")
Sheets("AKTAR").Select
    Range("A2:M65000").Select
    Selection.Copy
    Sheets("LISTELE").Select
    son_satir = KK.Range("a65000").End(3).Row + 1
    KK.Range("a" & son_satir).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("AKTAR").Select
    Sheets("AKTAR").Range("a2:m1000").ClearContents
    Sheets("LISTELE").Select
    Sheets("LISTELE").Range("A2:M1000").Font.Name = "Calibri" 'yazı fontu
    Sheets("LISTELE").Select
    Sheets("LISTELE").Range("A2:M1000").Font.Size = 10 'yazı tipi boyutu
    Sheets("KOD").Select
    Application.CutCopyMode = False 'ESC seçili alana iptal
    Range("E1").Select
    Application.DisplayAlerts = Ture
End Sub

bu örnekte ClearContents, Calibri, Font.Size gibi her işlemde sonuna eklemek istiyorum. bunlarda son satır ayarını yapamadım. A2:M son satır gibi. Teşekkürler.

 

[AdemCan]

Merhabalar;
Örnek olarak,
Sheets("LISTELE").Range("A2:M1000").Font.Name = "Calibri" satırını;

Sheets("LISTELE").Range[COLOR="Blue"]("A2:M" & Range("M65536").End(3).Row)[/COLOR].Font.Name = "Calibri"

şeklinde değiştiriniz. Mavi renk ile olan bölüm A2 den M sütununda son dolu satır arasında işlem yapar.

 

[igultekin2000]

sorunsuz çalışıyor

Merhabalar;
Örnek olarak,
Sheets("LISTELE").Range("A2:M1000").Font.Name = "Calibri" satırını;

Sheets("LISTELE").Range[COLOR="Blue"]("A2:M" & Range("M65536").End(3).Row)[/COLOR].Font.Name = "Calibri"

şeklinde değiştiriniz. Mavi renk ile olan bölüm A2 den M sütununda son dolu satır arasında işlem yapar.

Teşekkürler,

 

[AdemCan]

Rica ederim, iyi çalışmalar.