IF FONKSİYONU sorunu

[nedim2s]

Mrhb arkadaşlar böyle bir site olduğunu henüz yeni keşfettim. yapmak istediğim olay ekteki dosyadan.. EĞER E5 hücresine 1 yazıldıysa yine E5 hücresine 8 yaz; EĞER E5 hücresine 2 yazıldıysa yine E5 hücresine 10 yaz; EĞER E5 hücresine 3 yazıldıysa yine E5 hücresine 12 şeklinde olucaktır.. Bir türlü beceremedim bi yardımcı olursak sevinirim.

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=17327

Buradaki dosyayları inceleyin.

 

[nedim2s]

tamm üstad eywallah zaten bu konuyu açmadan önce hazırladığınız dosyayı inceledim elinize sağlık.. fakat yine olmadı acaba bende kurulu olan excel demi bir sorun war ki diye kafama takıldı bu yüzden rica da bulundum.

 

[altanson]

Bu kodu dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e5]) Is Nothing Then Exit Sub
    If [e5] = 1 Then [e5] = 8
    If [e5] = 2 Then [e5] = 10
    If [e5] = 3 Then [e5] = 12
End Sub

 

[nedim2s]

alakanıza tşkler.. aynen kopyalayıp yapıştırdım formülü hata veriyor ama bi eksik olabilir mi?

 

[altanson]

Kod sayfasına girmeniz gerekliydi;

 

[Merhum İdris SERDAR]

Aşağıdaki kodları sayfa koduna yazın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim oCell As Range
For Each oCell In Range("e5:e5")
Select Case oCell.Value
Case Is = ""
oCell.Value = ""
Case Is = 1
oCell.Value = 8
Case Is = 2
oCell.Value = 10
Case Is = 3
oCell.Value = 12
oCell.Value = ""
End Select
Next oCell
End Sub


.

 

[nedim2s]

çok tşkler ;
syn altanson
syn yurttas
sorun halledildi.