Kod düzenleme

[k0081]

Merhaba arkadaşlar;

Aşağıda vermiş olduğum koda bir şart eklemek istiyorum;

şöyle ki ;


A2=cm yazıyorsa ; netalan = Abs(toplam / 2) / 10000
A2=m yazıyorsa ; netalan = Abs(toplam / 2)

----------------------------

toplam = WorksheetFunction.Sum(Range("f4:f" & a))
netalan = Abs(toplam / 2)
[H1] = netalan

yardımcı arkadaşa şimdiden teşekkürler..

 

[vardar07]

Denermisiniz.

If [A2] = "cm" Then
toplam = WorksheetFunction.Sum(Range("f4:f" & a))
netalan = Abs(toplam / 2) / 10000
[H1] = netalan
End If
If [A2] = "m" Then
toplam = WorksheetFunction.Sum(Range("f4:f" & a))
netalan = Abs(toplam / 2)
[H1] = netalan
End If

 

[k0081]

vardar07

Hocam çok teşekkür ediyorum,, tamamdır.. elinize sağlık..