Formül Olan Hücrelerin Formülleri görünmesin

[Mdemir63]

Arkadaşlar

Formül olan hücrelerin formülleri Formül çubugunda görünmesin istiyorum.
Nasıl yapabilirim?

Teşekkürler

 

[herguder]

formül çubuğunu kaldırın araçlar >>> seçenekler >>>> görünüm >>> göster

 

[Korhan Ayhan]

Selamlar,

Bu işlemi sayfa koruma yöntemi ilede yapabilirsiniz. İlk olarak tüm hücreleri seçin. Hücreleri Biçimlendirme menüsünden Koruma penceresini açın Kilitli seçeneğini pasif hale getirin ve tamam dedikten sonra formül olan hücrelerinizi seçip yine Hücreleri Biçimlendirme menüsünden Koruma penceresini açın ve Kilitli-Gizli (eğer formülü değiştiririm derseniz Kilitli seçeneğini kullanmayın) seçeneklerini aktif hale getirip sayfanızı koruma altına alın. Artık formülleriniz formül çubuğunda görünmeyecektir.

 

[Mdemir63]

Selamlar,

Bu işlemi sayfa koruma yöntemi ilede yapabilirsiniz. İlk olarak tüm hücreleri seçin. Hücreleri Biçimlendirme menüsünden Koruma penceresini açın Kilitli seçeneğini pasif hale getirin ve tamam dedikten sonra formül olan hücrelerinizi seçip yine Hücreleri Biçimlendirme menüsünden Koruma penceresini açın ve Kilitli-Gizli (eğer formülü değiştiririm derseniz Kilitli seçeneğini kullanmayın) seçeneklerini aktif hale getirip sayfanızı koruma altına alın. Artık formülleriniz formül çubuğunda görünmeyecektir.

Teşekkürler hocam

saygılar

 

[Seyit Tiken]

Alternatif : İmleç formüllü hücreye girdiği an, hem KİLİTLEME hemde GİZLEME yapıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target.HasFormula Then
ActiveSheet.Protect
Selection.FormulaHidden = 0
Else
ActiveSheet.Unprotect
Selection.FormulaHidden = 1
End If
Application.EnableEvents = True
End Sub

 

[Mdemir63]

Alternatif : İmleç formüllü hücreye girdiği an, hem KİLİTLEME hemde GİZLEME yapıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target.HasFormula Then
ActiveSheet.Protect
Selection.FormulaHidden = 0
Else
ActiveSheet.Unprotect
Selection.FormulaHidden = 1
End If
Application.EnableEvents = True
End Sub

Hocam bu kodları nereye yazıyoruz. Yani sayfayamı , Modüle mi?

 

[Seyit Tiken]

İlgili sayfanın kod bölümüne.

 

[Mdemir63]

İlgili sayfanın kod bölümüne.

Teşekkürler hocam

 

[extra5]

Alternatif : İmleç formüllü hücreye girdiği an, hem KİLİTLEME hemde GİZLEME yapıyor.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target.HasFormula Then
ActiveSheet.Protect
Selection.FormulaHidden = 0
Else
ActiveSheet.Unprotect
Selection.FormulaHidden = 1
End If
Application.EnableEvents = True
End Sub

hocam teşekkür ederim çok faydalı oldu gerçekten..