Makro ile Kopyalanan Sayfaya Otomatik İsim Verme

[ckaval89]

Üstatlar konu ile ilgili forumu çok araştırdım. Sayfa kopyalamayı başarabildim. Fakat ben ekteki dosyamda B6 hücresindeki rakamı değiştirip sayfayı kopyalamak için makroyu çalıştırdığımda, yeni eklenen sayfaya B6 hücresindeki değerin ismini vermesini istiyorum. Bir türlü başaramadım Konu ile ilgili yardımcı olabilirseniz çok sevinirim. Nazik yardımlarınız için şimdiden çok teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Sub Macro2()
[COLOR="DarkGreen"]'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+k
'[/COLOR]

    [B][COLOR="Blue"]isim = ActiveSheet.Range("B6")[/COLOR][/B]
    Cells.Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
  [B]  [COLOR="blue"]ActiveSheet.Name = isim[/COLOR][/B]

End Sub

. . .

 

[ckaval89]

Çok teşekkürler Emir Bey. Allah razı olsun. emeğinize sağlık.

 

[Ömer BARAN]

Merhaba.

Alanı kopyalamak yerine sayfayı kopyalamak da bir seçenek. Alternatif olsun.
Aynı adlı sayfa zaten varsa ...(2), ...(3) gibi, sonuna adet anlamında sayı eklenerek AD verilir.
.

[B]Sub Makro1()[/B]
    ActiveSheet.Copy After:=ActiveSheet
    On Error Resume Next
    ActiveSheet.Name = [B6]
[B]End Sub[/B]

 

[tugkan]

Merhaba,

Peki İstediğimiz sayfa ve hücreleri yeni bir sayfaya kopyalayabilmek için nasıl bir kod yazmamız lazım?

 

[Emir Hüseyin Çoban]

.

sheets("sayfaismi").range("a1:a10").copy sheets("yenisayfaismi").range("a2")

.

 

[tugkan]

Cevabınızı yeni gördüm. Teşekkür ederim.