Duyarlılığı sadece aktif sayfaya ayarlama

[gecemavisi]

Saygıdeğer arkadaşlar;

Ben 1. sayfa da bir sürü formülle hesaplamalar yaptırıyorum ve en son toplamlarını sayfa 2 ye kopyalıyorum.

Toplamların olduğu sütundaki hücrelerin biçimlendirmesi sayı formatında 0,00 gibi. Lakin sayfa 2 de ilgili sütunda değerlerin bazıları hassas duyarlılığa ayarlanmış. mesela bir değer 43334,43643234 gibi. Ben sadece sayfa 2 deki duyarlılığın hücrede nasıl görünüyorsa o şekilde duyalılığınında görünmesini istiyorum.
Yani çalışma kitabı için yazılan
ActiveWorkbook.PrecisionAsDisplayed = True

formülün sadece ilgili sayfa için geçerli olmasını istiyorum. Sizce bu işi nasıl hallederim

Saygılarımla..

 

[Seyit Tiken]

Bu kodu ThisWorkbook penceresine yapıştırıp deneyin.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
duy = IIf(ActiveSheet.Name = "Sayfa1", True, False)
ActiveWorkbook.PrecisionAsDisplayed = duy
End Sub