Hücrelerde verilen isimlere göre yeni sayfa açıp kopyalama

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Ekli dosyada hücrelerde verilen isimlere göre yeni sayfa açıp kopyalama konusunda problemim var.

Sub Kopyala()
    Sheets("Bilgi").Activate
      If Range("A3") = "" Then End
        Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = Sheets("Bilgi").Range(Range("A3").Text)
    Sheets("Bilgi").Range(Range("A4").Text).Copy
    Sheets("Bilgi").Range(Range("A5").Text).PasteSpecial xlPasteValues
End Sub

Neyi beğenmedi acaba?
Saygılarımla

 

[Ömer BARAN]

Merhaba.

Kod güncellendi.
.

[FONT="Arial Narrow"]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
[COLOR="blue"]Sheets(Sheets("Bilgi").[A3].Text).[A1].Activate[/COLOR]
Application.CutCopyMode = False
[COLOR="Blue"]Sheets("Bilgi").Activate[/COLOR]
End Sub[/FONT]

 

[Tevfik_Kursun]

Merhaba Sayın Ömer Hocam,

Sheets("Bilgi").[A5] = Sheets("Bilgi").[A4]

satıra kadar doğru çalışıyor. Bu noktada istenilen A4 hücresinde belirtilen bölgeyi A5 hücresinde belirtilen bölgeye kopyalamak
diye düşünmüştüm. Tag içindeki ifade A4 hücresini A5 hücresine kopyalıyor.
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Sayın Ömer Hocam,
Yukarıdaki mesajda belirtilen satır yerine

    Sheets("Bilgi").Range(Range("A4").Text).Copy
    Sheets("Bilgi").Range(Range("A5").Text).PasteSpecial xlPasteValues

bu iki satırı yazdım ilk satırında 1004 hatası geldi
Saygılarımla

 

[Ömer BARAN]

Önceki cevabımdaki kod'u düzelttim, örnek belgeye bakmadan, verdiğiniz kod'dan anladığıma göre cevap vermiştim.
Önceki kod cevabımdaki;
-- ilk mavi satır yeni sayfadaki yapıştırma alanının seçili kalmasını engellemek için,
-- ikinci mavi satır ise işlem sonrası Bilgi sayfasına tekrar dönmek için.
Bu mavi satırları istediğiniz işleme göre silebilirsiniz de.

 

[Tevfik_Kursun]

Çok teşekkür ederim Sayın Ömer Hocam,
Saygılarımla