Yeni Sayfa Oluştur makrosunda yeni sayfada numara atama

[hduyar]

Aşağıdaki örnek olduğu gibi C2 hücresine yazdığım sayı ile yeni bir sayfa açılıyor. Açılan bu yeni saydaki H2 hücresinede C2 de yazılan sayının yazılmasını istiyorum. Yardımcı olan arkadaşlara şimdiden teşekkür ederim.



Sub Yenisayfa()
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("H").Value = sadi
Sheets("KOPYA").Select
Application.CutCopyMode = False
Range("H2").Select
Sheets(4).Select
Application.ScreenUpdating = True

End Sub

 

[Recep İpek]

Denemedim ama,
Range("H").Value = sadi
satırını
Range("H2").Value = sadi
olarak düzeltebilirsiniz.

 

[hduyar]

TeŞekkÜrler

İstedİĞİm Sonucu Verİyor.