Microsoft Excel VBA InputBox Select Case Uygulamalı Konu Anlatım İleri Excel 35.Ders

[@hasanozel9441]

Elinize sağlık hocam teşekkür ederim

[@huseyinkole3693]

Private Sub CommandButton1_Click()
Dim gunsira As Integer
Dim gunadi As String
tekrar:
gunsira = InputBox("Lütfen Değer Giriniz")
Select Case gunsira
Case 1
gunadi = "Pazartesi"

Case 2
gunadi = "Salı"

Case 3
gunadi = "Çarşamba"

Case 4
gunadi = "Perşembe"

Case 5
gunadi = "Cuma"

Case 6
gunadi = "Cumartesi"

Case 7
gunadi = "Pazar"

Case Else
gunadi = "Hatalı Giriş Yaptınız"

End Select

Range("b7").Value = ("Gün Adı :" & gunadi)
GoTo tekrar


End Sub