Soru kyuvarla

[sirkülasyon]

Ustam
Cells(Target.Row, "H") / 360) sonucu 1 ise Cells(Target.Row, "L") = 2
Cells(Target.Row, "H") / 360) sonucu 2 ise Cells(Target.Row, "L") = 4
Cells(Target.Row, "H") / 360) sonucu 3 ise Cells(Target.Row, "L") = 4
Cells(Target.Row, "H") / 360) sonucu 4 ise Cells(Target.Row, "L") = 6
Cells(Target.Row, "H") / 360) sonucu 5 ise Cells(Target.Row, "L") = 6

gibi sürekli L sütununa hep çift sayı yazabilecek koda ihtiyacım var.

MRound(Int(Cells(Target.Row, "H") / 360), 2) şeklinde yaptım hata verdi. Yardımcı olabilir misiniz?

 

[52779]

Selamlar,

Makro bilgim az......
Matematiksel olarak
k = Cells(Target.Row, "H") / 360 dersek
TAMSAYI(k/2)*2+2

Şöyle olabilir...
Int(Cells(Target.Row, "H") / 360 / 2) * 2 + 2

 

[sirkülasyon]

Aynısını uyguladım hocam,

'Dim kat As Double
'kat = 2
'For i = 6 To Cells(Rows.Count, 6).End(xlUp).Row
'    Cells(Target.Row, "L") = (Application.MRound(Cells(Target.Row, "I").Value, kat) * 360) - Cells(Target.Row, "H")
'Next

yukarıda ki kodu da uyguladım. Teşekkür ederim hocam. Sağ olasın

 

[52779]

Ben teşekkür ederim...