"A" Sayfasında Çalışan Kod

[Seyit Tiken]

Herkese Selamlar,
Aşağıdaki kod bir çalışma kitabının yalnız "A" sayfasında çalıştırılması mümkün müdür? Yani "A" sayfası aktif(açık) olduğu zaman çalışsın aktif olmadığı zaman(kapalı) çalışmasın.
Teşekkür ediyorum.

Sub Düğme12_Tıklat()
With Application
.FixedDecimal = True
.FixedDecimalPlaces = 2
End With
End Sub

 

[Haluk]

if activesheet.name = "A" then
with application
...
end with
end if
end sub

 

[Seyit Tiken]

Haluk Abe teşekkür ediyorum. Allah razı olsun. Diğer sayfalarda da bu kod çalışıyor. Yalnız "A" sayfasında çalışması gerekirdi. Bu kod "Sabit Ondalık" ile ilgiliydi. Çalışma Kitabının bütün sayfalarını etkiliyor. Yani yapılan bir ayar değişikliği bütün sayfalar için geçerli oluyor. İstenilen sadece "A" sayfasına bu kodun çalışması. Şu an bu kod çalıştırıldığı zaman, virgüle basmadan sayıyı virgülü kısımına, otomatik yazılıyor. Örnek Olarak : Şöyle bir sayı yazalım : 1236 entere basıldığı zaman, sayı biçim : 12,36 olur. Uğraşmama rağmen; varolan sayfalarıda kapsıyor. Yalnız aktif olan "A" sayfasında bu kodun çalışması mümkün müdür? Teşekkürlerimi sunuyorum.

 

[Kemal Demir]

Sub Asayfasi()
Sheets("A").Select
With Application
.FixedDecimal = True
.FixedDecimalPlaces = 2
End With
End Sub


Böle Birşey olabilir mi?

 

[algil]

Sn. Seyit Tiken
Birde böyle deneyin belki olmuştur.

Kodu Thisworkbook yazın

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name = "A" Then
With Application
.FixedDecimal = True
.FixedDecimalPlaces = 2
End With
Else
With Application
.FixedDecimal = False
End With
End If
End Sub