A1 hücre rengi siyah ise A10 a kadar siyah olsun

[Sa.NaL]

MErhaba benim excel uzmanı arkadaşlardan ricam ekteki dosyamda A1 hücre rengi siyah durumda if döngüsü ile kodlarla A1 siyah ise A10 a kadar hücre rengini siyah yapma kodu nasıldır yardımcı olursanız sevinirim.iyi çalışmalar

 

[leumruk]

Selamlar,

If [a1].Interior.ColorIndex = 1 Then [a2:a10].Interior.ColorIndex = 1

 

[Sa.NaL]

else deyip beyaz ise hepsi beyaz olsun nasıl olabilir hocam

 

[dEdE]

Merhaba

Sub Boya()
If [A1].Interior.ColorIndex = 1 Then Range("A2:A10").Interior.ColorIndex = 1
End Sub

Not: Tam 1 dakika geç kalmışım.

 

[Necdet]

Merhaba,

İki ayrı kod hazırladım sizin için. İkincisi sizin istediğiniz döngü ile.

Sub RenkSiyahMı()
If Range("A1").Interior.ColorIndex = 1 Then
    Range("A2:A10").Interior.ColorIndex = 1
Else
    Range("A2:A10").Interior.ColorIndex = xlNone
End If
End Sub

Sub SiyahYap()
If Range("A1").Interior.ColorIndex = 1 Then
    For i = 2 To 10
        Range("A" & i).Interior.ColorIndex = 1
    Next i
End If
End Sub

 

[Necdet]

Ben bir taraftan tv izlerken çoktan yanıtlar gelmiş

 

[leumruk]

else deyip beyaz ise hepsi beyaz olsun nasıl olabilir hocam

If [a1].Interior.ColorIndex = 1 Then
[a2:a10].Interior.ColorIndex = 1
Else:
[a1:a10].Interior.ColorIndex = xlNone
End If

 

[Sa.NaL]

Ben bir taraftan tv izlerken çoktan yanıtlar gelmiş

Hocam benim örneğime uygulamak istiyorum olmuyor ekte inceleyebilirmisiniz şunu yapmak istiyorum ama olmuyor tasarım sayfasında b8 siyah ise b5den b8e kadar siyah olsun değilse beyaz olsun b5den b8 ekadar bu bütün 4lü hücrelerde olacak

 

[Sa.NaL]

Eki unutmuşum

Pardon eki unuttum şimdi koyuyorum

 

[Sa.NaL]

Heralde yapılamadı peki a1 renkli ise a10 a kadar renkli olması koşullu biçimlendirmede kural ekleyerek yapılabilirmi?

 

[Necdet]

Merhaba,

Sorunuz ilk sorduğunuz kadar basit değildi. Örnek dosyayı görünce anlaşılıyor sorunun biraz uğraştırıcı olduğu.

Dosyanızda Koşullu Biçimlendirmeyi kaldırdıktan sonra sanırım başarılı olabildim.

Dosyayı İnceleyiniz.

Sub Renk()
Dim i As Long
Dim a, j, k As Integer
Sheets("Tasarım").Select
For i = 5 To [B65536].End(3).Row Step 4
    For a = 2 To 9
        For j = 0 To 3
            If Cells(i + j, a).Interior.ColorIndex = 1 Then
                k = i + 3
                Range(Cells(i + j, a), Cells(k, a)).Interior.ColorIndex = 1
                Exit For
            End If
        Next j
    Next a
Next i
End Sub

 

[Sa.NaL]

Hocam vaktininiz varsa ben anlatayım ama çok uzun bu benim bitirme tezimin programı koşullu biçimlendirme inanın keyfie koyduğum bişey değil eğer anlatın diyorsanız cevabınızı bekliyorum

 

[Necdet]

Merhaba,

Şöyle sorayım yukarıdaki kodda

[COLOR=darkred]If Cells(i + j, a).Interior.ColorIndex = 1 Then[/COLOR]

Komutu hücre renginin siyah olduğunu sorguluyor, buraya koşullu biçimlendirmedeki şartı yazsanız olur diye düşünüyorum.

 

[Sa.NaL]

Ben kısaca yazıyım yine size ilk ekte verdiğim haliyle anlatıyorum devir sayısı ile oynadığınızda kriterlere uymayanlar hücre renkleri siyahlaşıyor benim sizden kısaca istediğim siyahlaşan hücrelerin bulunduğu 4 lü hücre komple siyahlaşsın yani o dörtlü hücre elendi anlamında .
4 lü hücreden kastım B5:B8 gibi buraya kadar gelelim son bir işlemi kalıyor zaten ayrıca ilginiz için çok tşk ederim

 

[Sa.NaL]

sizin dediğiniz denerim ama farklı sayfalarda olduğu için veriler sheets yanında cells kullanamıyorum vede mantıksal olarak yanlış kaçıyor hocam