[Çözüldü] 20 TL üstünü yandaki sütuna yazsın

[yesilyurtlu]

Üstadım;
D5 : D150 sütununda girdiğim değer 20.00 TL'nin üstünde ise üstünde olan sayıyı E5:E150 sütununda hemen yanına yazsın
Örnek : D5 = 22,54            E5 = 2,54   Makro ile olursa daha makbul olur.Formül ile yaptıklarım hep siliniyor

[Orion1]

Makro ile olursa daha makbul olur.Formül ile yaptıklarım hep siliniyor

Çalışma sayfası modülüne aşağıdaki kodu yazınız.
Formül olan hücrelerinizi kilitleyip sayfa koruması yaparsanız formülleriniz silinmez.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D1:D150]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value > 20 Then Target.Offset(0, 1).Value = Target.Value - 20
End Sub

[yesilyurtlu]

Evren Abi Teşekkür Ederim.
Hakkını Helal Et.

"ÇÖZÜLDÜ"

[Orion1]

Evren Abi Teşekkür Ederim.
Hakkını Helal Et.

"ÇÖZÜLDÜ"

Rica ederim.
İyi çalışmalar.

[yesilyurtlu]

Evren Abi;
D5 = 22,54            E5 = 2,54 makrosuna F = 20,00 " 22,54 - 2,54 =20,00" Ekleyebilir misiniz? 

[Orion1]

E5 = 2,54 makrosuna F = 20,00 " 22,54 - 2,54 =20,00"  Ekleyebilir misiniz?

O kodları silin bunları yapıştırın.

Kod: [Seç]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D1:D150]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value > 20 Then
    Target.Offset(0, 1).Value = Target.Value - 20
    Target.Offset(0, 2).Value = Target.Value - Target.Offset(0, 1).Value
End If
End Sub

[yesilyurtlu]

Evren Abi ;

Hakkını Helal Et. Abime zahmet verdim.

Teşekkür ederim Abi.

Hayırlı Akşamlar Diliyorum

[Orion1]

Evren Abi ;

Hakkını Helal Et. Abime zahmet verdim.

Teşekkür ederim Abi.

Hayırlı Akşamlar Diliyorum

İyi akşamlar.