Excel'de gizli bir sayfayı nasıl kopyalayabilirsiniz? 

Excel'de, bir sayfayı mevcut veya başka bir çalışma kitabına hızlı ve kolay bir şekilde taşımak ve kopyalamak mümkündür. Ancak, gizli bir sayfayı etkin çalışma kitabına kopyalamayı denediniz mi? Bu makalede, belirli bir gizli sayfayı etkin Excel dosyasına kopyalamak için size bir VBA kodu tanıtacağım.

VBA kodu ile gizli bir çalışma sayfasını etkin çalışma kitabına kopyalama

VBA kodu ile gizli bir çalışma sayfasını etkin çalışma kitabına kopyalama

Bir çalışma kitabından gizli bir sayfayı kopyalamak ve ona bir isim vermek için aşağıdaki VBA kodu işinizi görebilir:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Ekle Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Gizli bir çalışma sayfasını etkin çalışma kitabına kopyalama:

Sub DupSheet()
'Updateby Extendoffice 20161109
    Dim Actsheet As String
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveWorkbook.Sheets("Sheet12").Visible = True
    ActiveWorkbook.Sheets("Sheet12").Copy _
    after:=ActiveWorkbook.Sheets("Sheet12")
    ActNm = ActiveSheet.Name
    ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
    Sheets(ActiveSheet.Name).Visible = True
    ActiveWorkbook.Sheets("Sheet12").Visible = False
    Application.ScreenUpdating = True
End Sub

Not: Yukarıdaki kodda, Sayfa 12 kopyalamak istediğiniz gizli sayfadır, lütfen ihtiyacınıza göre değiştirin.

3. Ardından bu kodu çalıştırmak için F5 tuşuna basın, size gizli çalışma sayfasının yeni kopyası için bir isim belirtmenizi hatırlatan bir uyarı kutusu açılacaktır, aşağıdaki ekran görüntüsüne bakın:

4. Sonra Tamam düğmesine tıklayın ve gizli sayfa, etkin çalışma kitabında yeni isimle hemen kopyalanacaktır.