(Döngü)Rakam bulunan hücrenin değiştirilmisi

[drejan62]

Merhabalar,
A1 hücresinde bulunan rakamı 12 ye bölüp tekrar A1 hücresine yazması için nasıl bir makro yazmak gerekir acaba?
Teşekkürler

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
Target = Target.Value / 12
Application.EnableEvents = True
End Sub

 

[halit3]

Merhabalar,
A1 hücresinde bulunan rakamı 12 ye bölüp tekrar A1 hücresine yazması için nasıl bir makro yazmak gerekir acaba?
Teşekkürler

alternatif kod

Sub Makro1()
Range("A1").Value = Range("A1").Value / 12
End Sub

 

[drejan62]

Çok teşekkürler arkadaşlar
bu kadar kolaymıymış.
Sağolun