tanımlanmıs ada gore hesap yaptırmak

[kneehot]

ıyı aksamlar arkadaslar.yapmaya calıstıgım ad tanımladıgım hucreler ıle ılgılı formul yazarken eger fonksıyonu ıcınde hucrenın adı a ıse dogruysa bır ıslem, yanlıssa baska bır ıslem yapması.ornek ıcındede anlattım orda daha anlasılır sanırım.yardımlar ıcın tesekkurler.

 

[N.Ziya Hiçdurmaz]

yanıt

Tanımlı adı tırnak içine alıp deneyiniz

=EĞER(D5=[COLOR="Red"]"a";[/COLOR]E5/2;E5)

 

[kneehot]

Tanımlı adı tırnak içine alıp deneyiniz

=EĞER(D5=[COLOR="Red"]"a";[/COLOR]E5/2;E5)

denedım ama oyle olmuyor

 

[N.Ziya Hiçdurmaz]

yanıt

Kod ile isterseniz sayfa kod bölümüne uygulayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Goto Reference:="a"
Selection.Font.ColorIndex = 5
If [d5].Font.ColorIndex = 5 Then
[f5] = [e5] / 2
Else
[e5]
End If
End Sub

 

[kneehot]

Kod ile isterseniz sayfa kod bölümüne uygulayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Goto Reference:="a"
Selection.Font.ColorIndex = 5
If [d5].Font.ColorIndex = 5 Then
[f5] = [e5] / 2
Else
[e5]
End If
End Sub

kod ıcın cok tesekkur ederım fakat bunun formul ıcınde kullanımının bır yolu varsa o daha kullanıslı olur benım ıcın.

 

[Merhum İdris SERDAR]

ıyı aksamlar arkadaslar.yapmaya calıstıgım ad tanımladıgım hucreler ıle ılgılı formul yazarken eger fonksıyonu ıcınde hucrenın adı a ıse dogruysa bır ıslem, yanlıssa baska bır ıslem yapması.ornek ıcındede anlattım orda daha anlasılır sanırım.yardımlar ıcın tesekkurler.

Dosyanız ekte.

.