İki koşulun sağlanması halinde komutların yazılması

[youngeng]

Arkadaşlar bir program üzerinde çalışıyorum exel içinde eğer komutuyla yazmada sorun yok ama makro yazımında if ile iki koşulu nasıl belirtebiliriz.
Örneğin boy ve cinsiyet şartlarına göre girilen kiloya bağlı olarak fiziksel durumunu bulduran bir program yazmak için.
örn. cinsiyet erkek ve boyun<160 olması durumunda kilo <45 ise zayıf 50-55 ise normal şeklinde devam ediyor.

 

[fedeal]

a1 = boy
b1 = kilo
c1 = yazılacak değer(zayıf gibi)
ise

if range("a1").value< 160 and range("b1").value< 45 then range("c1").value= "zayıf"
if range("a1").value< 160 and range("b1").value>50 then range("c1").value= "normal"

istediginiz bu olabilirmi?

 

[youngeng]

Çok teşekkür ederim işime yaradı.

 

[fedeal]

alternatif fikir,

boy/kilo oranına göre hesaplıyabiliriz.
a2:a6 = boy ----160 boy için 60 üstü şişman
b2:b6 = kilo ----160 boy için 50-60 arası normal
c2:c6 = yazılacak değer(zayıf gibi) ----160 boy için 50 altı zayıf

oranlı oldugu için çok değişken uygulanabiliyor ve kodlar kısalabilir. (limitleri attım düzeltilebilir.)
saygılar.

Sub n()
For i = 2 To 6
If (Range("a" & i).Value / Range("b" & i).Value) < 2.6 Then Range("c" & i).Value = "şişman"
If (Range("a" & i).Value / Range("b" & i).Value) >= 2.6 Then Range("c" & i).Value = "normal"
If (Range("a" & i).Value / Range("b" & i).Value) > 3.2 Then Range("c" & i).Value = "zayıf"
Next
End Sub