Soru Yıl durumuna öğrencinin sınıf atlatılması

[sirkülasyon]

Ustam
F2: F50 arasında öğrenci sınıfları var. (5,6,7 ve 8 gibi)
Yapmak isteyip te yapamadığım şu:
2023 yılı Eylül ayı geldikçe F sütununda ki sınıfları atlatmak. Eğer Sınıf 8 ve son ise A : J aralığının zeminini kırmızı yapacak.
Rica etsem yardımcı olabilmeniz mümkün mü?

 

[ÖmerFaruk]

Örnek bir dosyayla sorunuzu anlatabilir misiniz?

 

[Korhan Ayhan]

Doğru anladıysam aşağıdaki kod işinize yarayacaktır. Kendinize göre revize edersiniz.

Option Explicit

Sub Sinif_Atlat()
    Dim Rng As Range
    
    If Year(Date) = 2023 And Month(Date) = 9 Then
        Range("A2:J50").Interior.Color = xlNone
        For Each Rng In Range("F2:F50")
            Select Case Rng.Value
                Case 5, 6, 7
                    Rng.Value = Rng.Value + 1
                    If Rng.Value = 8 Then Range("A" & Rng.Row).Resize(, 10).Interior.ColorIndex = 3
                Case 8
                    Range("A" & Rng.Row).Resize(, 10).Interior.ColorIndex = 3
            End Select
        Next
    End If
End Sub

 

[sirkülasyon]

Eline emeğine sağlık. Çok çok teşekkür ederim