inputboxta cancel tıkladığımda hata mesajı veriyor...

[microaim]

değerli arkadaşlar
ekteki dosya için 2 sorum olacak
1-ekteki dosyada inputboxda cancel tıklandığında hata mesajı veriyor
2-girilen verileri a sütununa yazdırıyor.farklı bir sütuna yazdırmak için ne yapmalıyım.ayrıca 2 satırdan değilde 5.satırdan yazdırmaya başlamak istersen ne yapmam gerekiyor.

şimdiden teşekkür ederim..

 

[Ferhat Pazarçevirdi]

Merhabalar

1-ekteki dosyada inputboxda cancel tıklandığında hata mesajı veriyor

Çünkü, Inputbox'a girdiğiniz değerle For-Next döngüsü çalışıyor. Eğer inputbox'a sayısal olmayan bir değer veya hiçbir değer girmezseniz bu hatayı almanız normal....

Hata kontrolünü tamamlamak ve tekrar hata almamak için aşağıdaki revize edilmiş kodu kullanın.

Sub Sayi_Gir()
Dim x As Variant
x = 1
0
a = InputBox("kaç öğrenciniz var")
If IsNumeric(a) Then
   For i = 1 To a
       If x <> False Then
          x = InputBox(i & ". öğrencinin notu", "VERİ GİRİŞİ")
          If x = Empty Then: Exit Sub
          If IsNumeric(x) Then
             If x >= 0 And x <= 50 Then
                Cells(65536, 1).End(xlUp).Offset(1, 0) = x
             Else
                MsgBox "Girdiğiniz değer geçerli değil", vbCritical, "UYARI"
                GoTo 0
             End If
          ElseIf x = False Then
             Exit Sub
          Else
             MsgBox "Bir sayı girmelisiniz", vbCritical, "UYARI"
             GoTo 0
          End If
       End If
       a = a + 1
   Next i
End If
End Sub

2-girilen verileri a sütununa yazdırıyor.farklı bir sütuna yazdırmak için ne yapmalıyım

Aşağıdaki kod satırındaki, "1" değerini 2 yaparsanız B sütununa, 3 yaparsanız C sütununa yazdırabilirsiniz.

Cells(65536, [B][COLOR=red]1[/COLOR][/B]).End(xlUp).Offset(1, 0) = x

ayrıca 2 satırdan değilde 5.satırdan yazdırmaya başlamak istersen ne yapmam gerekiyor.

4.Satıra "Notlar" şeklinde bir metin yazın. Artık, 5.Satırdan yazmaya başlar.

 

[microaim]

hocam ellerine sağlık.sayenizde bişeyler öğreniyoruz.çok teşekkür ederim..