Çoklu sekmelere kopyalamada problem.

[A_day]

İşyerinde lisanslı "İş için Microsoft 365 Uygulamaları" kullanıyorum. Bugüne kadar kullandığım tüm excel versiyonlarında (hatta lisanslı olmayanlarda bile), kaynak bir sayfanın tamamını "Kopyala" yapıp, hedef olarak da çoklu sekmeler seçtiğimde ve "Yapıştır" dediğimde, seçili tüm sekmelere, kaynağın tamamı sorunsuz bir şekilde kopyalanırdı. Bu excelde çoklu sekmelerin sadece aktif olanına "Yapıştır" yapıyor, diğer tüm sekmeler boş.

Çoklu sekme seçimi yaptığımda yukarıda "Dosya ismi - Grup - Excel" yazısını gördüğüm halde, tüm sekmelere kopyalama yapmayı başaramadım.

Bunun bir çözümü var mı?

 

[muhasebeciyiz]

Excel’in yeni sürümlerinde “tüm sayfayı kopyala → çoklu sekmeye yapıştır” davranışı bazı durumlarda bilinçli olarak kısıtlandı.
Şunlardan biri bile varsa, Excel sadece aktif sekmeye yapıştırır:

Grafik
Şekil
Resim
Form denetimi (checkbox, buton)
PivotTable
Tablo (Ctrl+T)
Filtreli tablo
Birleştirilmiş hücreler (bazı durumlarda)
Grup modunda olsan bile Excel sessizce “tek sayfaya yapıştır” moduna düşüyor.
**************************************************
Tüm sayfayı değil, kullanılan alanı kopyala:
Kaynak sayfada:
Ctrl + A (2 kez bas!)
Ctrl + C
Hedef sekmeleri Ctrl ile seç
A1 hücresine tıkla
Ctrl + V
Tek Ctrl+A bazen sadece tabloyu seçer, iki kez basmak kritik.
***************************************************

Eğer “aynı sayfanın kopyası” yeterliyse:
Sayfaya sağ tık
Taşı veya Kopyala
Kopya oluştur ️
Birden fazla kez tekrarla

 

[muhasebeciyiz]

Sub CokluSayfaKopyala()
    Dim src As Worksheet, i As Long, n As Long
    Set src = ActiveSheet         
    n = 20                         

    Application.ScreenUpdating = False
    For i = 2 To n
        src.Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = src.Name & "_" & Format(i, "00")
    Next i
    Application.ScreenUpdating = True
End Sub

Koddaki 2o sayısı toplam kaç adet olacağını belli eder
Yeni sayfaları KaynakAd_02, KaynakAd_03 ... diye isimlendirir
Modüle yapıştır sonrada çalıştır bu kadar

 

[A_day]

Çok teşekkür ediyorum...