Seçilin alanları başka excel aktarma

[ForeveReal]

Merhaba Arkadaşlar,

Herkese kolay gelsin.

A2 den H20 kadar kişi listem var. Yapmak istediğim bu alana bir buton oluşturup, basılması durumunda ilgili satırları yeni bir excel sayfasına dökmesini istiyorum.

Teşekkür ederim.

 

[antonio]

Merhaba,
Aşağıdaki kodu deneyiniz (sayfa isimlerini kendinize göre düzenleyiniz).

Sub sayfaya_kopyala()
Sayfa1.Range("A2:H20").Copy Sayfa2
End Sub

 

[ForeveReal]

Merhaba,
Aşağıdaki kodu deneyiniz (sayfa isimlerini kendinize göre düzenleyiniz).

Sub sayfaya_kopyala()
Sayfa1.Range("A2:H20").Worksheets.Add
End Sub

Peki hocam yeni bir excel sayfası açmak için aşağıdaki gibi girmek mümkün müdür

Sub sayfaya_kopyala()
Sayfa1.Range("A2:H20").Worksheets.Add
End Sub

[/QUOTE]

 

[antonio]

Peki hocam yeni bir excel sayfası açmak için aşağıdaki gibi girmek mümkün müdür

Sayfa kopyalama olaylarında en kısa ve kestirme şekilde kod yazılmasında hiç bir sakınca yoktur. Ancak, sayfadaki belli hücreleri kopyalayıp diğer sayfaya yapıştırma konusunda adım adım ve çok ayrıntılı kod yazılması daha avantajlıdır. Herzaman hızlı hareket etmeyi seven Excel, bu kez adım adım hareket etmeyi sever. Aksi halde hata verir.
Senaryo: Sayfa1 isimli bir sayfamız vardır. A2:H20 arasındaki hücreler kopyalancak, yeni bir sayfa oluşturulacak, bu sayfaya da "Sayfa2" ismi verilecek. Yeni oluşturulan sayfanın ("Sayfa2") aynı hücre aralığına yapıştırılacak.
Tavsiye edeceğim kodlar:

Sub yeni_sayfaya_kopyala()
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sayfa2"
    Sheets("Sayfa1").Activate
    ActiveSheet.Range("A2:H19").Select
    Selection.Copy
    
    Sheets("Sayfa2").Activate
    ActiveSheet.Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Sayfa2").Range("A2").Select
End Sub

 

[ForeveReal]

Sayfa kopyalama olaylarında en kısa ve kestirme şekilde kod yazılmasında hiç bir sakınca yoktur. Ancak, sayfadaki belli hücreleri kopyalayıp diğer sayfaya yapıştırma konusunda adım adım ve çok ayrıntılı kod yazılması daha avantajlıdır. Herzaman hızlı hareket etmeyi seven Excel, bu kez adım adım hareket etmeyi sever. Aksi halde hata verir.
Senaryo: Sayfa1 isimli bir sayfamız vardır. A2:H20 arasındaki hücreler kopyalancak, yeni bir sayfa oluşturulacak, bu sayfaya da "Sayfa2" ismi verilecek. Yeni oluşturulan sayfanın ("Sayfa2") aynı hücre aralığına yapıştırılacak.
Tavsiye edeceğim kodlar:

Sub yeni_sayfaya_kopyala()
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sayfa2"
    Sheets("Sayfa1").Activate
    ActiveSheet.Range("A2:H19").Select
    Selection.Copy
    
    Sheets("Sayfa2").Activate
    ActiveSheet.Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Sayfa2").Range("A2").Select
End Sub

Hocam sizin hakkınızı biz nasıl ödeyeceğiz acaba

Çok teşekkür ederim.

 

[antonio]

Rica ederim. Hakkımız varsa helal hoş olsun.