Her yeni sayfada artan sayı

[jsinan]

Sayfa oluşturdukça bir hücredeki sayı +1 artmasını nasıl sağlarım?

 

[Muzaffer Ali]

Excel Dosyanızı açın, VBA kod editörünü açın(CTRL+F11), Soldaki listeden "BuÇalışmaKitabı" açın, açılan sayfaya aşağıdaki kodları kopyalayın.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Worksheets("Sayfa1").Range("A1").Value = Worksheets("Sayfa1").Range("A1").Value + 1
End Sub

Bu kodlar Sayfa1 adlı sayfanın A1 hücresine eklenen sayfa sayısını yazar.

 

[jsinan]

benim hatam. eksik bilgi vermişim.
aslında sayfa oluşturukçadan kastığım eski sayfayı kopyaladığımda yeni sayfada da o hücre kalsın ama sayısı +1 artsın istiyorum

 

[jsinan]

kodu kendim yabancı forumdan buldum yine de teşekkürler ilgin için.

kod:

Sub tt()
Dim i&, j&, t&
t = Sayfa1.[a1] 'asumsi this will be add number
Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
j = j + 1
t = t + j: Sayfa1.[a1].Value = t
End Sub