Belirli satırları otomatik renklendirme

[seyfi38]

Arkadaşlar
belirli satırların otomatik bir rekle renklendirmek istiyorum acebe mümkünmü
mesela 30 60 90 120 .........300 330 dgibi satırları örneğin sarı olması

 

[Ömer]

Merhaba,

İlgili satırları seçtikten sonra, Biçim / Koşullu Biçimlendirmeden formül bölümüne,

=mod(satır();30)=0

yazarak biçimden renk seçip tamam butonuna basınız..

.

 

[seyfi38]

Merhaba,

İlgili satırları seçtikten sonra, Biçim / Koşullu Biçimlendirmeden formül bölümüne,

=mod(satır();30)=0

yazarak biçimden renk seçip tamam butonuna basınız..

.

Sayın Espiyonajl cevab için teşekkür ederim
fakat satırları seçmeden yapabilirmiyiz
çünkü çok zaman kaybı oluyor 100-150 satırı seçmek uzun oluyor

 

[Ömer]

Satırla o şekilde seçmenize gerek yokki,

Fare ile A1 hücresinde başlayarak alta doğru istediğiniz kadar çekerek satır seçebilirsiniz..

Buda 2-3 saniyelik bir zamanınızı alır.

Yani sadece renklenecek satırları değil tüm satırları seçerek bu işlemi yapınız..

.

 

[seyfi38]

Satırla o şekilde seçmenize gerek yokki,

Fare ile A1 hücresinde başlayarak alta doğru istediğiniz kadar çekerek satır seçebilirsiniz..

Buda 2-3 saniyelik bir zamanınızı alır.

Yani sadece renklenecek satırları değil tüm satırları seçerek bu işlemi yapınız..

.

Syn.espiyonajl Kardeş ilk söylediğini yanlış anlamışım
sonraki mesajında anladım
teşekkürler sorun sayende çözülmüş oldu
Uzmanlığını konuşturdun yine

 

[seyfi38]

Sayın Espiyonajl
Çözeceğine inandığım bir sorudaha
renklendirdiğimiz Satırların altına 1 er satır otomatik boşluk yapılabilirmi ??

 

[Necdet]

Merhaba,

Kodlarla isterseniz aşağıdaki kodları bir modülle ilişkilendirip kullanabilirsiniz.

Option Explicit
Sub SatirRenklendir()
 
    Dim i As Long, SonSatır As Long
    Dim SonKolon As Integer
    
    Application.ScreenUpdating = False
    
    SonKolon = [IV1].End(1).Column
    
    SonSatır = [A65536].End(3).Row
    For i = 31 To SonSatır Step 30
        Range(Cells(i, "A"), Cells(i, SonKolon)).Interior.ColorIndex = 6
        i = i + 1
        SonSatır = SonSatır + 1
        Rows(i).Insert Shift:=xlDown
        Rows(i).Interior.ColorIndex = xlNone
    Next i
    Application.ScreenUpdating = True
End Sub