Excel Macro "Message Box"

[erkanacet]

Arkadaşlar merhaba,
Excelde bir hücrenin içinde yazdığım formül değeri istediğim rakama ya da text'e ulaştığında pop up mesaj kutusunun açılmasını ve bu kutuda "istediginiz degere ulastınız" yazmasını istiyorum. Sonra açılan pop-up message box'ta ok'e tıkladığımda a1 hücresine gitmek istiyorum.

Yardımlarınız için teşekkür ediyorum

 

[acolkesen1]

Merhaba,
Bir örnek dosya eklerseniz daha iyi olur ama örnek olarak a1 hücresini alırsak;
if [a1]= "istediğiniz değer" then
Msgbox "istediginiz degere ulastınız"
[A1].Select
şeklinde olabilir.İyi çalışmalar.

 

[uzmanamele]

merhaba

ek dosya işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("g1:g20")) Is Nothing Then Exit Sub
If [d5] >= 20 Then
MsgBox "istediğiniz değere ulaşıldı"
[a1].Select
End If
End Sub

 

[erkanacet]

örnek dosya ekledim

Arkadaşlar örnek dosya ekledim. F18 hücresindeki değer 15 olduğunda message box açılmasını istiyorum.

Teşekkürler

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("f15:f16")) Is Nothing Then Exit Sub
If [f18] = 15 Then
MsgBox "istediğiniz değere ulaşıldı"
End If
End Sub

 

[acolkesen1]

Merhaba,
f15 ve f16 nın toplamını aldırmanızı esas alarak hazırladım. Aralığı isteğinize göre değiştirebilirsiniz. Sayfa1 in kod bölümüne yapıştırın.. İyi çalışmalar..
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e15:f16]) Is Nothing Then Exit Sub
If [f18] = 15 Then
MsgBox "İSTEDİĞİNİZ DEĞERE ULAŞILDI"
[a1].Select
End If
End Sub

 

[acolkesen1]

Sayın hamitcan ustamız da göndermiş, üzerine hiç de iyi olmadı kusura bakmasın artık..

 

[hamitcan]

Sayın hamitcan ustamız da göndermiş, üzerine hiç de iyi olmadı kusura bakmasın artık..

Forumu yaşatmak için, herkesin katkısı gerekiyor, bu yüzden böyle düşünmeyin.

 

[erkanacet]

Cok tesekkurler..