Formülü makroya çevirdim, Olmadı..!

Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
Asi bey,
Özel değil ben sadece konuya çözüm getirmeye çalışıyorum. Upload edecek farklı bir yöntem şirkette olduğumdan yok malesef.
 

asi_kral

Özel Üye
Katılım
22 Şubat 2012
Mesajlar
2,833
Excel Vers. ve Dili
Excel 2007 Türkçe
Asi bey,
Özel değil ben sadece konuya çözüm getirmeye çalışıyorum. Upload edecek farklı bir yöntem şirkette olduğumdan yok malesef.
Şirketten eve geçtiğinizde dosyayı gönderirsiniz_?
Ben de işyerindeyim. Her siteden dosya indirmiyorum. Özelime attığınız dosyaya da özele geldiği için yardımcı olmuyorum.
 
Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
Merhaba asi bey,
Koşul ile formülleri nasıl gizleyeceksiniz merak ediyorum. o kadar araştırma yaptım forumda, herhangi bir benzeri konuya rastlamadım.
formüllü alanı tıkladığımızda İşlev çubuğunda formül gizli olmalı, değer görünmeli,
hücre de de yine değer görünmeli.

Örnek çalışmam istediğiniz gibi ektedir.


Kolay gelsin.
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,737
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Formülleri gizlemek için iki yöntem önerebilirim.

1. Yöntem;

Formüllerin göründüğü formül çubuğunu menülerden pasif hale getirmek. Yani gizlemek. Bu şekilde acemi kullanıcılar formülleri göremezler.

2. Yöntem ise kod ile gizlemek ve sayfayı korumaya almaktır.

Kod:
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
 
Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
Merhaba,
Korhan Bey, Formül çubuğunun gizlenmesini biliyordum. bu yöntem benimde işime yaramadı.
Makroya gelince, iyi güzel ama ben sayfada satır sil, veri girme vs tüm işleri yapıyorum. Bana öyle bir yöntem olmalı ki. Asi Bey,e anlattığım gibi yani, sadece formüllü bir hücre tıklandığında, formül çubuğunda formül gizli, formülle gelen veri normal bir şekilde görünmeli. Sanki formül yok gibi.

Asi Bey, koşul ile anlattı ben bir türlü net sonuca ulaşamadım.

Bunu nasıl resmedebiliriz.
 

asi_kral

Özel Üye
Katılım
22 Şubat 2012
Mesajlar
2,833
Excel Vers. ve Dili
Excel 2007 Türkçe
Benim size tavsiye ettiğim yöntem de siz ilk seferinde başarı olduğunuzu yazdınız bende onun üzerinden size yardım ettim. Siz öyle şeyler istiyorsunuz sizden bilgileri almak için cımbız kullanmak zorunda kalıyoruz. Bunların hepsini baştan söylese idiniz bizde ona göre çözüm üretmeye çalışırdık.
Önce diyorsunuz ben bunu yaptım çalışmadı düzeltiyoruz. Olmadı diyorsunuz. Sonra ben sayfa siliyorum diyorsunuz. Soruyu sorduktan sonra soru çok farklı yerlere gidiyor olduğu yerde bir durmadı bugüne kadar.
 
Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
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_kral

Özel Üye
Katılım
22 Şubat 2012
Mesajlar
2,833
Excel Vers. ve Dili
Excel 2007 Türkçe
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.
Dosyanızı çalışma mantığını açık şekilde anlatarak ekler misiniz_?
 
Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
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_kral

Özel Üye
Katılım
22 Şubat 2012
Mesajlar
2,833
Excel Vers. ve Dili
Excel 2007 Türkçe
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.
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.
 
Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
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 :)
 

asi_kral

Özel Üye
Katılım
22 Şubat 2012
Mesajlar
2,833
Excel Vers. ve Dili
Excel 2007 Türkçe
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 :)
Sizin istediğiniz makro ile yapılabilir umarım anlatabildim. :)
 
Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
İnşallah. Makroda olsun ama istediğim gibi olsun istiyorum :) koşul yada Makro farketmez benim için. Formülün anlattığım gibi gizlenmesi önemli.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,737
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Aşağıdaki kod ile sayfadaki işlemleri yapabilirsiniz. Kilitli hücrelere denk gelen işlemlerde uyarı verecektir ve size müsaade etmeyecektir. Zaten sayfa korumasının amacıda sayfadaki düzeni bozmamaktır. Bence sizin artık USERFORM kullanma zamanınız gelmiş. Bu şekilde excel sayfasını kimse göremeyeceği için size daha çok fayda sağlayacaktır.

Kod:
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
 
Katılım
10 Ekim 2010
Mesajlar
1,469
Excel Vers. ve Dili
2010 Türkçe
Merhaba Korhan Bey,
Çalışma zaten sizin yaptığınız bir çalışma ve sayfada userform var, ben sadece formül çubuğundaki formülleri gizlemek istiyorum. Sayfada satır silme ve değişiklik yapma gibi vs. işler hayli hayli olacaktır. Bu kodda bunlara izin verilmemektedir. Kısaca şunu rica ediyorum.
Formüllü bir hücre tıklandığında, formül ile gelen veri, sonuç her neyse formül çubuğunda görünebilir. Ancak formül gizli olmalı. Bu ince ayrıntıyı rica etmekteyim.
Merhaba Asi Bey,
İstediğiniz gibi örnek çalışma, veri çektiği sayfayla beraber ektedir. İlgilerinizden dolayı ayrı ayır teşekkür ederim.
İyi çalışmalar dilerim.
 

Ekli dosyalar

Üst