Çalışma kitabında artan sıralama

[mcigoz]

Kitapta bir çok sayfa var her sayfanın f3 hücresini numaralandırmak istiyorum ve araya yeni sayfa eklediğimde bu numaralandırma bozulmasın?

 

[uzmanamele]

merhaba

aşağıdaki kodu ThisWorkbook sayfasına yazarak deneyiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For i = 1 To Worksheets.Count
Sheets(i).Range("f3") = i
Next
End Sub

 

[mcigoz]

merhaba

aşağıdaki kodu ThisWorkbook sayfasına yazarak deneyiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For i = 1 To Worksheets.Count
Sheets(i).Range("f3") = i
Next
End Sub

ilginize çok teşekkürler fakat bendeki Türkçe ve yapamadım ;S

 

[uzmanamele]

ilginize çok teşekkürler fakat bendeki Türkçe ve yapamadım ;S

merhaba
bu bir vba kodudur, her dildeki excel dosyalarında çalışır.

ek dosyayı inceleyiniz.

not:
sorularınızı örnek dosya ile destekleyiniz.

 

[mcigoz]

merhaba
bu bir vba kodudur, her dildeki excel dosyalarında çalışır.

ek dosyayı inceleyiniz.

not:
sorularınızı örnek dosya ile destekleyiniz.

tam istediğim gibi olmuş lkin benim sayfama yerleştiremedim ekte bi yardımcı olabilirmisiniz?

 

[uzmanamele]

merhaba

bunu deneyiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For i = 2 To Worksheets.Count
Sheets(i).Range("I2") = "No: " & i
Next
End Sub