her çalışma sayfası oluşturduğumda sayının artması

[Erdal]

Arkadaşlar benim şöyle bir sorunum var. sayfa 1 deki a1 hücresine bir sayı girdiğimde diğer sayfalardaki a1 hücreleri de 1 er artsın. yani sayfa 1 deki a1 hücresine 4 dersem sayfa 2deki a1 hücresi 5 ,sayfa 3 teki ise 6 olsun ayrıca yeni bir sayfa oluşturduğumda (mesela sayfa 4) oda otamatikman değerini yazsın (sayfa 4 a1 hücresi 7 olması gibi) Böyle birşey mümkünmü acaba şimdiden teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfa1'in kod sayfasına kopyalayın. Bu kod Sayfa1 A1 hücresine göre diğer sayfaların A1 hücresindeki değeri atar.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
For a = 2 To Sheets.Count
Sheets(a).[a1] = Target + a - 1
Next
End Sub

Aşağıdaki kodududa thisworkbook kod sayfasına kopyalayın. Bu kodda eklenen yeni sayfayıda dikkate alarak yukarıdaki işlemi tekrarlar.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
For a = 2 To Sheets.Count
Sheets(a).[a1] = Sheets(1).[a1] + a - 1
Next
End Sub