Format değiştirme

[besen]

Merhaba ekteki dosyada a sütununda bazı hücrelerdeki alanlar nümerik olarak hesaplanmıyor. Örneğin A2 ve A4 hücreleri. bu alanların üstüne gelip F2 enter yapınca üstteki toplam değişecek.
bu alanlar da zaten yeşil kulakçık var. "F2" ve enter la bunları düzeltiyorum. Ancak çok fazla olduğu zaman çok zor oluyor. Kolay yolu nedir?

teşekkürler.

 

[Civan Jack]

Sub F2_ENTER()
Dim a As Long
Range("A2").Select
For a = 2 To 50
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
Next a
End Sub

 

[besen]

Merhaba sanırım, farklı kolonlarda işlem yapmak için, her seferinde macroya girip range i değiştirmek gerekiyor.
Range i tabloda işaretleyip, maktoyu oradan çalıştırmak mümkün mü?
teşekkürler.

 

[Civan Jack]

Range("A2").Select yerine ActiveCell.Select yazın ve her sütun için 2. satırı seçip deneyin.

 

[besen]

Merhaba bu cevaba göre işlemleri yaptığımızda , her seferinde makroya bir aralık vermek gerekiyordu. Bunu aşağıdaki şekilde düzelttiler. Ancak bu formülde 2500 satırda bir duruyor, bazen arada takılıyor. Ve daha kötüsü çok yavaş çalışıyor. Ekteki dosyada da görüleceği üzre 30 binlik satırlık bir işlem en az 15 dakika sürüyor. Bir çözüm üretebilir misiniz.

teşekkürler.

Sub kod()
For Each alan In Selection
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
Next
End Sub