Gün hesaplama

[uyrdkl]

Ekteki dosyayı inceleyip yardımcı olurmusunuz.

 

[uyrdkl]

Bu konuda yardımcı olacak kimse yokmu ?

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Siz I sütununa değer girdikçe girdiğiniz değer kadar sütun renklenecektir. Renklendirme işlemi koşullu biçimlendirme ile yapılmıştır.

 

[uyrdkl]

Hocam biraz daha açıklamaya çalıştım.Tabi 1.işlemin üretimi durmuyor parça sayısı bitene kadar devam ediyor( grafiğin uzunluguda 1. işlem için toplam süre kadar olacak) . bu 2. ve 3. (diğer) işlemler içinde böyle

 

[uyrdkl]

son halinde herşey

 

[uyrdkl]

son hali

Dosyaya eklemeler yaptım istediklerim içinde yazıyor. Şimdiden yardımlarınız için teşekkürler

 

[hamitcan]

Umarım doğru anlamışımdır.

Private Sub Worksheet_Change(ByVal Target As Range)
    k = 11
    Cells.Interior.Color = xlNone
    Son = [f65536].End(3).Row
    For i = 54 To Son
       If Cells(i, "i") = 0 Then
         Range(Cells(i, 11), Cells(i, Cells(i, "f") * 2 + 10)).Interior.Color = vbRed
       Else
        Range(Cells(i, k), Cells(i, (Cells(i, "f") * Cells(i, "i")) * 2 + k - 1)).Interior.Color = vbRed
       End If
        k = k + Cells(i, "i") * 2
    Next
End Sub

 

[uyrdkl]

hamit bey sanırım olmuş bir inceleyeyim teşekkür ederim

 

[uyrdkl]

Hamit bey her satırı farklı renk yapabilirmiyiz.

 

[uyrdkl]

bir iki eksik var

Hamit bey ekte dosyada gerekenleri yazdım İnş. yapabilirsiniz. Şimdiden teşekkürler

 

[hamitcan]

Renk konusu da yapılabilir. Boş olduğum bir zaman uğraşırım.

 

[uyrdkl]

sanırım bu konuda başka yardım yok

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Private Sub Worksheet_Change(ByVal Target As Range)
    k = 11
    Cells.Interior.Color = xlNone
    Son = [f65536].End(3).Row
    For i = 54 To Son
       If Cells(i, "i") = 0 Then
         Range(Cells(i, 11), Cells(i, Cells(i, "f") * 2 + 10)).Interior.ColorIndex = Int((56 * Rnd) + 1)
       Else
        Range(Cells(i, k), Cells(i, (Cells(i, "f") * Cells(i, "i")) * 2 + k - 1)).Interior.ColorIndex = Int((56 * Rnd) + 1)
       End If
        k = k + Cells(i, "i") * 2
    Next
End Sub

 

[uyrdkl]

teşekkürler

ufak bir iki düzeltme kaldı bir incelerseniz

 

[hamitcan]

Aslına bakarsanız sorunuz hakkında çok az şey aklımda kaldı. Umarım doğru yorumlamışımdır.

Private Sub Worksheet_Change(ByVal Target As Range)
    k = 11
    Cells.Interior.Color = xlNone
    Son = [f65536].End(3).Row
    For i = 54 To Son
       If Cells(i, "i") = 0 Then
         Range(Cells(i, 11), Cells(i, Cells(i, "h") * 2 + 10)).Interior.ColorIndex = Int((56 * Rnd) + 1)
       Else
        Range(Cells(i, k), Cells(i, (Cells(i, "h")) * 2 + k - 1)).Interior.ColorIndex = Int((56 * Rnd) + 1)
       End If
        k = k + Cells(i, "i") * 2
    Next
End Sub

 

[uyrdkl]

bir ufak düzeltme daha istiyor

Sayın Hamitcan
Dosya içinde gereken yazılı sanırım oda olursa tamam olacak inş. şimdiden teşekkürler

 

[hamitcan]

Cevapta tekrar eksiklik görüyorsanız, kısıtlarınızı madde madde tekrar belirtip sorunuzu bu şekilde sorun.

Private Sub Worksheet_Change(ByVal Target As Range)
    k = 11
    Cells.Interior.Color = xlNone
    Son = [f65536].End(3).Row
    For i = 54 To Son
       If Cells(i, "i") = 0 Then
         Range(Cells(i, 11), Cells(i, Cells(i, "h") * 2 + 10)).Interior.ColorIndex = Int((56 * Rnd) + 1)
       ElseIf Cells(i - 1, "i") = 0 Then
        Range(Cells(i, Cells(i, "h") * 2 + 10), Cells(i, (Cells(i, "h")) * 4 + 10)).Interior.ColorIndex = Int((56 * Rnd) + 1)
       Else
        Range(Cells(i, k), Cells(i, (Cells(i, "h")) * 2 + k - 1)).Interior.ColorIndex = Int((56 * Rnd) + 1)
       End If
        k = k + Cells(i, "i") * 2
    Next
End Sub