Excel Makro Kaydı

Üyelik
24 Mar 2011
Mesajlar
75
Konum
KAHRAMANMARAŞ
Herkese iyi forumlar
Bir excel dosyasında, çalıştırılığında ilgili hücrenin değerini 1 arttıran makro kaydı nasıl olmalıdır? Konu hakkında bilgisi olan arkadaşların cevapları için şimdiden teşekkürler.
 
soruyu excel sayfası her açıldığında belirli bir hücredeki değerin 1 arttırılması şeklinde algıladım.

makroda sayfa1 de A1 hücresini örnek aldım. çalışma sayfası kaydedildikten sonra her açılışta hücredeki değeri 1 arttıracak.

Private Sub Workbook_Open()
Dim a As Integer
a = Sheets("sayfa1").Range("a1")
a = a + 1
Sheets("sayfa1").Range("a1").Value = a
End Sub
 
Buda alternatif olsun

Sub Auto_Open()
Sheets("Sayfa2").Range("E26").Value = Range("E26").Value + 1
End Sub
 
Üst