Yanlış doğruyu götürsün

[tuvarek]

Arama yaptım bulamadım. göremediysem özür dilerim. acaba 3 yanlış bir doğruyu götürsün şeklinde bir formül varmı?

 

[İhsan Tank]

Arama yaptım bulamadım. göremediysem özür dilerim. acaba 3 yanlış bir doğruyu götürsün şeklinde bir formül varmı?

merhaba
d5 hücresine

=B5-C5/3

bu formülü yazınız

 

[ynmcan]

Syn.Tuvarek;

=EĞER(B5<>"";YUKARIYUVARLA(B5-C5/3;0);"")

Fonksiyonunu kullanınız.
Syn. İhsan Tank' ın affına sığınarak,

=B5-C5/3

fonksiyonunda 3'ün katları olmayan sayılarda küsüratlı sonuçlar alırsınız.

AYRICA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Integer
For i = 5 To 50
If Sayfa1.Cells(i, 3) <> "" Then
l = Sayfa1.Cells(i, 3) / 3
x = Sayfa1.Cells(i, 3) / 3
If l < x Then
Sayfa1.Cells(i, 4) = (Sayfa1.Cells(i, 2) - l) + 1
Else
Sayfa1.Cells(i, 4) = Sayfa1.Cells(i, 2) - l
End If
Else
Sayfa1.Cells(i, 4) = Sayfa1.Cells(i, 2)
End If
Next i
End Sub

Makrosunuda kullanabilirsiniz.
her ikisi içinde ayrı ayrı örnek dosyalar ekte inceleyin.

 

[tuvarek]

çok teşekkür ederim