Hesapla Macro'su

[1Al2Ver]

Merhabalar, Sorun ; Belirli hücrelerdeki verileri ( Örn;B4;C5) "Hesapla" düğmesi aracılığıyla başka hücrelere(Örn; C9;D16)hesaplatarak aktarma yapmak, ancak B4;C5 hücreleri'nin verileri bir formül ile oluşuyor,Örnek bir dosya Ek'tedir, yardımlarınız için teşekkür ederim.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[1Al2Ver]

Sayın leventm, tekrar merhaba, ilginiz için teşekkür ederim, elinize sağlık, ancak verileri "sil" butonu ile temizledikten sonra tekrar boy,kilo ve yaş bilgileri girilip "hesapla" denince ; Run-time error '6' ; Overflow mesajı geldi, debug tıklanınca da Cells(11, "c") = [B4] / ([E4] ^2) satırı işaretlendi, sanırım erkek ve bayan bilgileri aynı anda girilmediğinde oluşuyor (?) müsait olduğunuzda bakarsanız memnun olurum, saygılar

 

[1Al2Ver]

Arkadaşlar merhaba, macro yarım kaldı, yapılması gereken nedir?

 

[Levent Menteşoğlu]

Ben dosyada bahsettiğiniz türde bir sorun yaşamadım. Girdiğiniz verilerde hata veren bir dosyayı eklermisiniz.

 

[1Al2Ver]

Tekrar merhaba, sadece erkek yada bayan verisi(boy,kilo ve yaş) girip, hesapla deyiniz, hatalı dosya Ek'tedir, teşekkür ederim.

 

[Levent Menteşoğlu]

Kod hem erkek hemde kadınlarla ilgili verilerin mutlaka girileceğini düşünerek yazılmıştır. Sadece tek seçenek için dosyadaki kodu aşağıdaki ile değiştirin.

Sub hesapla()
If [b4] <> "" Then
Cells(9, "c") = 66.5 + 13.75 * [b4] + 5.03 * [c4] - 6.75 * [D4]
Cells(10, "c") = (79.5 - 0.24 * [b4] - 0.15 * [D4]) * [b4] / 73.2
Cells(11, "c") = [b4] / ([E4] ^ 2)
Cells(12, "c") = 0.20247 * ([E4] ^ 0.725) * ([b4] ^ 0.425)
Cells(13, "c") = 50 + 2.3 * ([F4] - 60)
Cells(14, "c") = [b4] - [C13]
Cells(15, "c") = 22.01 * [b4]
Cells(16, "c") = [C15] + ([C15] * 0.3)
End If
If [b5] <> "" Then
Cells(9, "d") = 655.1 + 9.56 * [b5] + 1.85 * [c5] - 4.68 * [d5]
Cells(10, "d") = (69.8 - 0.26 * [b5] - 0.12 * [d5]) * [b5] / 73.2
Cells(11, "d") = [b5] / ([E5] ^ 2)
Cells(12, "d") = 0.20247 * ([E5] ^ 0.725) * ([b5] ^ 0.425)
Cells(13, "d") = 45.5 + 2.3 * ([F5] - 60)
Cells(14, "d") = [b5] - [d13]
Cells(15, "d") = 22.01 * [b5]
Cells(16, "d") = [d15] + ([d15] * 0.299)
End If
End Sub

 

[1Al2Ver]

Sayın Leventm, her zamanki gibi yine süper bir macro hazırlamışsınız, emeğiniz ve nezaketiniz için teşekkür ederim, bu dosyasyı "Excel İçin Örnek Uygulamalar"
klasörüne koysam bir mahsuru olurmu, (tamamlanmış bitmiş olanlar artık bir proje sayılır diye düşündüğüm için adı geçen klasörde olması, bana uygun gibi geldi) saygılarımla..

 

[Levent Menteşoğlu]

......... bu dosyasyı "Excel İçin Örnek Uygulamalar"
klasörüne koysam bir mahsuru olurmu, (tamamlanmış bitmiş olanlar artık bir proje sayılır diye düşündüğüm için adı geçen klasörde olması, bana uygun gibi geldi) saygılarımla..

Rica ederim. Dosyayı "Excel İçin Örnek Uygulamalar" başlığına elbette koyabilirsiniz.

 

[1Al2Ver]

Hesaplat Macro'su

Sayın leventm,bu projede emek sizin olduğu için affınıza sığınarak size hitaben yazdım, dosyayı ( sizin ve forum'un sayesinde ben bir iki ilave[ferman ve yanıp sönen hücre] yapabilmiştim ) gösterdiğim arkadaşlarımdan çoğunluğu, görsellik ve işlevsellik adına;

1) Erkek-Bayan "Seçenekli" olsa, seçilmeyen gizlense,
2) "Hesaplat" deyince hem hesaplasa hem de tek bir "Ferman" açılsa,
3) 19 ncu sıradan itibaren ,örneğin 19.sıradaki Kalsiyum tıklandığında
bir pencere açılsa ve içinde en yüksek kalsiyum(demir, iyot vb) içeren on gıda maddesi ile en düşük kalsiyum (demir, iyot vb) içeren on gıda maddesi büyükten küçüğe sıralansa, şeklinde görüş beyan ettiler.
Ek'li dosya da daha açık izah etmeye çalıştım, mahsuru yoksa ve zamanınız var ise, dosya arzulanan hale gelebilir mi ? Teşekkür ederim.

 

[1Al2Ver]

Bu konu acil değil ama dosyanın ( 10 no.lu mesaj ekinde) daha işlevsel olması adına yazılması gereken Kod'lar nelerdir,teşekkür ederim.