Beli Sayfada True-False Kontrolü

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Herkese Selamlar,
Aşağıdaki kod sadece Sayfa1'de True olsun. Sayfa1 dışında False olsun.
Teşekkür ediyorum..

With Application
.FixedDecimal = True
.FixedDecimalPlaces = 2
End With
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Merhaba,

Aşağıdaki kodları ilgili sayfanın VBA bölümüne kopyalarsanız sanırım istediğiniz olacaktır.

[vb:1:b00ce0b1a5]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Application
.FixedDecimal = True
.FixedDecimalPlaces = 2
End With
MsgBox Application.FixedDecimal
End Sub

Kolay Gelsin.[/vb:1:b00ce0b1a5]
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
İlgilendiğiniz için teşekkür ediyorum. Ama olmadı.

Sayfa1'de bu kod :

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

Diğer sayfalarda bu kod :

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

Çalışması gerek.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu thisworkbook sayfasına kopyalayarak deneyin.

[vb:1:7ce8a2caf6]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
deg=IIf(ActiveSheet.Name = "Sayfa1", True, False)
With Application
.FixedDecimal =deg
.FixedDecimalPlaces = 2
End With
End Sub
[/vb:1:7ce8a2caf6]
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Levent Bey, teşekkür ediyorum. Mükemmel. Allah razı olsun. Çok süper oldu.
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Merhaba,

leventm hocam yazmış ama eğer bu işlemi sayfa üzerinde buton ile yapmak istiyorsanız aşağıdaki kodları deneyebilirsiniz.

Kolay Gelsin.
[vb:1:971d2e5802]
Sub Button1_Click()
If ActiveSheet.Name = "Sayfa1" Then
With Application
.FixedDecimal = True
.FixedDecimalPlaces = 2
End With
Else
With Application
.FixedDecimal = False
.FixedDecimalPlaces = 2
End With
End If
MsgBox Application.FixedDecimal
End Sub
[/vb:1:971d2e5802]
 
Üst