ihtiyacın doğduğu hücrenin boyanması

[sorucu]

merhabalar
ekteki excelde örnek verim var.
elimdeki ürün adedi ve hafta hafta olarak ihtiyaç adetleri yazıyor.

elimdeki ürün hangi haftada bitiyorsa o hücrenin boyanması konusunda yarım rica ediyorum.

 

[Ömer]

Merhaba,

D2:N10 (10 değerini artırabilirsiniz) aralığına koşullu biçimlendirmeden formül seçeneğini seçip aşağıdaki formüllü kullanın ve biçimden istediğiniz rengi seçip tamam ile işlemi bitirin.

=VE((TOPLA(C2:$D2)-((SÜTUN()>8)*$I2))<$B2+$C2
 ;(TOPLA($D2:D2)-((SÜTUN()>8)*$I2))>$B2+$C2)

.

 

[sorucu]

Merhaba
deneyip sonucu bildireceğim
yardımınız için teşekkürler

 

[sorucu]

merhaba denedim ancak ekteki excelde olduğu gibi ihtiyaçların başladığı ilk kolonu 100 değeri verdiğim anda oranın renklenmesi lazımdı. renklenmedi
bir şeyler denedim ancak olmadı.

 

[Ömer]

Yan sütunlara ne kadar ilerleyecek. ? Çünkü ben sadece N ye kadar düşünerek sadece mart ayını işe dahil etmiştim.

 

[sorucu]

2015 sonuna kadar ilerleyecek şekilde bir tablo bu.ihtiyaç doğdukça kolon ekleniyor.

 

[Ömer]

Sürekli satır ekleme olacaksa makro kullanmak daha doğru olur diye düşünüyorum.

Sub Stok_Bitis()

    Dim i As Long, deg As Double, j As Integer, topla As Double
    Dim son As Long, sut As Integer
    
    son = Cells(Rows.Count, "A").End(xlUp).Row
    sut = Cells(1, Columns.Count).End(xlToLeft).Column

    Range(Cells(2, "D"), Cells(son, sut)).Interior.ColorIndex = 0
    
    For i = 2 To son
        deg = Cells(i, "B") + Cells(i, "C")
        For j = 4 To Cells(i, Columns.Count).End(xlToLeft).Column
            If Not Cells(1, j) Like "*topla*" Then
                topla = topla + Cells(i, j)
            End If
            If topla > deg Then
                Cells(i, j).Interior.ColorIndex = 3
                Exit For
            End If
        Next j
    Next i

End Sub

.

 

[sorucu]

hemen deniyorum teşekkürler

 

[sorucu]

çok teşekkürler on numara olmuş.elinize sağlık.
gerçek excelime koyayım bunu

 

[sorucu]

ömer bey merhaba
dün akşam bir şey farkettim.gönderdiğim excelde bir satır daha ekledim.ikinci satırda kod doğru çalışmadı.koda anladığım kadarıyla baktım ama bir şey çıkaramadım. bir kez daha bakabilir misiniz? teşekkürler

 

[Ömer]

4-5 satırlık yeni bir dosya ekler misiniz.

 

[sorucu]

ekledim ömer bey. kodu düğmeye bağladım sayıları değiştirdikçe düğmeye basıyorum

 

[Ömer]

Bu şekilde deneyin.

Sub Stok_Bitis()

    Dim i As Long, deg As Double, j As Integer, topla As Double
    Dim son As Long, sut As Integer
    
    son = Cells(Rows.Count, "A").End(xlUp).Row
    sut = Cells(1, Columns.Count).End(xlToLeft).Column
    
    Range(Cells(2, "D"), Cells(son, sut)).Interior.ColorIndex = 0
    
    For i = 2 To son
        deg = Cells(i, "B") + Cells(i, "C")
        For j = 4 To Cells(i, Columns.Count).End(xlToLeft).Column
            If Not Cells(1, j) Like "*topla*" Then
                topla = topla + Cells(i, j)
            End If
            If topla > deg Then
                Cells(i, j).Interior.ColorIndex = 3
                topla = 0
                Exit For
            End If
        Next j
    Next i

End Sub

.