Formülü renkli hücrelere uygulamak

[murat kalyon]

Merhabalar,
Bu sorumu forumun diğer bir sayfasında da sordum gerçi ama cevap alamadığım için ayrı bir başlıkta sorma gereği hissettim.

Elimizde bir sayfa ve bir formül var. Bu formülü çalışma sayfasının kırmızı renkte olan satırlarına uygulatmak istiyoruz. Makrolar ile bu işi çözebilirmiyim acaba?
Eğer mümkünse örnek bir formülle açıklayabilir misiniz?

 

[Tarkan VURAL]

Makroyu Renkli Hücrelere Uygulamak

Selam;
Elbette makrolar ile çözülebilir, örnek kodlar aşağıda; dosya ek'te.

Private Sub deneme_click()
Dim hucre As Range
For Each hucre In Range("a1:ı25")
    If [c1].Value = "" Then
    MsgBox "Yazdırılacak formül Bulunamadı", vbExclamation, "HATA"
    Exit Sub
    ElseIf hucre.Interior.ColorIndex = 3 Then
        hucre.Formula = Range("c1").Formula
    End If
Next
    MsgBox " Formüller yazdırıldı", vbInformation, "İşlem Tamam "
End Sub

Kolay gelsin.

 

[murat kalyon]

Tarkan Bey, teşekkür ederim.
Çok faydalı oldu. Makrolar konusunda fazla bilgim yok. Hücre biçimini makroda belirtirken kırmızı ve mavi yazı karakterlerinin kodlarını alabilirmiyim. Zira çalışma sayfamda formülün uygulanmasını istediğim satırlar kırmızı ve mavi renkte yazılacak. Yukarıdaki Kod da hangi satırı; ne şekilde düzeltmeliyim acaba.

 

[Exelans]

hucre.Interior.ColorIndex = 3

 

[Tarkan VURAL]

Yeni başlayanlar için makro kaydeti tavsiye ederim.
Makro kaydet tıklayıp farklı hücreleri farklı renklere boyayın ve sonra kod sayfasından hangi rengin hangi kod olduğunu bulun.
Ã?ğrenmenin bir yolu da deneme yanılma ile olur.

 

[murat kalyon]

Yukarıdaki kodlarda formüller kırmızı dolgulu hücrelere uygulanmaktadır. Benim öğrenmek istediğim; yazı tipi rengi kırmızı renk olan hücrelere mevcut formülü uygulamak için kodda hangi satırları değiştirmeliyim. ikinci bir hususta benim tablomda renklendirme, koşullu biçimlendirme yardımıyla sağlanıyor. Bu sorun çıkarır mı acaba? :?

 

[hamitcan]

ElseIf hucre.Interior.ColorIndex = 3 Then satırını

ElseIf hucre.font.ColorIndex = 3 Then şeklinde değiştirin

2.sorunuz için koşullu biçimlendirme ile ne yapmak istediğiniz önemli. Yani formül yazdırdığınız hücrelerde koşullu biçimlendirme varmı, varsa hangi şarta bağlı olarak çalışmakta ?

 

[murat kalyon]

Ã?ncelikle teşekkürler,
Formül yazdırdığım hücrelerde -başka bir hücredeki bir şarta bağlı olarak koşullu biçimlendirme- uygulanıyor. Ã?rnekleyecek olursam formülü C ve D sütunlarına istiyorum. C ve D sütunlarının rengi A sütununda yazılan rakamın uzunluğuna göre değişiyor. Kırmızı veya mavi oluyor.

 

[hamitcan]

Bilmem sorunuza bir cevap olabilir mi; kırmızı fonta sahip hücreleri koşullu biçimlendirme ile renklendirme olduğu için algılamıyor.

 

[murat kalyon]

korktuğum başıma geldi :agla:
hamitcan saol.

 

[IrmakSSS]

Sayın Uzman Arkadaşlar,

Koşullu biçimlendirme konularında forum üzerinde arama yaptım fakat yapmak istediğim şeyi tam olarak bulamadım.
Sadece bu konu üzerindeki örnek en uygun olanı.

KONU: " Çalışma kitabında bulunan A ve B hücreleri içerisinde - Hücre rengine veya hücre içerisinde bulunan PARA DEĞERİnin € veya $ olup olmadığına bakılarak farklı bir hücre içerisinde formül yazmak istiyorum.

Lütfen ekteki dosyayı inceleyip yardımcı olursanız minnettar olurum.

Saygılar

Selam;
Elbette makrolar ile çözülebilir, örnek kodlar aşağıda; dosya ek'te.

Private Sub deneme_click()
Dim hucre As Range
For Each hucre In Range("a1:ı25")
    If [c1].Value = "" Then
    MsgBox "Yazdırılacak formül Bulunamadı", vbExclamation, "HATA"
    Exit Sub
    ElseIf hucre.Interior.ColorIndex = 3 Then
        hucre.Formula = Range("c1").Formula
    End If
Next
    MsgBox " Formüller yazdırıldı", vbInformation, "İşlem Tamam "
End Sub

Kolay gelsin.

 

[IrmakSSS]

Arkadaşlar,

Çok acil yardımınızı bekliyorum. Lütfen
En kısa sürede bitirmem gerekiyor.

Saygılarımla,