HÜCRE ADINA GÖRE SAYFA AÇIP KAYDETME

[polis-53]

Merhaba arkadaşlar aşağıdaki kod sadece c2 hücresindeki veriyi yeni sayfa açarak h2 hücresine yazıyor benim istediğim c2 hücresindeki veriye göre sayfa açıp sayfayı kopile kaydetsin
Sub YENİÜYE()
On Error Resume Next
Application.ScreenUpdating = False
Dim sadi, ssayi
sadi = [C2]
ssayi = Worksheets.Count
For i = 1 To ssayi
If Sheets(i).Name = sadi Then Exit Sub
Next i
Worksheets.Add After:=Worksheets(ssayi)
Worksheets(ssayi + 1).Name = sadi
Sheets("KOPYA").Select
Cells.Select
Selection.Copy

Sheets(ssayi + 1).Select
Cells.Select
ActiveSheet.Paste
Range("H2").Select
Range("H2").Value = sadi
Sheets("KOPYA").Select
Application.CutCopyMode = False
Range("H2").Select
Sheets(i).Select
Application.ScreenUpdating = True
End Sub

 

[tugkan]

Merhaba,
Konuyu aşağıdaki bölüme açarsanız sanırım daha uygun olur.
https://www.excel.web.tr/forums/makro-vba-sorulari.48/