İdeal Kilo Hesaplama

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

İdeal Kilo Hesaplama

İleti#1)  Murat OSMA » 22 Eyl 2010 08:22

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

Resim

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: İdeal Kilo Hesaplama

İleti#2)  Erhan Yavuz » 22 Eyl 2010 08:30

Murat teşekkürler... Ben çalıştırınca program bozuldu.. Aynen evdeki tartı aletinin bozulması gibi.. [komik] [ilginc]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 00:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 62
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: İdeal Kilo Hesaplama

İleti#3)  egon77 » 22 Eyl 2010 08:44

Murat, ben de sorunsuz çalıştı. Paylaşımın için çok [TESEKKÜR] ; yanlız benim 20 kilo fazlam çıktı ona üzüldüm [bamm]
Kullanıcı avatarı
egon77
Siteye Alışmış
 
Adı Soyadı:orhan özTÜRK
Kayıt: 23 Eyl 2008 09:05
Konum: istanbul
Meslek: finans
Yaş: 44
İleti: 335
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: avcılar

Cevap: İdeal Kilo Hesaplama

İleti#4)  Murat OSMA » 22 Eyl 2010 09:11

Erhan Yavuz yazdı:Murat teşekkürler... Ben çalıştırınca program bozuldu.. Aynen evdeki tartı aletinin bozulması gibi.. [komik] [ilginc]


hehe hehe hehe Alemsin Erhan abi . :lol: Bozdun programımı. [uzgun]
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: İdeal Kilo Hesaplama

İleti#5)  Murat OSMA » 22 Eyl 2010 09:20

egon77 yazdı:Murat, ben de sorunsuz çalıştı. Paylaşımın için çok [TESEKKÜR] ; yanlız benim 20 kilo fazlam çıktı ona üzüldüm [bamm]

Çok üzüldüm Orhan bey. [uzgun] hehe hehe hehe
Gerçekler gün yüzüne çıkmaya başladı... :lol:

Aslında, yaşa ve cinsiyete göre ideal kilo hesaplaması yapmak lazım.
Bu sayede bozulan programı belki kurtarabiliriz. hehe ;;_)
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: İdeal Kilo Hesaplama

İleti#6)  Murat OSMA » 22 Eyl 2010 11:40

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

Resim

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: İdeal Kilo Hesaplama

İleti#7)  MaviATES » 23 Eyl 2010 05:09

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

Resim

http://rapidshare.com/files/420696389/Ideal_Kilo_Hesaplama__Kilo_Hesapli_.rar.html
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
MaviATES
Yeni Başlamış
 
Adı Soyadı:Kemal Yiğiter
Kayıt: 08 Eyl 2009 04:00
Yaş: 36
İleti: 41
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Trabzon

Cevap: İdeal Kilo Hesaplama

İleti#8)  Murat OSMA » 23 Eyl 2010 07:50

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

İyi günler...
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: İdeal Kilo Hesaplama

İleti#9)  MaviATES » 24 Eyl 2010 19:53

Çok teşekkür ederim tavsiyeniz için onu fark etmemişim. Kodu ekledim düzeltilmiş halini ekledim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
MaviATES
Yeni Başlamış
 
Adı Soyadı:Kemal Yiğiter
Kayıt: 08 Eyl 2009 04:00
Yaş: 36
İleti: 41
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Trabzon

Cevap: İdeal Kilo Hesaplama

İleti#10)  Murat OSMA » 24 Eyl 2010 20:40

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. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: İdeal Kilo Hesaplama

İleti#11)  Fethi34 » 10 Ekm 2010 16:10

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

Ellerinize sağlık arkadaşlar, basit ve kullanışlı bir program olmuş. --)(
Kullanıcı avatarı
Fethi34
Siteye Alışmış
 
Adı Soyadı:Poyraz Saydam
Kayıt: 21 Eyl 2009 18:18
Konum: İstanbul
Meslek: Memur
Yaş: 39
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: İdeal Kilo Hesaplama

İleti#12)  Murat OSMA » 08 Şub 2011 18:03

Rica ederim Poyraz.
Eklediğin programlar için teşekkür ediyorum. [op]
Görüşürüz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: İdeal Kilo Hesaplama

İleti#13)  erkanokman » 18 Haz 2015 11:06

şkşk Değerli üstadım gayet güzel bir uygulama olmuş.
Kullanıcı avatarı
erkanokman
Yeni Başlamış
 
Kayıt: 16 Haz 2015 12:38
Meslek: Yazılımcı
Yaş: 38
İleti: 27
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

Cevap: İdeal Kilo Hesaplama

İleti#14)  erciyan » 29 Eyl 2020 06:53

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

Yardımcı olabilecek arkadaşımız var ise sevinirim.
Kullanıcı avatarı
erciyan
Yeni Başlamış
 
Kayıt: 01 Arl 2017 20:42
Meslek: makine mühendisi
Yaş: 43
İleti: 97
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmit /merkez


Forum Örnek Dosyalar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe