Satır oluşturma ve Koşullu biçimlendirme

[wezyr]

Merhaba örnekte dosyaya göre kontroler içim sıralı birimde çalışan personel sayısı kadar satır oluşturma ve h sutundaki sayı 5'in katı değilse satırı renklendirmek istiyoruz. sayı az olunca sorun değilde birim sayısı ve çalışan artıkca çok zaman kaybı oluyor. bunu öncelikle makro yada dahakolay bilgisayarı kasmadan yapabileceğimiz yol varsa yardımcı olursanız sevinirim

 

[Ömer]

Merhaba,

Koşullu biçimlendirme için:

H sütununda ilgili alanda koşullu biçimlendirmede formül:

=MOD(H3;5)<>0

Veri düzenleme için:

Sub Duzenle()

    Dim Sv As Worksheet, i As Long, j As Long, sat As Long
    
    Set Sv = Sheets("VERİ")
    
    Application.ScreenUpdating = False
    Sheets("TABLO").Select
    Range("A3:H" & Rows.Count).ClearContents
    
    sat = 3
    For i = 3 To Sv.Cells(Rows.Count, "A").End(xlUp).Row
        For j = 3 To Sv.Cells(Rows.Count, "K").End(xlUp).Row
            Sv.Cells(i, "A").Resize(1, 4).Copy Cells(sat, "A").Resize(Sv.Cells(i, "E"), 4)
            Cells(sat, "E").Resize(Sv.Cells(i, "E"), 1) = Sv.Cells(j, "K")
            Cells(sat, "F") = 1
            Cells(sat, "F").Resize(Sv.Cells(i, "E"), 1).DataSeries Rowcol:=xlColumns, _
                Type:=xlLinear, Date:=xlDay, Step:=1
            sat = Cells(Rows.Count, "A").End(xlUp).Row + 1
        Next j
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.