[ÇÖZÜLDÜ] Kopyalanacak Sayfa Adını Hücreden Belirlemek

[baydeniro]

Merhaba arkadaşlar. KAYIT sayfası A1:A10 arasındaki verileri B1 hücresinde belirlenen sayfaya kayıt edilmesi için sayfa atama kodu nasıl olmalı ?

Şunları denedim ama maalesef olmadı :

Sheets (B1)
Sheets ("B1")
Sheets [B1]
....

 

[hamitcan]

sheets(""&[b1]&"") şeklinde deneyin.

 

[baydeniro]

Sayın hamitcan ilginize çok teşekkür ederim. Kodu şu şekilde uyguladım ama olmadı. Nerede hata yapmış olabilirim :

Sub Makro7()
Sheets("QWERTY").Select
Range("D11:M53").Select
Selection.Copy
Windows("RAPOR.xls").Activate
Sheets("(99)").Select
Range("D11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy

Sheets ("" & [B1] & "")

ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

 

[Orion1]

Sayın hamitcan ilginize çok teşekkür ederim. Kodu şu şekilde uyguladım ama olmadı. Nerede hata yapmış olabilirim :

Sub Makro7()
Sheets("QWERTY").Select
Range("D11:M53").Select
Selection.Copy
Windows("RAPOR.xls").Activate
Sheets("(99)").Select
Range("D11").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy

Sheets ("" & [B1] & "")

ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

[B][COLOR="Red"]Sheets(Cstr(Range("B1").value)).select[/COLOR][/B]

 

[baydeniro]

Sayın Evren Gizlen, çok çok teşekkürler. Allah sizleri başımızdan eksik etmesin, sağolun varolun. İyi çalışmalar, sağlık ve bol kazançlar dilerim.