Renkli alanı toplasın

[UserİGU]

Merhaba arkadaşlar;
Excel' de bir formül yazmak istiyorum fakat nasıl olacağını bilmiyorum. Yardımcı olursanız sevinirim.

C5 ile S5 arasındaki tüm alanlardan sarı renge boyadığım yerleri seçecek ve T6 ya boyalı sayıları toplayacak.

 

[Ömer]

Merhaba,

Boyamı işlemini koşullu biçimlendirmeyle mi yaptınız yoksa elle girişle mi?

 

[UserİGU]

Elle giriş yapıyorum.

 

[Ömer]

Yerleşik formülle değil makro ile kullanıcı tanımlı formül yazarak yapabilirsiniz.

Module kopyalayın.

Function RENK_TOPLA(alan As Range)

    Dim a As Range

    Application.Volatile

    For Each a In alan
        If a.Interior.ColorIndex = 6 Then
            RENK_TOPLA = RENK_TOPLA + a.Value
        End If
    Next
    
End Function

Kullanımı:
Herhangi bir hücrede, örneğin C5:S5 için:

=RENK_TOPLA(C5:S5)

yazarak deneyiniz. C5:S5 aralığını istediğiniz gibi değiştirebilirsiniz.

 

[UserİGU]

Yerleşik formülle değil makro ile kullanıcı tanımlı formül yazarak yapabilirsiniz.

Module kopyalayın.

Function RENK_TOPLA(alan As Range)

    Dim a As Range

    Application.Volatile

    For Each a In alan
        If a.Interior.ColorIndex = 6 Then
            RENK_TOPLA = RENK_TOPLA + a.Value
        End If
    Next
   
End Function

Kullanımı:
Herhangi bir hücrede, örneğin C5:S5 için:

=RENK_TOPLA(C5:S5)

yazarak deneyiniz. C5:S5 aralığını istediğiniz gibi değiştirebilirsiniz.

Çok teşekkür ederim deneyeceğim.

 

[UserİGU]

Yerleşik formülle değil makro ile kullanıcı tanımlı formül yazarak yapabilirsiniz.

Module kopyalayın.

Function RENK_TOPLA(alan As Range)

    Dim a As Range

    Application.Volatile

    For Each a In alan
        If a.Interior.ColorIndex = 6 Then
            RENK_TOPLA = RENK_TOPLA + a.Value
        End If
    Next
   
End Function

Kullanımı:
Herhangi bir hücrede, örneğin C5:S5 için:

=RENK_TOPLA(C5:S5)

yazarak deneyiniz. C5:S5 aralığını istediğiniz gibi değiştirebilirsiniz.

Şimdi ben bunu girmeye çalışıyorum fakat önce makro oluşturmam mı gerekiyor. Makro adı yazdıktan sonra gelen makro penceresinde makro adının altına bunu kopyalayıp yapıştırıyorum bana C5:S5 yapmamın hata olması nedeniyle kabul etmiyor. Makro adını silerek yaptığımda da fonksiyonu çalıştıramadım. Bahsetmiş olduğunuz kullanıcı tanımını da bulamadım.

 

[Ömer]

Linkteki dosyayı indirip inceleyiniz.

İndir Kitap1 Kopya

Dosyayı indir Kitap1 Kopya

dosya.co

.

 

[UserİGU]

Linkteki dosyayı indirip inceleyiniz.

İndir Kitap1 Kopya

Dosyayı indir Kitap1 Kopya

dosya.co

.

Teşekkür ederim sizin yapmış olduğunuz dosya üzerinden yaptım. Fakat kullanıcı ekleme işini çözemedim.