Koşulu sağlayan hücrelerin tespit Edilmesi

[Erkan2003]

Merhaba arkadaşlar
A sütununda sırası ile 12,8 - 6,4 - 3,2 - 1,6 - 0,8 - 0,4 gibi sayılar var bu sayıların içerisinden 18 değerine ulaşmamı sağlayacak rakamların belirlenmesini sağlamam mümkünmü?
Şimdiden çok teşekkürler

 

[hamitcan]

Aşağıdaki linkte bir kelime bir işlem oyunun Excel'e uyarlanmış hali mevcut, belki işinizi görür.
http://www.excel.web.tr/f135/cozum-ureten-makro-zeka-sorusu-t76181.html

 

[Korhan Ayhan]

Merhaba,

Alternatif olarak aşağıdaki linki inceleyiniz.

Kombinasyon sonucunu sayfalara yazdırabilirmiyiz

 

[Erkan2003]

İlginize teşekkürler arkadaşlar
Benim normal koşullar ile formülle bir çözüme ulaşabilecek konuma geldi bunu makrosal hale döndürebiliriz fakat benim bir sorunum olduğunu farkettim excell de çıkartma işlemini yaparken
2 den 1,2 yi çıkarttığımda sonuç 0,39999999999 gibi bir değer çıkıyor oda formülün doğru çalışmasına engel oluyor bunu nasıl düzeltebilirim

 

[Erkan2003]

İlginize teşekkürler arkadaşlar
Benim normal koşullar ile formülle bir çözüme ulaşabilecek konuma geldi bunu makrosal hale döndürebiliriz fakat benim bir sorunum olduğunu farkettim excell de çıkartma işlemini yaparken
2 den 1,2 yi çıkarttığımda sonuç 0,39999999999 gibi bir değer çıkıyor oda formülün doğru çalışmasına engel oluyor bunu nasıl düzeltebilirim

Bu sorun aşağıdaki linkteki bilgi ile çözüldü.

http://www.excel.web.tr/f47/excel-2007-de-hesaplama-hatasy-t106404.html

 

[Erkan2003]

Private Sub Worksheet_Change(ByVal Target As Range)
If [C6] > [A1] And [C6] = [A1] Then [E1] = [C6] - [A1] Else [E1] = [C6]
End Sub

Eğer formülünü bu şekilde yazdığımda
Run time Error '28' :Out of stack space
Hatası veriyor

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Application.EnableEvents = False
    If [C6] > [A1] And [C6] = [A1] Then
        [E1] = [C6] - [A1]
    Else
        [E1] = [C6]
    End If
Son:
    Application.EnableEvents = True
End Sub

 

[Erkan2003]

Üstadlar çok teşekkürler
Son gelinen nokta ektedir işimi görebilecek durumda ama daha güzel görünebilirliği adına E sutununda bulunan değerleri gözükmeyecek bir şekilde değişkenler tanımlanabilirmi

Kodlar

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Application.EnableEvents = False
   
    If [C6] >= [A1] Then
       [E1] = [C6] - [A1]
       [A1].Interior.ColorIndex = 4
       [D1] = 21

    Else
       [E1] = [C6]
       [A1].Interior.ColorIndex = 0
       [D1] = ""
    End If
    
    If [E1] >= [A2] Then
       [E2] = [E1] - [A2]
       [A2].Interior.ColorIndex = 4
       [D2] = 22
    Else
       [E2] = [E1]
       [A2].Interior.ColorIndex = 0
       [D2] = ""
    End If
    
    
    If [E2] >= [A3] Then
       [E3] = [E2] - [A3]
       [A3].Interior.ColorIndex = 4
       [D3] = 23
    Else
       [E3] = [E2]
       [A3].Interior.ColorIndex = 0
       [D3] = ""
    End If
    
    If [E3] >= [A4] Then
       [E4] = [E3] - [A4]
       [A4].Interior.ColorIndex = 4
       [D4] = 24
    Else
       [E4] = [E3]
       [A4].Interior.ColorIndex = 0
       [D4] = ""
    End If
    
    If [E4] >= [A5] Then
       [E5] = [E4] - [A5]
       [A5].Interior.ColorIndex = 4
       [D5] = 25
    Else
       [E5] = [E4]
       [A5].Interior.ColorIndex = 0
       [D5] = ""
    End If
    
    If [E5] >= [A6] Then
       [E6] = [E5] - [A6]
       [A6].Interior.ColorIndex = 4
       [D6] = 26
    Else
       [E6] = [E5]
       [A6].Interior.ColorIndex = 0
       [D6] = ""
    End If
    
    If [E6] >= [A7] Then
       [E7] = [E6] - [A7]
       [A7].Interior.ColorIndex = 4
       [D7] = 27
    Else
       [E7] = [E6]
       [A7].Interior.ColorIndex = 0
       [D7] = ""
    End If
    
    If [E7] >= [A8] Then
       [E8] = [E7] - [A8]
       [A8].Interior.ColorIndex = 4
       [D8] = 28
    Else
       [E8] = [E7]
       [A8].Interior.ColorIndex = 0
       [D8] = ""
    End If
    
    If [E8] >= [A9] Then
       [E9] = [E8] - [A9]
       [A9].Interior.ColorIndex = 4
       [D9] = 29
    Else
       [E9] = [E8]
       [A9].Interior.ColorIndex = 0
       [D9] = ""
    End If
    
    If [E9] >= [A10] Then
       [E10] = [E9] - [A10]
       [A10].Interior.ColorIndex = 4
       [D10] = 30
    Else
       [E10] = [E9]
       [A10].Interior.ColorIndex = 0
       [D10] = ""
    End If
    
    If [E10] >= [A11] Then
       [E11] = [E10] - [A11]
       [A11].Interior.ColorIndex = 4
       [D11] = 31
    Else
       [E11] = [E10]
       [A11].Interior.ColorIndex = 0
       [D11] = ""
    End If
    
    If [E11] >= [A12] Then
       [E12] = [E11] - [A12]
       [A12].Interior.ColorIndex = 4
       [D12] = 32
    Else
       [E12] = [E11]
       [A12].Interior.ColorIndex = 0
       [D12] = ""
    End If
Son:
    Application.EnableEvents = True
End Sub