girilen verilerin hücrelere sıra ile yazdırılması...

[microaim]

değerli arkadaşlar;

ekte yapmak istediğim şeyle ilgili bir örnek var.yardımcı olursanız sevinirim.

 

[talatcd]

Sıra İle Yazdırma

Dosyada bişeyler yaptım. Mesai bittiğinden detaylı kontrol edemedim. Sorun olursa yarın yine bakarız. Herkese iyi akşamlar.

 

[microaim]

teşekkür ederim güzel oldu.ama 0 ile 50 arasında sayı girilmesi gerekiyor.bunun için ne yapabiliriz?

iyi akşamlar...

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdakileri, standart bir modül sayfasına kopyalayınız ve sayfa üzerindeki butona bu makroyu atayınız.

Sub Sayi_Gir()
Dim x As Variant
x = 1
0
Do While x <> False
   x = InputBox("0-50 arası bir sayı giriniz", "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
Loop
End Sub