Koşullu sayfa kopyalama hk.

[muratcx]

Merhaba arkadaşlar

Örnek dosyada görüleceği üzere çalışma kitabında sayfalar arası koşullu kopyalama yapıyorum. Örnek dosyada "veri", "A52" ve "A65" isimli sayfalar var.
Bu sayfalar devamlı artmakta dolayısı ile devamlı yeni sayfa kodları eklenmektedir.
Benim yapmak istediğim ise "veri" sayfasında N1 hücresine girilen sayfa adını "veri" sayasına ilgili aralığa kopyalamak. Yani butona tıkladığımda N1 de
hangi sayfanın adı yazarsa o sayfayı veri sayfasına kopyalasın istiyorum.

Destekleriniz için teşekkür ederim

 

[Korhan Ayhan]

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
    Sheets(Range("N1").Text).Range("A1:K31").Copy
    Range("A1").PasteSpecial xlPasteValues
End Sub

 

[muratcx]

Teşekkür ederim

 

[muratcx]

Korhan Bey,

N1 hücresine yazılan sayfa ismi çalışma kitabında bulunmuyorsa uyarı mesajı vermesi mümkün müdür?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub CommandButton1_Click()
    Dim S1 As Worksheet
    On Error Resume Next
    Set S1 = Sheets(Range("N1").Text)
    On Error GoTo 0
    If Not S1 Is Nothing Then
        Sheets(Range("N1").Text).Range("A1:K31").Copy
        Range("A1").PasteSpecial xlPasteValues
    Else
        MsgBox Range("N1").Text & " isimli sayfa bulunamadı!", vbCritical
    End If
End Sub