Formül varmı yok mu?

[jajiyiko]

Merhaba!

Herkese kolay gelsin.


Problemim şu: Mesela d5 hücresinde şöyle bir formül var =A1*A2 veya( A1+A2) ben bir fomül ile d5 hücresinde formül varmı yokmu nasıl öğrenebilririm?

Not: d1 ,d2, d3 ve d4 de formül yok sadece rakamlar d5 ise formüllül d6 da sayı var. bu böyle yüzlerce satır. benim öğrenmek istediğim hangi gücrelerde formül var hangi hücrelerde sadece sayı var.

şimdiden teşekkür ederim

 

[Ali]

D sütununu seçiniz CTRL+G tuşlarına basınız özel kısmını ve oradan formüller kısmını seçiniz tamamı tıklayınız. D sütununda formül olan hücreler seçili oldu bu hücreler seçili iken renklendirerek görsel olarak daha kolay izleyebilirsiniz.

 

[jajiyiko]

Teşekkürler

Merhaba ali bey ilhinize teşekkür ederim ama benim istediğim frmül yani eğer d5 te formül varsa e5 e şunu yaz yoksa şunu yaz gibi

tekrar teşekkürler

 

[Ali]

Makro ile dediğiniz yapılabilir ama ne istediğinizi açıkca anlatırsanız çözüm üretebiliriz.

 

[Seceren]

=E&#286;ER(D5<>"";"dolu";"bo&#351;")

Bunu denermisin. Tabi yanl&#305;&#351; anlamad&#305;msa.

 

[xxcell]

Makro ile;

if [c1].hasformula then
msgbox "C1 FORM&#220;L &#304;&#199;ER&#304;YOR"
else
msgbox "C1'de form&#252;l yok"
endif

 

[xxcell]

Makro ile;

if [c1].hasformula then
msgbox "C1 FORMÜL İÇERİYOR"
else
msgbox "C1'de formül yok"
endif

Gerçi bu çok temel düzeyde bir örnek oldu. Bu örneği; HASFORMULA kodunu kullanarak yazacağın basit bir fonksiyon ile excel sayfasında kullanabilirsin.
Örneğin bir hücrenin formül içerdiğini öğrenmek için EFORMUL isimli bir Kullanıcı Tanımlı fonksiyon yaptım.

Kodu aşağı ve Örnek Dosyası ektedir.

Function eformul(derlenen As Range) As Boolean
If derlenen.HasFormula Then
eformul = True
Else
eformul = False
End If
End Function

 

[Necdet]

Bende Kullanıcı Tanımlı Bir Fonksiyon önerecektim ki Sayın xxcell önermiş.

Public Function Formul(Hücre)
If Hücre.HasFormula = True Then
        Formul = 1
Else
        Formul = 0
End If
End Function

Add-Ins olarak eklerseniz tüm dosyalarınızda kullanırsınız. Hücre formül içeriyorsa 1, diğer şartta 0 (Sıfır) döndürüyor.

 

[jajiyiko]

Sorunum sayın xxcell taraınfan çözüldü

Sayın xxcell

teşekkür ederim. Sorunum sayenizde çözüldü tekrar teşekkürler.

 

[jajiyiko]

Necdet_Yesertener size de teşekkür ederim

sayın Necdet_Yesertener sizinde ilginize teşekkür ederim. verdiğiniz örnek te işe yarıyor. sağolun