Makro boş olan satırlarda Hata veriyor.

[k0081]

Merhaba arkadaşlar;

Bu hesaplamayı yaparken boş satırlara denk geldiğinde hata alıyor. Bunu boş satırları atlamasını yada hata vermemesini nasıl sağlarım ?

Range("B3:B22").Replace ",", "."
For i = 3 To 7
Range("D" & i) = Evaluate(Range("B" & i).Text) * Range("C" & i)
Next

For i = 11 To 15
Range("D" & i) = Evaluate(Range("B" & i).Text) * Range("C" & i)
Next

For i = 19 To 21
Range("D" & i) = Evaluate(Range("B" & i).Text) * Range("C" & i)
Next

Range("B3:B22").Replace ".", ","
Range("B3:B22").Replace "*", "x"

Yardımcı arkadaşa şimdiden Teşekkürler.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
Range("B3:B22").Replace ",", "."
For i = 3 To 7
Range("D" & i) = Evaluate(Range("B" & i).Value * Range("C" & i).Value)
Next

For i = 11 To 15
Range("D" & i) = Evaluate(Range("B" & i).Value * Range("C" & i).Value)
Next

For i = 19 To 21
Range("D" & i) = Evaluate(Range("B" & i).Value * Range("C" & i).Value)
Next

Range("B3:B22").Replace ".", ","
Range("B3:B22").Replace "*", "x"
End Sub

 

[k0081]

Denedim,

For i = 3 To 7
Range("D" & i) = Evaluate(Range("B" & i).Value * Range("C" & i).Value)

hata verdi.

yani For i = xx to xx bu kısımlarda veri varsa hata vermiyor...

 

[bycakir]

Sub kod()
on error resume next
Range("B3:B22").Replace ",", "."
For i = 3 To 7
Range("D" & i) = Evaluate(Range("B" & i).Value * Range("C" & i).Value)
Next

For i = 11 To 15
Range("D" & i) = Evaluate(Range("B" & i).Value * Range("C" & i).Value)
Next

For i = 19 To 21
Range("D" & i) = Evaluate(Range("B" & i).Value * Range("C" & i).Value)
Next

Range("B3:B22").Replace ".", ","
Range("B3:B22").Replace "*", "x"
End Sub


deneyiniz

 

[k0081]

Teşekkür ediyorum., Tamamdır.

sadece bu kodu ekelemek yeterli oldu...

on error resume next

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

alt kısımdaki kodu da çalıştırmalıyım

Range("B3:B22").Replace "*", "x"

3,50*2,12*3,25 gibi ifadelereden hesap yaptırıyorum. buradaki * x olarak nasıl değiştirebilirim ? Hesap bittikten sonra..

 

[Haluk]

Range("B3:B22").Replace "~*", "x"

.

 

[k0081]

Teşekkür ederim, Tamamdır.