metin olarak görmesini istemedim

[kasimpalas]

hatamı bulamıyorum yardımcı olursanız sevinirim

 

[Orion1]

Merhaba.
Parantez içersine çift tırnakları " koymamışsınız.Kodlar aşağıda.

Private Sub CommandButton1_Click()
Range("a1").Value = TextBox1.Value * 1
Range("a2").Value = TextBox2.Value * 1
Range("a3").Value = TextBox3.Value * 1
Range("a4").Value = TextBox4.Value * 1
Range("a5").Value = TextBox5.Value * 1
End Sub

 

[kasimpalas]

yatım bu sefer de ikin defa yazmaya kalkıştığımda değişik bir hata veriyor

 

[kasimpalas]

textboxların tamamını doldurmadığım takdirde hata veriyor

 

[Orion1]

Merhaba.
Bu türden hatalar oluşmaması için programları yaparken kontroller koyarız.
Bazen bu kontrolleri luşturan kodlar sonuca ulaşan kodlardan dağa uzun olabiliyor.
Ben sizin kodlarınızı aşağıdaki kontlroleri koydum.Textbox'lar boş geçildiğinde veya sayısal bir değer girilmediğinde uyarı mesajı alıyorsunuz.

Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox1.Value) Then
    MsgBox "Textbox1'de Sayısal bir değer olmalıdır.!", vbCritical
    TextBox1 = Empty
    TextBox1.SetFocus
    Exit Sub
End If
If Not IsNumeric(TextBox2.Value) Then
    MsgBox "Textbox2'de Sayısal bir değer olmalıdır.!", vbCritical
    TextBox2 = Empty
    TextBox2.SetFocus
    Exit Sub
End If
If Not IsNumeric(TextBox3.Value) Then
    MsgBox "Textbox3'de Sayısal bir değer olmalıdır.!", vbCritical
    TextBox3 = Empty
    TextBox3.SetFocus
    Exit Sub
End If
If Not IsNumeric(TextBox4.Value) Then
    MsgBox "Textbox4'de Sayısal bir değer olmalıdır.!", vbCritical
    TextBox4 = Empty
    TextBox4.SetFocus
    Exit Sub
End If
If Not IsNumeric(TextBox5.Value) Then
    MsgBox "Textbox5'de Sayısal bir değer olmalıdır.!", vbCritical
    TextBox5 = Empty
    TextBox5.SetFocus
    Exit Sub
End If
Range("a1").Value = TextBox1.Value * 1
Range("a2").Value = TextBox2.Value * 1
Range("a3").Value = TextBox3.Value * 1
Range("a4").Value = TextBox4.Value * 1
Range("a5").Value = TextBox5.Value * 1
End Sub

 

[kasimpalas]

saolun bu iş başımı çok ağrıtıştı. tşk

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[kasimpalas]

son bir soru
vbCritical
TextBox1 = Empty
TextBox1.SetFocus
Exit Sub

açıklarsanız sevinirim

 

[Orion1]

Merhaba.
Kodların dağada kısaltılmış şeklini aşağıda veriyorum.
vbCritical
TextBox1 = Empty
TextBox1.SetFocus
Exit Sub
vbCritical Mesaj kutusunun vericeği uyarıyı belirler.
Tetxbox1=Empty Tetxbox1'in boş olmasını sağlar.
Textbox1.setfocus İmlecin Textbox1'de konumlanmasını sağlar.

Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 5
    If Not IsNumeric(Controls("TextBox" & i)) Then
        MsgBox "TextBox" & i & " Sayısal bir değer olmalıdır.", vbCritical
        Controls("TextBox" & i) = Empty
        Controls("TextBox" & i).SetFocus
        Exit Sub
    End If
Next
Range("a1").Value = TextBox1.Value * 1
Range("a2").Value = TextBox2.Value * 1
Range("a3").Value = TextBox3.Value * 1
Range("a4").Value = TextBox4.Value * 1
Range("a5").Value = TextBox5.Value * 1
End Sub

 

[ilhan1900]

selam bende bir sayaç programı yazdım fakat her command butona bastığımda saysın istiyorum onu nasıl yapacağımı bulamadım. yardımcı olurmusunuz

 

[Orion1]

Merhaba.
Sorunuzu yeni bir mesaj başlığı açarak sorunuz.

 

[ilhan1900]

nasıl msj başlığı açacağımı bilmiyorum

 

[ilhan1900]

nasıl mesaj başlığı açabilirim yardımcı olurmusunuz?

 

[Orion1]

Merhaba.
Ana sayfaya geçin .
Makro seçin.
Açılan sayfadan üstlerde bulununan yenikonu seçin ve mesajınızı yazın.Mesaj başlığınıda yazmayı unutmayın.