Şirkette olduğumdan dosya olarak ekleme yapamıyorum.
Mail olarak atıyorum gmail hesabınıza.
özel dosyalarla ilgilenmiyorum. Boşuna atarsınız. O zaman eve gittiğinizde yüklersiniz_?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Şirkette olduğumdan dosya olarak ekleme yapamıyorum.
Mail olarak atıyorum gmail hesabınıza.
Asi bey,
Özel değil ben sadece konuya çözüm getirmeye çalışıyorum. Upload edecek farklı bir yöntem şirkette olduğumdan yok malesef.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C3:C" & Rows.Count)) Is Nothing Then Exit Sub
ActiveSheet.Unprotect "123"
Cells.FormulaHidden = True
ActiveSheet.Protect "123"
End Sub
Haklısınız,
Ancak onu 1 defaya mahsus yaptım, sonrada kaç ke uğraştım olmadı, verdiğiniz bilgiyi adım adım uyguladım olmadı.
Aslında formülleri gizleme yöntemi bir üst mesajda belirttiğim gibi.
Formüllü hücre tıklandığında, formül çubuğunda, formül ile gelen verinin görünmesi, dormülün ise gizlenmesi.
Asi Bey,
Şirkettte olduğumdan dosya ekleme yapamıyorum, ama daha önce 24 nolu mesajımda ekledim. Gerekli açıklamarda dosya içinde mevcut olup 26 numaralı mesajımda da belirttiğim bir Formül gizlemek istiyorum.
Teşekkür ederim.
Asi Bey,
O kitaba gerek yok, formüllü bir hücre tıklandığında, formül çubuğunda, formüllerin gizlenmesini istiyorum. Formül ile gelen sonuç normal bir şekilde görünmeli. Bunun için illaki o kitaba gerek yok. Herhangi bir formüllü kitapta olabilir. Olmaz derseniz siz o kitaba uygulayın ben orjinal kitaba uygularım.
Umarım anlaşılabilmişimdir![]()
İnşallah. Makroda olsun ama istediğim gibi olsun istiyorumkoşul yada Makro farketmez benim için. Formülün anlattığım gibi gizlenmesi önemli.
O nedir ? mantalitesi anlayamadım.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C3:C" & Rows.Count)) Is Nothing Then Exit Sub
If Application.CutCopyMode = xlCopy Then Exit Sub
If Application.CutCopyMode = xlCut Then Exit Sub
ActiveSheet.Unprotect "123"
Target.FormulaHidden = True
ActiveSheet.Protect "123", DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End Sub