Sayfa taşı kopyala

[sedat2161]

İyi günler, iyi çalışmalar. Ekli dosyamda 1 nolu sayfadaki bilgileri butona tıklayarak 2 numaralı sayfaya aktarma kodunu forumda buldum ve uyguladım. Sayfa aktarıldı yanlız benim isteğim aktarma butonunun yeni sayfada çıkmaması ve aktaracağım alanların belirlenmesi örneğin a2: d100 aralığı şeklinde yardımcı olursanız çok sevinirim.

 

[Mdemir63]

Selamlar

Aşağıdaki gibi deneyiniz

Sub Düğme1_Tıkla()
Sheets("1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ActiveSheet.Range("G2")

ActiveSheet.Shapes.SelectAll
Selection.Delete

End Sub

 

[Muzaffer Ali]

Merhaba.
Dosyanızdaki kodları aşağıdaki ile değiştirin.

Sub Düğme1_Tıkla()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        If syf.Name = Worksheets("1").Range("G2").Text Then
            MsgBox syf.Name & " adında bir sayfa zaten var. Lütfen 'G2' hücresine başka bir sayafa adı yazınız.", vbExclamation
            Exit Sub
        End If
    Next
    Set syf = Worksheets.Add(After:=Sheets(Sheets.Count))
    syf.Name = Worksheets("1").Range("G2").Text
    Worksheets("1").Range("A2:F14").Copy syf.Range("A1")
End Sub

Sayfadaki "A2:F14" aralığındaki hücreleri yeni sayfanın "A1" hücresinden itibaren kopyalar.

Butonun yeni sayfaya kopyalanmaması için. Butonu sağ tıklatın.
Denetim Biçimlendir seçin. Özellikler tabında bulunan "Hücrelerle taşıma ve boyutlandırma" işaretleyin.

 

[sedat2161]

Selamlar

Aşağıdaki gibi deneyiniz

Sub Düğme1_Tıkla()
Sheets("1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ActiveSheet.Range("G2")

ActiveSheet.Shapes.SelectAll
Selection.Delete

End Sub

Merhaba.
Dosyanızdaki kodları aşağıdaki ile değiştirin.

Sub Düğme1_Tıkla()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        If syf.Name = Worksheets("1").Range("G2").Text Then
            MsgBox syf.Name & " adında bir sayfa zaten var. Lütfen 'G2' hücresine başka bir sayafa adı yazınız.", vbExclamation
            Exit Sub
        End If
    Next
    Set syf = Worksheets.Add(After:=Sheets(Sheets.Count))
    syf.Name = Worksheets("1").Range("G2").Text
    Worksheets("1").Range("A2:F14").Copy syf.Range("A1")
End Sub

Sayfadaki "A2:F14" aralığındaki hücreleri yeni sayfanın "A1" hücresinden itibaren kopyalar.

Butonun yeni sayfaya kopyalanmaması için. Butonu sağ tıklatın.
Denetim Biçimlendir seçin. Özellikler tabında bulunan "Hücrelerle taşıma ve boyutlandırma" işaretleyin.

Çok teşekkür ederim ilginiz için iyi günler

 

[Mdemir63]

İyi çalışmalar