Koşullu Değer Atama

Koşullu Değer Atama, belirlenen kriterlere göre hücrelere otomatik değer atayarak veri analizi ve sınıflandırma yapmaktadır.

Hazır Kodlar: Koşullu Değer Atama

Sub KosulluDegerAtama()

    Dim i As Long
    Dim ws As Worksheet
    Set ws = Sayfa1

    For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        If ws.Cells(i, 2).Value >= 70 Then
            ws.Cells(i, 3).Value = "Geçti"
        Else
            ws.Cells(i, 3).Value = "Kaldı"
        End If
    Next i

End Sub

Açıklamalar:

• ws.Cells(i, 2).Value: Bu kod parçası, her satırdaki Puan (B sütunu) değerini kontrol eder.
• Eğer puan 70 ve üzerindeyse, o hücreye "Geçti" yazılmaktadır.
• Eğer puan 70'in altındaysa, "Kaldı" yazılmaktadır.
• Bu işlem B2 hücresinden başlayarak, tablonun sonuna kadar yapılmaktadır ve C sütununa yazılmaktadır (yani, C2 hücresinden başlayarak).

Kullanım

Yukarıda verilen kodu bu sayfaya yapıştırın ve aşağıdaki gibi basit bir tablo oluşturun.

Kodu Çalıştırın

Sonuç yukarıdaki gibi olacaktır.

Yararlanılması temennisiyle.