Sub start()
Liczba_punktów = Range("A9")
Select Case Liczba_punktów
Case 0 To 30
Range("B9") = "niedostateczny"
Case 31 To 50
Range("B9") = "dopuszczający"
End Select
End Sub
Cześć,
mam pytanie, jak zrobić by ta funkcja zadziałała na całą kolumnę B1 do B9, narazie działa tylko w komórce B9.
Liczba_punktow = Range("A9")
Select Case Liczba_punktow
Case 0 To 30
Range("B9") = "niedostateczny"
Case 31 To 50
Range("B9") = "dopuszczający"
End Select
End Sub