değişim oranlarını mesaj kutusu içerisinde gösterme

[mrpeace0365]

% değişim oranlarını mesaj kutusu içerisinde gösterme

merhaba,
diyelim ki c sütununda 10 adet hisse senedinin isimleri var...
d sütununda da bunların günlük değişim oranları var...
benim yapmak istediğim bu hisse senetlerinden günlük %10 dan fazla artanların isimlerini (hatta olursa değişim oranlarını da) bir mesaj kutusu içerisinde görüntülemek!!!
bu mümkünmüdür acaba?

ben aşağıdaki şekilde bir makro yazdım ancak burada %10dan fazla artan hisseleri tek bir mesaj kutusunda değilde ayrı ayrı mesaj kutularında tek tek gösteriyor! ben tüm %10dan fazla artanları tek bir mesaj kutusuna almak istiyorum!

Sub degisim()
Range("d4").Select
t = WorksheetFunction.CountIf(Range(Selection, Selection.End(xlDown)), "<>0")
For i = 4 To t + 3
Cells(i, 4).Select
If ActiveCell.Value >= 10 Then
x = MsgBox(ActiveCell.Offset(0, -1).Range("a1") & " %10'dan fazla arttı!!!", vbInformation, "hatırlatma")
End If
Next i
End Sub

teşekkürler ve iyi çalışmalar...

 

[mrpeace0365]

lütfen yardım edin...

 

[meslan]

Merhaba
Bunu denermi siniz. İstediğiniz bu mu?

Sub degisim()
Range("d4").Select
t = WorksheetFunction.CountIf(Range(Selection, Selection.End(xlDown)), "<>0")
For i = 4 To t + 3
Cells(i, 4).Select
If ActiveCell.Value >= 10 Then
x = ActiveCell.Offset(0, -1).Range("a1") & " %10'dan fazla arttı!!!"
y = y & Chr(10) & x
End If
Next i
MsgBox y
End Sub

 

[mrpeace0365]

kesinlikle budur!!!
teşekkürler sayın meslan...
iyi çalışmalar

 

[mrpeace0365]

sayın meslan,
yardımınız için teşekkür ederim ancak deneyince yukarıda yazmış olduğunuz makroyu bu seferde şöyle bir problemle karşı karşıya kaldım...
eğer %10 dan fazla artan hisse senedi varsa msgbox içerisinde bunları listeliyor ancak eğer hiç %10dan fazla artan yoksa bu seferde msgbox boş biçimde ekrana geliyor! oysa msgbox ın hiç ekranan gelmemesi lazım bu durumda...
bunu nasıl halledebilirim? bu konudada yardımcı olabilirmisiniz?
iyi çalışmalar

 

[meslan]

Merhaba
Aşağıdaki dğişikliği yapınız.

If y <> Empty Then MsgBox y, vbInformation, Application.UserName