Sonuca Göre Seçim

[mekanican]

Arkadaşlar ekte yer alan çalışmada hesapla butonuna bastığımda D4 hücresindeki değere göre üstte karşılık gelen değere "X" işaret atmasını istiyorum. Ancak bir türlü beceremedim. Yardımcı olursanız sevinirim.

 

[conari]

Private Sub CommandButton1_Click()
Range("a2", "f2").Value = ""
If Cells(4, 4).Value = 0 Then
Cells(2, 1).Value = "X"
End If
If Cells(4, 4).Value <= 20 And Cells(4, 4).Value > 0 Then
Cells(2, 2).Value = "X"
End If
If Cells(4, 4).Value <= 40 And Cells(4, 4).Value > 20 Then
Cells(2, 3).Value = "X"
End If
If Cells(4, 4).Value <= 60 And Cells(4, 4).Value > 40 Then
Cells(2, 4).Value = "X"
End If
If Cells(4, 4).Value <= 80 And Cells(4, 4).Value > 60 Then
Cells(2, 5).Value = "X"
End If
If Cells(4, 4).Value <= 100 And Cells(4, 4).Value > 80 Then
Cells(2, 6).Value = "X"
End If
End Sub

 

[veyselemre]

Private Sub CommandButton1_Click()
    [a2:f2].ClearContents
    sira = Int([d4] / 20) + 1
    If sira > 0 And sira < 7 Then Cells(2, sira) = "X"
End Sub

 

[mekanican]

Teşekkür

Arkadaşlar ilginiz için çok teşekkür ediyorum.