makro çalışınca satır silinmesi

[igultekin2000]

iyi akşamlar AKTAR sayfasındaki A2:M1000 hücresindeki verileri

Sub Fat_Aktar()
Dim GK, KK As Worksheet
Set KK = Sheets("LISTELE")
Sheets("AKTAR").Select
    Range("A2:M1000").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
End Sub

makrosu ile LISTELE sayfasına aktarıyorum. Aktarma işlemi bittikten sonra 1-) " AKTAR " sayfasındaki "A2:M1000" hücrelerinin silinmesini
2-) Kursorun "LISTELE" çalışma sayfasının "A1" hücresinde olması şu anda makro çalışınca AKTAR sayfasınad A2:M1000 hücreleri seçili kalıyor. ayrıca makrolara çalışılan sayfadaki verilerin Calibre 11 karakter olmasını sağlamamız mümkün mü, yardımcı olacak arkadaşlara teşekkürler.

 

[muygun]

Merhaba;
Kodlarınızın sonuna;
1 için Sheets("AKTAR").Range("a2:m1000").ClearContents ' aralığı silmek için
2 için Sheets("LİSTELE").Range("a1”).Select ' konumlanma
Sheets("LISTELE").Range("A2:M1000").Font.Name = "Calibri" 'yazı fontu
Sheets("LISTELE").Range("A2:M1000").Font.Size = 11 'yazı tipi boyutu
Sheets("LISTELE").Range("A1").Select 'konumlanma
Ekleyerek deneyin.
İyi çalışmalar.

 

[igultekin2000]

denedim

Merhaba;
Kodlarınızın sonuna;
1 için Sheets("AKTAR").Range("a2:m1000").ClearContents ' aralığı silmek için
2 için Sheets("LİSTELE").Range("a1”).Select ' konumlanma
Sheets("LISTELE").Range("A2:M1000").Font.Name = "Calibri" 'yazı fontu
Sheets("LISTELE").Range("A2:M1000").Font.Size = 11 'yazı tipi boyutu
Sheets("LISTELE").Range("A1").Select 'konumlanma
Ekleyerek deneyin.
İyi çalışmalar.

teşekkürler, yeni kodların çalışma prensibini öğrenmiş oldum.