msgbox içinde bağlı bilgi gösterme...

[direnist]

Herkese merhaba;
Çalışma sayfasında yeni girişlere bağlı olarak güncellenen bir hücredeki sayısal bilgiyi msgbox' taki bir metin içinde nasıl gösterebilirim.
Örn.: Şu andaki güncel sayı 123 şeklinde.
Dilerim sorumu doğru anlatabilmişimdir. Teşekkürler.

 

[hamitcan]

sub msg ()
msgbox [a1]
end sub

 

[uzmanamele]

merhaba

alternatif olsun

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
güncel = [a1]
MsgBox "güncel sayı:" & güncel
End Sub

 

[direnist]

Merhaba Hamitcan Bey;
Yardımınız için teşekkürler. Acaba aşağıdaki kod içindeki msgboxtaki mesaj içerisinde bu güncellenen bilgiyi nasıl gösterebilirim.


If Sheets("ÖZET").Range("b1") = Sheets("Form Takip").Range("AG61") Then

MsgBox ("DEVİR SAYISI TUTUYOR, sayı=123"), vbOKOnly, "U Y A R I"

Else

MsgBox ("DEVİR SAYISI TUTMUYOR"), vbOKOnly, "U Y A R I"

End If

 

[uzmanamele]

Merhaba Hamitcan Bey;
Yardımınız için teşekkürler. Acaba aşağıdaki kod içindeki msgboxtaki mesaj içerisinde bu güncellenen bilgiyi nasıl gösterebilirim.


If Sheets("ÖZET").Range("b1") = Sheets("Form Takip").Range("AG61") Then
MsgBox ("DEVİR SAYISI TUTUYOR, sayı=123"), vbOKOnly, "U Y A R I"
Else
MsgBox ("DEVİR SAYISI TUTMUYOR"), vbOKOnly, "U Y A R I"
End If

MsgBox "DEVİR SAYISI TUTUYOR, sayı=" & b1,vbOKOnly, "U Y A R I"

şeklinde dener misiniz

 

[direnist]

Merhaba;
b1 'i [b1] şeklinde yazınca istediğim oldu. Yardımlarınız için çok teşekkür ederim. İyi günler.

 

[direnist]

Merhaba;
Yeni bir konu açmadan msgbox larla ilgili merak ettiğim bir konuyu daha sormak istedi. Acaba msgbox içine yazılan metinlerin yazı karakteri, rengi ve boyutlarını istediğimiz gibi değiştirebilirmiyiz? Teşekkürler.

 

[uzmanamele]

merhaba
sanıyorum msgbox içersinde olmaz ama bir userform hazırlayıp msgbox olarak kullanırsanız istediğiniz renk font vs şeklinde olabilir

 

[uzmanamele]

merhaba

ek dosyayı inceleyiniz.
ilgili yerleri değiştirerek renk, font denemesi yapınız.

kodlar syn Levent Menteşoğlu'na aittir.