Hücre başına "=" eklemek

[nevermore]

merhaba,
elimde yüklü bir data var ve hücrelerde karışık bir şekilde ama sabit formatta sayılar var (2*4,4*6,6*4.... gibi), ben bunların başına eşittir= koyup bu sayıları hesaplattırmak istiyorum. bir yol var ama sütun sütun ayrı ayrı yapıyorum. kısa yolu varmıdır.? teşekkürler.

 

[uzmanamele]

Merhaba

Bu kodu deneyiniz.

Sub hesapla()
Dim hcr As Range
For Each hcr In Range("A1:E3")
hcr = "=" & hcr
Next
End Sub

 

[nevermore]

teşekkürler, sanırım işimi görücek bu kod. iyi akşamlar.

 

[Milady Meriç]

Gerçekten çok basit ve şık bir kod
Elinize sağlık.

 

[mehmetsahin39]

Benzer bir sıkıntım var, şirketin alım yaptığı sacların metrekare ölçülerini çıkarmak istiyorum. Fakat listede saclar gibi profillerde(NPU 200) var ve verdiğiniz makro hcr = "=" & hcr kısmında hata veriyor. Excel ile ilgili çok büyük bilgim olmadığı için yardımcı olabilirseniz memnun olurum. D hücresindeki verileri E hücresine taşıyarak başlarına = ibaresi koyduktan sonra 1*2000*5000 benzeri değerlerin sayısal dönüştürülmesi. Daha basit bir yöntem bileniniz var ise daha memnun olurum.
Teşekkürler