VBA & Excel ve Makrolar Örnekler Sorunlar

 
  Private Sub CommandButton1_Click() 
   
  Range("a1") = (Round(rnd(), 0)) * 100 
   
  If TextBox1.Text > 100 Then 
  MsgBox "Sayı 0-100 aralığında" 
  End If 
   
  If TextBox1.Text > ("a1") Then 
  MsgBox "Aşağıya" 
  Else 
   
  MsgBox "Yukarıya" 
  End If 
   
  If TextBox1.Text = ("a1") Then 
  MsgBox "Tebrikler sayıyı buldunuz" 
   
  End If 
   
  End Sub 
  

Sub sayi_tahmin() 
   
  Dim rastgele 
  rastgele = Int(Rnd() * 1000) 
  Cells(1, 1).Value = rastgele 
  Cells(4, 8).Value = "" 
  End Sub 
   
  Sub tahmin_et() 
  Dim gelen, rastgele, i 
  rastgele = Cells(1, 1).Value 
  gelen = Cells(4, 5).Value 
  If gelen = rastgele Then 
  MsgBox ("Tebrikler doğru sayıyı buldunuz") 
  ElseIf gelen < rastgele Then 
  Cells(4, 8).Value = "Yukarı" 
  ElseIf gelen > rastgele Then 
  Cells(4, 8).Value = "Aşağı" 
  Else 
  Cells(4, 8).Value = "Tahminde hata var" 
  End If 
  End Sub