Excel Formulu

[phunxtar]

Merhaba arkadaşlar, kaç gündür kafa patlatıyorum bir türlü bulamadım. Umarım yardımcı olursunuz.
Şimdi şöyle bir örneğim var: A2:A50 ve B2:B50 arası sayısal değerlerim var. Benim istediğim C1 e bir değer girdiğimde bu değeri A2:A50 arasında kontrol etsin ve aynı değeri bulduğunda, mesela A23 de bulduysa B23 değerini C2 de göstersin. Biraz karışık gibi görünüyor ama umarım doğru anlatabilmişimdir. Şimdiden yardımlarınız için teşekkür ederim..

 

[phunxtar]

DÜŞEYARA ile hallettim, yardıma gerek kalmadı. Meğerse ne kadar basitmiş konu kilit ..

 

[_Cheff_06_]

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, [M279]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[B3:B29,B31:B36].Interior.Color = 12611584

ElseIf Target > 500 Then

[B3:B29,B31:B36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[B3:B29,B31:B36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[B3:B29,B31:B36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[B3:B29,B31:B36].Interior.Color = 13382655

ElseIf Target > -750 Then

[B3:B29,B31:B36].Interior.Color = vbRed

End If

End If

End If

If Not Intersect(Target, [B36]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[C3:C29,C31:C36].Interior.Color = 12611584

ElseIf Target > 500 Then

[C3:C29,C31:C36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[C3:C29,C31:C36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[C3:C29,C31:C36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[C3:C29,C31:C36].Interior.Color = 13382655

ElseIf Target > -750 Then

[C3:C29,C31:C36].Interior.Color = vbRed

End If

End If

End If

If Not Intersect(Target, [C36]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[D329,D3136].Interior.Color = 12611584

ElseIf Target > 500 Then

[D329,D3136].Interior.Color = vbBlue

ElseIf Target > 250 Then

[D329,D3136].Interior.Color = vbGreen

ElseIf Target > -250 Then

[D329,D3136].Interior.Color = vbYellow

ElseIf Target > -500 Then

[D329,D3136].Interior.Color = 13382655

ElseIf Target > -750 Then

[D329,D3136].Interior.Color = vbRed

End If

End If

End If

End Sub
--- Gönderi Güncellendi ---
Aşağıdaki çoklu makroları aynı çalışma sayfasında çalıştırabilirmiyim?


Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, [M279]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[B3:B29,B31:B36].Interior.Color = 12611584

ElseIf Target > 500 Then

[B3:B29,B31:B36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[B3:B29,B31:B36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[B3:B29,B31:B36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[B3:B29,B31:B36].Interior.Color = 13382655

ElseIf Target > -750 Then

[B3:B29,B31:B36].Interior.Color = vbRed

End If

End If

End If

If Not Intersect(Target, [B36]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[C3:C29,C31:C36].Interior.Color = 12611584

ElseIf Target > 500 Then

[C3:C29,C31:C36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[C3:C29,C31:C36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[C3:C29,C31:C36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[C3:C29,C31:C36].Interior.Color = 13382655

ElseIf Target > -750 Then

[C3:C29,C31:C36].Interior.Color = vbRed

End If

End If

End If

If Not Intersect(Target, [C36]) Is Nothing Then

If Target <> "" Then

If Target > 750 Then

[D329,D3136].Interior.Color = 12611584

ElseIf Target > 500 Then

[D329,D3136].Interior.Color = vbBlue

ElseIf Target > 250 Then

[D329,D3136].Interior.Color = vbGreen

ElseIf Target > -250 Then

[D329,D3136].Interior.Color = vbYellow

ElseIf Target > -500 Then

[D329,D3136].Interior.Color = 13382655

ElseIf Target > -750 Then

[D329,D3136].Interior.Color = vbRed

End If

End If

End If

End Sub