Msgbox (link + "değişken")

[vivident]

Merhaba

Msgbox'da değişkeni tırnak içine almak ve link verme işleminde sorunlar yaşıyorum. Benim istediğim msgbox'da aşağıdaki gibi bir görünüm olması

Benim İstediğim
<< Dosya Kullanımı >>
Excel hücrelerine veri "200" girişi yapmayınız
Excel : tıklayınız
Grafiklerin çalışması için lütfen verileri Excele aktarınız

Görünen
<< Dosya Kullanımı >>
Excel hücrelerine veri " & ES & " girişi yapmayınız
Excel : <a href='I:\Departement\Pres\Liste.xlsm'>Tıklayınız </a>
Grafiklerin çalışması için lütfen verileri Excele aktarınız

Sub aaa()
ES = 200
        MsgBox "<< Dosya Kullanımı >>" & vbLf & _
        "Excel hücrelerine veri " & ES & " girişi yapmayınız" & vbLf & _
        "Excel : <a href='I:\Departement\Pres\Liste.xlsm'>Tıklayınız </a>" & vbLf & vbLf & _
        "Grafiklerin çalışması için lütfen verileri Excele aktarınız", vbOKOnly + vbInformation, "DIKKAT"
End Sub

 

[Zeki Gürsoy]

MsgBox bu isteğinize yanıt vermez. Ekte fake MsgBox vardır. :biggrin:

.

 

[vivident]

Anladım. Userform olarak yapmamız gerekiyor o zaman
Peki şu "200" olayı yapılabilinir mi ?
Tırnak içine alınca " & ES & " şekline dönüyor

 

[Zeki Gürsoy]

Onu da Label2.Caption özelliğine kod ile verirsiniz artık.
Ben örnek olsun diye statik yaptım.

 

[vivident]

sağolun zeki bey
teşekkür ediyorum