Beli Sayfada True-False Kontrolü

[Seyit Tiken]

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

 

[Recep İpek]

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]

İ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]

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]

Levent Bey, teşekkür ediyorum. Mükemmel. Allah razı olsun. Çok süper oldu.

 

[Recep İpek]

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]