Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır

Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır isimli kod, kullanılan sayfayı yeni bir kitap oluşturarak kopyalar ve adını Yeni Sayfa yapma işlemini sağlar.

XD Destek İste
Sub YeniKitap()
Dim Sh As Worksheet
Set Sh = ActiveSheet
     ActiveSheet.Copy
     Application.Workbooks.Add
     ActiveSheet.Name = "YeniSayfa"
     Sh.Range("A1:Z10").Copy Range("A2")
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Kodların işlevi, önce sayfayı kopyalamak, sonra yeni bir çalışma kitabı açmak, yeni kitabın aktif sayfasına "YeniSayfa " adı vermek ve kopyalanan veriyi yapıştırmak şeklindedir.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Belirli Kriterlere Sahip Satırları Silme
Sayfadaki Kelime ve Sayı Adetlerini Bulma
Aktif Sayfayı Kopyala Yeni Bir Kitaba Yapıştır
Klavyeye Makro Atama ve Çalıştırma
Seçili Hücrenin Sütun Harfini Bulma
Aktif Hücrenin Üstüne Satır Ekleme
Excel Hücresine Gitme Makrosu
Label Nesnesine Kayan Yazı Ekleme
Txt Dosyası Oluşturma
Aktif Hücreye Günün Tarihini Yazma
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Makrolar ile Eliptik Form Oluşturma
Otomatik Sıra Numarası Ekleme
Satırlardaki Farkı Renklendirme
Makro ile Biçimleri Temizleme
Hücredeki Değişikliklerin Kaydını Tutma
Çoklu Bulma ve Karşısındaki Değeri Listeleme
Kopyala ve Özel Yapıştır
Hücrenin Rengini Değiştirme
Bir Aralıktaki Minimum Değeri Renklendirme
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
Aktif Hücrenin Temel Bilgilerini Bulma
X Sayı Atlayarak Satır Gizleme
Roma Rakamlarını Normal Sayılara Dönüştürme
Hesap Makinesini Açma
Alarmlı Saat Ekleme Kodu
Yanıp Sönme Efekti Verme Kodu
Top 10 Değeri Renklendirme
Sayıyı Çift ya da Çiftin Katı Yapma
Ad Yöneticisindeki Tüm Adları Görünür Yapmak
Yorumları İçeren Hücreleri Renklendirme
Excel Açılırken Otomatik İşlem Yaptırma
Tüm Satırda İşlem Yapan Döngü
Excel Makroları ile Klasör Silme
UserForm Resize Özelliği Eklemek
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Bir Aralıktaki Maksimum Değeri Renklendirme
Boş Hücreleri Sıfırlarla Değiştirme
Sayıları Yeni Bir Sayıyla Çarpma
Excel Kitabındaki Sayfa Adlarının Listelenmesi
MsgBox ile Uyarı Çıkarma Kodu
Gizlenmiş Makro Örnekleri
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Her Bir Sütundaki Maksimum Değeri Bulma
Seçili Satırların Sayısını Bulma
Excel Makro ile Hücreye Veri Yazma
Şeffaf UserForm Oluşturma Kodu
TextBox Nesnelerinin Arasında Boşluk Bırakma
Formu Kapatma Makro Kodu
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Klavyenizdeki F2 tuşuna basarsanız, hücrenin ya da formül çubuğunun için giriş yaparsınız.
Shift + F2 tuşlarına basarsanız, aktif hücreye açıklama eklersiniz.
Ctrl + F2 tuşlarına basarsanız, Yazdırma ekranını açarsınız.
Yükleniyor...