Seçilen sheetin birden fazla Move Or Copy yapacak makro

Katılım
8 Eylül 2008
Mesajlar
872
Excel Vers. ve Dili
2016 İngilizce
Merhabalar

Excel çalışma kitabımda seçili olan bir Sayfamı sağ buton tıklayıp move or copy diyerek bir kopyasını oluşturabiliyorum

yalnız ben bu seçili sayfamı 1 tane değilde 5 tane yapmak istiyorum veya 10 tane yapmak istiyorum böyle bir inputbox gelse ve ben kaçtane kopya istiyorsam o kadar kopyasını oluşturabileceğim bir makro düzeneği var mıdır?

Teşekkürler
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
8,936
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
Kod:
Sub Test()
    Count = InputBox("Kopya sayısı")
    For i = 1 To Count
        ActiveWindow.SelectedSheets.Copy After:=Sheets(Sheets.Count)
    Next
End Sub
.
 
Katılım
8 Eylül 2008
Mesajlar
872
Excel Vers. ve Dili
2016 İngilizce
çok teşekkürler üstadım. peki bu oluşan kopya sayfaları adı yanına Parantez içerisinde (2) (3) diye sayfa adları oluşuyor ya

Örneğin sheet1 in 2 tane kopyasını Sheet1 (2) ve Sheet1 (3) şeklinde isim vererek kopyalıyor

Ben Bu sheet adlarına ekstra bir ekleme yapabilir miyim

Örneğin bugünün tarihini
Sheet1 24.01.2020 (2) , Sheet1 24.01.2020 (3) şeklinde
 
Üst