bir tablodan bircok kez olusturmak

[yeliz.yilmaz]

Merhaba Arkadaslar,

Ekte gorulen tabloyu iki bosluk satır koyduktan sonra yine aynisini olusturacak bir buton yapmak istiyorum.

Yardımcı olabilir misiniz?

Selamlar

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kod'u kullanabilirsiniz. Kod'u sayfaya yerleştireceğiniz bir düğme/şekile atayınız.

Sub BARAN()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    Range("A1:K3").Copy
    Cells([A65536].End(3).Row + 3, 1).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Activate
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[yeliz.yilmaz]

Tesekkurler Calisti.

Sayın Omer Baran Bey,

Oncelikle ilginiz icin cok tesekkurler.

Evet calisti. Elinize Saglık.

Selamlar.