Bulunduğu sayfanın adını belli hücreden alma

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Tag içindeki makro Ömer Baran Hocamın geçen hafta içinde yaptığı bir çalışma. Bilgi adlı sayfa içindeki belli bölgeyi yeni açtığı sayfaya kopyalıyor.

Sub Kopyala()
    If Sheets("Bilgi").[A3] = "" Then End
        Sheets.Add After:=Sheets("Bilgi")
            ActiveSheet.Name = Sheets("Bilgi").[A3]
                Sheets("Bilgi").Range(Sheets("Bilgi").[A4].Text).Copy
                Sheets(Sheets("Bilgi").[A3].Text).Range(Sheets("Bilgi").[A5].Text).PasteSpecial Paste:=xlPasteValues
            Sheets(Sheets("Bilgi").[A3].Text).[A1].Activate
        Application.CutCopyMode = False
    Sheets("Bilgi").Activate
End Sub

Bunda nasıl değişiklik yapılırsa bulunduğu sayfanın adını da bulunduğu sayfada C1 hücresinden aldırılabilinir?
Saygılarımla

 

[Emir Hüseyin Çoban]

. . .

Hücrede yazan verilere göre sayfaların isimlerini ve olması gereken isimlerini yazarak örneği biraz daha açın...

. . .

 

[Tevfik_Kursun]

Günaydın Hüseyin Hocam,
İlginiz için çok teşekkür ederim.
Ekli dosyada Bilgi sayfasının adını da A2 den alsın istiyorum.
Saygılarımla

 

[Emir Hüseyin Çoban]

. . .

Sub Kopyala()
sayfa = ActiveSheet.Range("A2")
    If Sheets(sayfa).[A3] = "" Then End
        Sheets.Add After:=Sheets(sayfa)
            ActiveSheet.Name = Sheets(sayfa).[A3]
                Sheets(sayfa).Range(Sheets(sayfa).[A4].Text).Copy
                Sheets(Sheets(sayfa).[A3].Text).Range(Sheets(sayfa).[A5].Text).PasteSpecial Paste:=xlPasteValues
            Sheets(Sheets(sayfa).[A3].Text).[A1].Activate
        Application.CutCopyMode = False
    Sheets(sayfa).Activate
End Sub

. . .

 

[Tevfik_Kursun]

Her zamanki gibi harikasınız Sayın Hüseyin Hocam,
Çok teşekkür ederim.
Saygılarımla

 

[Tevfik_Kursun]

Sayın Hüseyin Hocam,
Excel 2010 da sayfa adı kısıtlaması var mı? Sayfa adı 13 karakterden uzunlarda 1004 hatası verdi, anlayamadım.
Saygılarımla

 

[Emir Hüseyin Çoban]

1004 hata uyarisinda dikkat ederseniz aciklama var.
Ornegin hucrede soru isareti gibi... gecerli olmayan bir karakter olabilir.

.

 

[Tevfik_Kursun]

Sayın Hüseyin Hocam,
Haklısınız sayfa adında "-" yi beğenmiyor. İlginize teşekkür ederim
Saygılarımla

 

[rain2003]

Sayın hocam benim kodlarım neden hata veriyor. Anlamadım. Yukarıdaki aynı kodları denedim o da hata veriyor.





Private Sub CommandButton1_Click()
Cells(1, "a") = Format(Now, "ddhhmmss")
sayfa = ActiveSheet.Range("A1")

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sayfa1.[A1].Value
sayfa = Sheets("sayfa1").Range("A1")
Sheets("Sayfa1").[a3:j20].Copy Sheets(sayfa).[A3]

Sheets("sayfa1").Select
Cells(3, 3) = sayfa
End Sub

 

[Emir Hüseyin Çoban]

Sayın hocam benim kodlarım neden hata veriyor. Anlamadım. Yukarıdaki aynı kodları denedim o da hata veriyor.





Private Sub CommandButton1_Click()
Cells(1, "a") = Format(Now, "ddhhmmss")
sayfa = ActiveSheet.Range("A1")

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sayfa1.[A1].Value
sayfa = Sheets("sayfa1").Range("A1")
Sheets("Sayfa1").[a3:j20].Copy Sheets(sayfa).[A3]

Sheets("sayfa1").Select
Cells(3, 3) = sayfa
End Sub

. . .

Sayfa ismi için değişken tanımlanmalı.
Kod başlığından sonra şu satırı ilave edin.

Dim sayfa  As String

. . .

 

[rain2003]

Teşekkür ederim