RENKLİ_HÜCRE_TOPLA

[catalinastrap]

Merhabalar,
A hücresi boyalı ise b+c yi d hücresine toplatmak istiyorum.Boyalı A hücresi normal rengine döndüğünde toplama yapmasın


yardımcı olursanız çok sevineceğim

 

[catalinastrap]

konu günceldir (makro ile çözümde olabilir)

 

[Necdet]

Merhaba,

Fikir için İNCELEYİNİZ .

Size uygun makro

Sub RTopla()

    Dim i   As Long
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        
        If Range("A" & i).Interior.ColorIndex > 0 Then _
            Range("D" & i) = Range("B" & i) + Range("C" & i)
    Next i
    
End Sub

 

[Ömer]

Merhaba,

Alternatif:

İmleç 2. satırdayken; Ad Tanımlaya girip aşağıdaki formülü "BİCİM" adını vererek tanımlayın.

=AL.HÜCRE(63;$A2)+S_SAYI_ÜRET()*0

Daha sonra aşağıdaki formülü E2 hücresine yazıp alt satırlara kopyalayın.

=EĞER(BİCİM>0;B2+C2;"")

Not: Excel dosyanızı "Makro içerebilen Excel çalışması" olarak kayıt ediniz.

.

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

Dosyada kullanılan formül ve makrolar:

Yerleşik fonksiyon.

=IF(Renki(A2)>0;B2+C2;"")

KTF için:

Function Renki(aln As Range) As Integer

Application.Volatile

    Renki = aln.Interior.ColorIndex

End Function

KTF'yi tetiklemek için:

Sub Macro1()
   
    Calculate
   
End Sub

.

 

[Necdet]

Bir seçenek daha, genel amaçlı olması açısından

Function SartRenkTopla(KontrolHucre As Range) As Boolean

    Application.Volatile
    If KontrolHucre.Interior.ColorIndex > 0 Then SartRenkTopla = True
    
End Function

Kullanımı :

=SartRenkTopla(A2)*TOPLA(B2;C2)

Yada Çarpmak için :

=SartRenkTopla(A2)*ÇARPIM(B2;C2)

gibi.

 

[catalinastrap]

çok teşekkür ederim çözümler için