bir hücrede üstü çizgili

[Nurcand]

Merhaba Arkadaşlar
Ben birhücrede üstü çizgili ise toplamda üstü çizgili olan hücreyi eksi bakiye olarak nasıl hesaplatabilirim. örnek ek dosyada.

 

[uzmanamele]

Merhaba

Fonksiyon ile mümkün olmaz.
Bu kod işinizi görür sanıyorum.

Sub Strikethrough_Deger()
Dim hcr As Range
For Each hcr In Range("a2:d2")
If hcr.Font.Strikethrough Then
deg = deg + hcr.Value
End If
Next
Range("e2") = Application.WorksheetFunction.Sum(Range("a2:d2")) - deg
End Sub

 

[Necdet]

Merhaba Arkadaşlar
Ben birhücrede üstü çizgili ise toplamda üstü çizgili olan hücreyi eksi bakiye olarak nasıl hesaplatabilirim. örnek ek dosyada.

Merhaba,

Merakımdan soruyorum biçimlendirme yapmaktansa -10 diye girmek daha kolay değil mi?

 

[Korhan Ayhan]

Merhaba,

Dün sorunuzu bende okumuştum fakat cevaplamak için vaktim olamamıştı.

Bende size alternatif olarak kullanıcı tanımlı fönksiyon öneriyorum. Sn. uzmanamele beyin önerdiği kodu fonksiyon haline getirdim. Böylece kodu eklenti yapıp tüm dosyalarınızda kullanabilirsiniz.

Boş bir modüle;

Option Explicit
 
Function ÇTOPLA(Aralık As Range)
    Dim Hücre As Range
    
    Application.Volatile True
    
    For Each Hücre In Aralık
        If Hücre.Font.Strikethrough = True Then ÇTOPLA = ÇTOPLA + Hücre.Value
    Next
End Function

Fonksiyonun hücrede kullanım şekli;

[B][COLOR=blue]=ÇTOPLA([COLOR=red]Hücre_Aralığı[/COLOR])[/COLOR][/B]

E2 hücresindeki formülünüzüde aşağıdaki şekilde değiştirin.

=TOPLA(A2:D2)-ÇTOPLA(A2:D2)

 

[Nurcand]

Arkadaşlar Öncelikle ilgi ve desteğinize çok teşekkür ederim.
Korhan Ayhan hocam sizin verdiğiniz formülü denedim fakat olmadı.
Örneği ek dosyada.

 

[Korhan Ayhan]

Merhaba,

Mesajımdaki ilk kodları boş bir modüle uygulamanız gerekiyor. Yoksa çalıştıramazsınız.

 

[Necdet]

Ben inat ettim.

Ek bir şey yapmaya gerek yok, hücreyi Eksi (-) işareti ile yazarsınız ve çok istiyorsanız eğer görüntünün negatip sayıların üstü çizgili olmasını bunuda Koşullu Biçimlendirme ile yaparsınız.

Dosyayı inceleyiniz. Renkli alana koşullu biçimlendirme uygulanmıştır.

 

[Nurcand]

Teşekkür ederim Korhan Ayhan hocam yaptım oldu.

 

[Necdet]

Bize herhangi bir yorum yok

 

[uzmanamele]

Bize herhangi bir yorum yok

Elime sağlık :tongue:

 

[Necdet]

Elime sağlık :tongue:

hahahahaha he valla uzmanamelem, elimize sağlık