Formülü Değil, Sonucu "değer" Olarak Getirmek

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki makro kodu ile ilgili hücreye formül yazdırılıp sonuç alınıyor. Ancak sonuç formül şeklinde beliriyor. Bu sonucu düz rakam olarak getirmek mümkün mü ?

ActiveCell = "=INT(MAX(INDIRECT(R1)))+1"

 

[mancubus]

hemen bir sonraki satıra aşağıdaki kodu eklemek yeterli.

ActiveCell.Value = ActiveCell.Value

 

[baydeniro]

Çok teşekkür ederim sayın mancubus.

 

[mancubus]

rica ederim.

veya ikisi birlikte şöyle de olabilir.

With ActiveCell
    .FormulaR1C1 = "=INT(MAX(INDIRECT(R1)))+1"
    .Value = .Value
End With

 

[baydeniro]

Sayın mancubus "ActiveCell.Value = ActiveCell.Value" kodunu alana yani Range şeklinde kullanabilmenin bir yolu var mı ?

 

[N.Ziya Hiçdurmaz]

yanıt

Sub degeral()
Range("c1:e8") = Range("c1:e8").Value
End Sub

 

[baydeniro]

Çok çok teşekkür ederim sayın N.Ziya Hiçdurmaz. Allah sizlere zeval vermesin.

 

[feyibil]

Mrb ben final puanlarımı girerek ortalamamı bulmak istiyorum