dosya açıldığında makro hücreyi sıfırlıyor

[yesmen]

Sub Makro1()
Static adet As Integer
adet = adet + 1
Cells(1, 6) = adet
Range("A1:B1").ClearContents
End Sub
-------------------------------------------------------------
Böyle bir makro hazırladığımda ilgili hücreye artı bir ekleniyor.Fakat dosya kapatılıp tekrar açıldığında makroyu çalıştırdığımda,tekrar sıfırdan başlıyor;ilgili hücre bilgisi üzerine artı bir ilave etmesini nasıl sağlıyabilirim.

 

[Ömer]

Merhaba,

Sub Makro1()
    Range("F1") = Range("F1") + 1
End Sub

İstediğiniz bu mu?

.

 

[yesmen]

doğrudur çok teşekkür ederim