Excel Formulu

2015'den beri5 mesaj

#1
28.08.2016 16:14

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 Konuyu açan

2015'den beri5 mesaj

#2
29.08.2016 11:13

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

_Cheff_06_

2017'den beri8 mesaj

#3
28.09.2017 21:44

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

[D3:D29,D31:D36].Interior.Color = 12611584

ElseIf Target > 500 Then

[D3:D29,D31:D36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[D3:D29,D31:D36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[D3:D29,D31:D36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[D3:D29,D31:D36].Interior.Color = 13382655

ElseIf Target > -750 Then

[D3:D29,D31:D36].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

[D3:D29,D31:D36].Interior.Color = 12611584

ElseIf Target > 500 Then

[D3:D29,D31:D36].Interior.Color = vbBlue

ElseIf Target > 250 Then

[D3:D29,D31:D36].Interior.Color = vbGreen

ElseIf Target > -250 Then

[D3:D29,D31:D36].Interior.Color = vbYellow

ElseIf Target > -500 Then

[D3:D29,D31:D36].Interior.Color = 13382655

ElseIf Target > -750 Then

[D3:D29,D31:D36].Interior.Color = vbRed

End If

End If

End If

End Sub

📎 vba.png 📎 vba.png 📎 vba.png

Cevabını yaz