Hücre Değerine Bağlı Otomatik Değer Atama

Hücre Değerine Bağlı Otomatik Değer Atama, belirlenen kriterlere göre hücre değerlerine otomatik olarak kategori atamayı sağlamaktadır.

Hazır Kodlar: Hücre Değerine Bağlı Otomatik Değer Atama

Sub OtomatikKategoriAtama()

    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 <= 18 Then
            ws.Cells(i, 3).Value = "Genç"
        ElseIf ws.Cells(i, 2).Value >= 19 And ws.Cells(i, 2).Value <= 35 Then
            ws.Cells(i, 3).Value = "Yetişkin"
        Else
            ws.Cells(i, 3).Value = "Yaşlı"
        End If
    Next i

End Sub

Açıklamalar

• ws.Cells(i, 2).Value: Bu kod, her bir satırdaki Yaş (B sütunu) değerini kontrol eder.
• Yaş 18 ve altı ise, Kategori (C sütunu) "Genç" olarak atanır.
• Yaş 19 ile 35 arasında ise, Kategori"Yetişkin" olarak atanır.
• Yaş 36 ve üzeri ise, Kategori"Yaşlı" olarak atanır.

Kullanım

Kodun çalışması için gerekli olan boş tablo aşağıdaki gibidir:

Excel Tablosu” />

Kodu çalıştırın.

Sonuç yukarıdaki gibi olacaktır.

Yararlanılması temennisiyle.