Birleştir komutunda boyalı hücreyi "0" yapmak

[serdargunes58]

selamlar;

Birleştir komutu ile istediğim şekilde hocalarımızın yardımıyla belli bir formül yaptım. ama şimdi o formüle ek olarak eğer hücre boyanırsa içinde her ne yazarsa yazsın "0" olarak görmesini istiyorum.

herkese teşekkür ederim.

ekte daha iyi anlaşılacağını sanıyorum.

 

[Korhan Ayhan]

Selamlar,

İşin içine renk olayı girerse bunu ancak makro ile sorgulayabilirsiniz. Bu sebeple size özel bir fonksiyon yazdım.

Uygulanan kod; (Boş bir modüle uygulayın.)

Option Explicit
 
Function EBİRLEŞTİR(Hücre1 As Range, Hücre2 As Range, Hücre3 As Range, Hücre4 As Range)
    Dim Veri As String
 
    Application.Volatile True
 
    If Hücre1.Value = "" Or Hücre1.Interior.ColorIndex <> -4142 Then
        Veri = Veri & "0"
    Else
        Veri = Veri & Hücre1.Text
    End If
    If Hücre2.Value = "" Or Hücre2.Interior.ColorIndex <> -4142 Then
        Veri = Veri & "0"
    Else
        Veri = Veri & Hücre2.Text
    End If
    If Hücre3.Value = "" Or Hücre3.Interior.ColorIndex <> -4142 Then
        Veri = Veri & "0"
    Else
        Veri = Veri & Hücre3.Text
    End If
    If Hücre4.Value = "" Or Hücre4.Interior.ColorIndex <> -4142 Then
        Veri = Veri & "0"
    Else
        Veri = Veri & Hücre4.Text
    End If
 
    EBİRLEŞTİR = Veri
End Function

Hücrede kullanım şekli;

[B][COLOR=blue]=EBİRLEŞTİR([COLOR=red]Hücre1;Hücre2;Hücre3;Hücre4[/COLOR])[/COLOR][/B]

Siz G6 hücresine aşağıdaki şekilde uygulayacaksınız.

=EBİRLEŞTİR(D5;D7;C6;E6)

Sayfada hücre rengi değiştirdiğinizde sonucu direk göremeyeceksiniz. Bu sebeple renk değiştirdikten sonra F9 tuşuna basınız.

Uygulamalı örnek dosya ektedir.

 

[serdargunes58]

KORHAN HOCAM;

Süpersiniz. tam istediğim gibi oldu. size ne desem azdır. işiniz gücünüz rast gelsin..

kolay gelsin...