bir sheet'i kopyalamak ve üzerindeki bir değeri arttırmak

[lordlegolas]

basitte olsa bir soru sormak istiyorum. sheet1 in aynısını kopyalamak en sona koymak istiyorumama m1 hücresinde kayıtlı olan rakamın ve e8 de kayıtlı olan rakamın 1 artmasını istiyorum nasıl yaparım

 

[Marco]

Aşağıdaki kod iş görüyor
Sub kopyalaartır()
Worksheets("anasayfa").Copy after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Range("E8") = Worksheets("anasayfa").Range("e8") + 1
Worksheets(Worksheets.Count).Range("M1") = Worksheets("anasayfa").Range("M1") + 1
End Sub

 

[lordlegolas]

marco benim massenger çalışmıyo bilmiyorum neden. bu arada sondan bir önceki sayfadaki e8 değeri nasıl diyeceğiz her kopyalamada en son giriş yaptığım sayfadaki değeri arttırmayı istiyorum.

 

[Marco]

worksheets.count sonucu bir sayı olan ifadedir. bu sayıyla işlemler yapılabilir.
sondan bir önceki sayfa ise worksheets(worksheets.count - 1 )

Bu arada lordlegolas ile marconun iş arkadaşları olduğunu ve siteyi ilgiyle azimle takip ettiğini foruma duyurmuş olduk :hey: