ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Murat OSMA]

Bu sabah hazırladığım bir çalışma, buyrun.

Kod: Tümünü seç

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
    MsgBox "Lütfen Kilonuzu Giriniz"
    TextBox2.Value = ""
        End If
    If TextBox1.Value <= 100 Then
    MsgBox "Bu kadar kısa olamazsınız"
    TextBox1.Value = Empty
    TextBox2.Value = Empty
   
        Else
    Sheets("Sayfa1").Range("E6").Value = TextBox1.Value
    TextBox2.Value = Sheets("Sayfa1").Range("E9").Value
    ''=(R[-3]C-100)-(10%*(R[-3]C-100))"
    Range("E9").Select
       
End If
End Sub

Private Sub UserForm_Click()
Application.Visible = True
End Sub

[Erhan Yavuz]

Murat teşekkürler... Ben çalıştırınca program bozuldu.. Aynen evdeki tartı aletinin bozulması gibi..

[egon77]

Murat, ben de sorunsuz çalıştı. Paylaşımın için çok ; yanlız benim 20 kilo fazlam çıktı ona üzüldüm

[Murat OSMA]

Murat teşekkürler... Ben çalıştırınca program bozuldu.. Aynen evdeki tartı aletinin bozulması gibi..

Alemsin Erhan abi . Bozdun programımı.

[Murat OSMA]

Murat, ben de sorunsuz çalıştı. Paylaşımın için çok ; yanlız benim 20 kilo fazlam çıktı ona üzüldüm

Çok üzüldüm Orhan bey.
Gerçekler gün yüzüne çıkmaya başladı...

Aslında, yaşa ve cinsiyete göre ideal kilo hesaplaması yapmak lazım.
Bu sayede bozulan programı belki kurtarabiliriz.

[Murat OSMA]

Bazı ilaveler oldu...
Son hâli ek'tedir..



Modüle

Kod: Tümünü seç

Sub Auto_Open()
Application.Visible = False
UserForm1.Show
End Sub

Form Kod Sayfasına

Kod: Tümünü seç

Private Sub CommandButton1_Click()

    If TextBox1.Value = "" Then
    MsgBox "Lütfen Kilonuzu Giriniz"
    TextBox2.Value = ""
    TextBox2.Value = Empty
        End If
    If TextBox1.Value <= 100 Then
    MsgBox "Bu kadar kısa olamazsınız"
   
        Else
    Sheets("Sayfa1").Range("E6").Value = TextBox1.Value
    TextBox2.Value = Sheets("Sayfa1").Range("E9").Value
    ''=(R[-3]C-100)-(10%*(R[-3]C-100))"
    Range("E9").Select
        End If
        TextBox4.Value = TextBox1.Value
       
    End Sub

Private Sub CommandButton2_Click()
    On Error Resume Next
    If TextBox3.Value = "" Then
    MsgBox "Kilonuzu Girmediniz"
        Else
    UserForm1.Height = 340
    UserForm1.Image1.Visible = True
    MsgBox TextBox3.Value / TextBox4.Value * 55.8, vbInformation, "Vücut/Kütle Oranı"
        End If
    End Sub

Private Sub UserForm_Click()
    Application.Visible = True
    End Sub

Private Sub UserForm_Initialize()
    UserForm1.Image1.Visible = False
    End Sub


[MaviATES]

Sizin çalışmanızı gün içerisinde görünce bu konuda bir çalışmada ben hazırlamak istedim. Umarım beyenirsiniz.



http://rapidshare.com/files/420696389/Ideal_Kilo_Hesaplama__Kilo_Hesapli_.rar.html

[Murat OSMA]

Ellerinize sağlık Kemal bey, çok güzel olmuş..
Yalnız; temizle ve tamam butonları hata veriyor, kodlarının başına On Error Resume Next koyarsak düzelecektir.

İyi günler...

[MaviATES]

Çok teşekkür ederim tavsiyeniz için onu fark etmemişim. Kodu ekledim düzeltilmiş halini ekledim.

[Murat OSMA]

Rica ederim, şimdi daha iyi olmuş Kemal bey.
Yalnız, nacizane bir önerim olacak size.

Çoğu arkadaşımız bir program yaparken Excel'in arka plânda görünmesini istemiyor.
Bunun için de bildiğiniz üzre aşağıdaki kodu kullanıyorlar.

Kod: Tümünü seç

Sub Auto_Open()
Application.Visible = False
UserForm1.Show
End Sub


Ama unuttukları birşey var, paylaştıkları progrmamın kodlarını, başka kullanıcılarında görebilmesi, anlayabilmesi ve geliştirebilmesi için, bir butona, bir nesneye ya da UserForm_Click olayına;

Kod: Tümünü seç

Application.Visible = True
Unload Me

yazmayı unutuyorlar...

Şahsen ben her çalışmamda bu olaya dikkat ediyorum.
Herhangi bir hata da End butonuna bastığımızda, ya da Formu X (Çarpı)den kapattığımızda Form bir anda kayboluyor, arka planda çalıştığı için de bazen başka bir Excel dökümanını açamıyoruz. Ctrl+Alt+Del kombinasyonlarıyla Görev Yöneticisini açıp oradan EXCEL işlemini sonlandır demek zorunda kalıyoruz ki bu kadar vakit kaybına hiç gerek yok bence...

Umarım anlatabilmişimdir...

Yeni paylaşımlarınızı dört gözle bekliyorum Kemal bey.
İyi akşamlar.

[Fethi34]

Biraz zayıf mıyım neyim ? 4 kilo almam gerekiyormuş.

Ellerinize sağlık arkadaşlar, basit ve kullanışlı bir program olmuş.

[Murat OSMA]

Rica ederim Poyraz.
Eklediğin programlar için teşekkür ediyorum.
Görüşürüz.

[erkanokman]

Değerli üstadım gayet güzel bir uygulama olmuş.

[erciyan]

Arkadaşlar ,
Kod kısmına ulaşamadım.

Yardımcı olabilecek arkadaşımız var ise sevinirim.