Excel'de gizli bir sayfa nasıl kopyalanır?
Excel'de, bir sayfayı mevcut veya başka bir çalışma kitabına hızlı ve kolay bir şekilde taşıyabilir ve kopyalayabiliriz, ancak gizli bir sayfayı etkin çalışma kitabına kopyalamayı hiç denediniz mi? Bu makale, belirli bir gizli sayfayı aktif Excel dosyasına kopyalamanız için bir VBA kodu sunacağım.
Gizli bir çalışma sayfasını etkin çalışma kitabına VBA kodu ile kopyalayın
Gizli bir çalışma sayfasını etkin çalışma kitabına VBA kodu ile kopyalayın
Bir çalışma kitabından gizli bir sayfayı kopyalamak ve ona bir ad vermek için aşağıdaki VBA kodu size bir iyilik yapabilir:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Gizli bir çalışma sayfasını etkin çalışma kitabına kopyalayın:
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, Sac 12 kopyalamak istediğiniz gizli sayfadır, lütfen ihtiyacınıza göre değiştirin.
3. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, gizli çalışma sayfasının yeni kopyası için bir ad belirtmenizi hatırlatan bir istem kutusu açılır, ekran görüntüsüne bakın:
4. Sonra tıklayın OK düğmesi ve gizli sayfa, etkin çalışma kitabındaki yeni adla bir kerede kopyalandı.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
