özel dosyalarla ilgilenmiyorum. Boşuna atarsınız. O zaman eve gittiğinizde yüklersiniz_?Şirkette olduğumdan dosya olarak ekleme yapamıyorum.
Mail olarak atıyorum gmail hesabınıza.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
özel dosyalarla ilgilenmiyorum. Boşuna atarsınız. O zaman eve gittiğinizde yüklersiniz_?Şirkette olduğumdan dosya olarak ekleme yapamıyorum.
Mail olarak atıyorum gmail hesabınıza.
Şirketten eve geçtiğinizde dosyayı gönderirsiniz_?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
Dosyanızı çalışma mantığını açık şekilde anlatarak ekler misiniz_?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.
Formüllerin çalışma mantığı ile bilikte istediğimi sanıyordum. Şimdi dosyanızı indirdim formüller başka bir kitaptan veri alıyor ve o kitap bende yok.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.
Sizin istediğiniz makro ile yapılabilir umarım anlatabildim.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![]()
Bunun için dosyanın çalışma mantalitesini öğrenmem gerek.İ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.
Formüllerin hesap yaptığı şekli istiyorum. Anlatamıyor muyum. Yani bu dosyanızdaki formüllerin yaptığı hesabı görmek istiyorum. Ona göre makro yazacağım.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