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.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin