sayfalar arası kopyalama işlemi

[dj_key_user]

ben vb kod yazarak adı belirli bir hücredeki değere göre yeni bir sayfa açtırdım fakat açtırmış olduğum bu sayfaya anasayfadaki verileri kopyalayamadım. dosya ekte yardımcı olursanız sevinirim

 

[veyselemre]

Sayfayı kopyalayın,
[vb:1:88fb4e5c9a]Sub SayfaAdi()
Dim i As Integer
If Worksheets("AnaSayfa").Range("d2").Value = "" Then Exit Sub
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Worksheets("AnaSayfa").Range("d2").Value Then
MsgBox "Bu isimde bir sayfa bulundu"
Exit Sub
End If
Next i
Sheets("AnaSayfa").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Worksheets("AnaSayfa").Range("d2").Value
End Sub[/vb:1:88fb4e5c9a]

 

[veyselemre]

Sayfayı kopyalayın,
[vb:1:6b7f56ef6f]Sub SayfaAdi()
Dim i As Integer
If Worksheets("AnaSayfa").Range("d2").Value = "" Then Exit Sub
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Worksheets("AnaSayfa").Range("d2").Value Then
MsgBox "Bu isimde bir sayfa bulundu"
Exit Sub
End If
Next i
Sheets("AnaSayfa").Copy After:=Sheets(Worksheets.Count)
ActiveSheet.Name = Worksheets("AnaSayfa").Range("d2").Value
End Sub[/vb:1:6b7f56ef6f]

 

[dj_key_user]

arkadaşlar bu kodu yazdım ben zaten bana yeni açmış olduğum sayfaya verileri koplayacak kod lazım

 

[veyselemre]

Kodu denediniz mi? Acaba...
Sayfaya aynı verileri kopyalayacaksanız, sayfayı kopyalayın zaten verileri de kopyalayacaktır, tekrar kopyalamak zorunda kalmayacaksınız 2 işlemi aynı anda yapmış olursunuz.

İllaki öyle yapmak istiyorum derseniz, kodlarınızı aşağıdaki şekilde değiştirin.
[vb:1:5c39651418]Sub SayfaAdi()
Dim i As Integer
If Worksheets("AnaSayfa").Range("d2").Value = "" Then Exit Sub
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Worksheets("AnaSayfa").Range("d2").Value Then
MsgBox "Bu isimde bir sayfa bulundu"
Exit Sub
End If
Next i

Worksheets.Add.Move After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Worksheets("AnaSayfa").Range("d2").Value

Sheets("AnaSayfa").Select
Cells.Copy

Sheets(Worksheets.Count).Select
ActiveSheet.Paste

End Sub[/vb:1:5c39651418]