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

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Örnek bir dosyayla sorunuzu anlatabilir misiniz?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Doğru anladıysam aşağıdaki kod işinize yarayacaktır. Kendinize göre revize edersiniz.

C++:
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

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,518
Excel Vers. ve Dili
2021 LTSC TR
Altın Üyelik Bitiş Tarihi
18-06-2026
Eline emeğine sağlık. Çok çok teşekkür ederim
 
Üst