İstenen Kritere göre seçip mesaj verme

[sertackalebek]

Aşağıdaki tabloda değeri 50 ve üzeri olanlar için bir mesaj versin istiyorum. Bir formül veya kod verebilir misiniz?

Mesaj: "DİKKAT! Y6, Y12, Y14 İÇİN KONTROL ZAMANI GELMİŞTİR."

Y1 0
Y2 0
Y3 0
Y4 0
Y5 0
Y6 50
Y7 0
Y8 0
Y9 0
Y10 0
Y11 0
Y12 50
Y13 0
Y14 50
Y15 0
Y16 0
Y17 0
Y18 0
Y19 0
Y20 0

 

[bzace]

Yanlış anlaşılma

 

[sertackalebek]

Anlaşılır olmadı sanırım

 

[Baggwell]

konu açarken örnek dosya paylaşırsanız daha anlaşılır olur düşüncesindeyim .)

Dosyayı inceleyiniz
iyi çalışmalar

Link : http://www.dosya.tc/server21/rkeA1o/EXCCCC1.xlsx.html

 

[Emir Hüseyin Çoban]

Aşağıdaki tabloda değeri 50 ve üzeri olanlar için bir mesaj versin istiyorum. Bir formül veya kod verebilir misiniz?
Mesaj: "DİKKAT! Y6, Y12, Y14 İÇİN KONTROL ZAMANI GELMİŞTİR."

. . .


İşlem Sonucu:

Boş bir modüle kodları yapıştırın.

Sub KOD()
Application.ScreenUpdating = False

For Each a In Range("A1:" & [A65536].End(3).Address(0, 0))
If a.Offset(0, 1) > 49 Then
msj = msj & a & ", "
End If
Next

Application.ScreenUpdating = True
MsgBox "DİKKAT! " & msj & " İÇİN KONTROL ZAMANI GELMİŞTİR."

End Sub

. . .

 

[Baggwell]

Makro bilmediğimiz için formüllere başvuruyoruz malesef

 

[Milady Meriç]

Selam,
Alternatif olsun, kodu yazarken konu cevaplanmış

A süttununda isimlerin, B sütununda da değerlerin olduğunu farzeder.

Sub kontrol_et()

Dim milady As Worksheet, meric As Range, y As String, x As String
Set milady = ActiveSheet


sonsat = Cells(Rows.Count, "B").End(xlUp).Row
y = ""
x = ""

For i = 1 To sonsat
 Set meric = Cells(i, 2)
 If meric.Value >= 50 Then
  y = meric.Offset(0, -1).Value
   If x = "" Then
   x = y
   Else
   x = x & " - " & y
   End If
 End If
Next
 soncumle = "DÝKKAT!  " & x & "  ÝÇÝN KONTROL ZAMANI GELMÝÞTÝR."

MsgBox (soncumle)

End Sub

 

[sertackalebek]

Teşekkürler.