satıra +1 eklemek

[parserkan]

Arkadaşlar merhaba

A 1 hücresinden
A 422 hücresine kadar her satırda değişik rakamlarım var. bu rakamları her gün 1 eklemek istiyorum

Örn: A1 de bugün 15 olduğunu düşünelim yarın bunu 16 yapmak istiyorum.

Kendiliğinden artıracak bir formül varmı? Tek tek arttırmak zor oluyor.

Şimdiden teşekkürler

 

[mehmett]

Sn parserkan,

Boş bir hücreye 1 yazın. Yazdığınız 1'i kopyalayın. A1'den A422'ye kadar seçin. Seçtiğiniz alanı sağ tıklayın. Gelen menüde Özel Yapıştır'ı ve Topla'yı seçip enterleyin.

Bu işlemleri yaparken Makro Kaydet komutunu verirseniz bundan sonraki arttırmaları otomatik olarak yapacak bir makronuz olur.

Örnek dosya ektedir.

 

[parserkan]

Teşekkürler :dua:

 

[Seyit Tiken]

Alternatf :

Sub auto_open()
For i = 1 To 500
Cells(i, 1) = Cells(i, 1) + 1
Next i
End Sub