Msgbox Yardım butonu

Mesaj Kutusu. Programcıların olmazsa olmazlarından.

Msgbox Yardım butonu

İleti#1)  vba_kadir » 04 Arl 2015 22:37

Kod: Tümünü seç
Sub Evet_hayır_iptal_yardım()

        Dim Mesaj As String
        Dim Stil As VbMsgBoxStyle
        Dim Baslik As String
        Dim Cevap As VbMsgBoxResult
        Dim yardim As String

'yardım dosyası için internetteki bir adrese de başvuru yaptırabiliriz
        yardim = "http://www.excelvba.net"

        Stil = vbYesNoCancel + vbInformation + vbMsgBoxHelpButton
        Baslik = "Bu mesajın başlık kısmıdır"
        Mesaj = "Ne yazacağımı açıkçası bulamadım"
        Mesaj = Mesaj & vbCr & "Bu şekilde idare edersiniz artık"
        Mesaj = Mesaj & vbCr & vbCr & vbCr & "Evet : İdare edebiliriz "
        Mesaj = Mesaj & vbCr & "Hayır : İdare edemeyiz "
        Mesaj = Mesaj & vbCr & "İptal : Karar veremedim, sen en iyisi bu mesajı kapat" & vbCr & vbCr
        Cevap = MsgBox(Mesaj, Stil, Baslik, yardim, 0)
        ' bunu if cevap = vbYes then gibi sorgulamalarla da yapabiliriz, ben case yolunu örnekliyorum
        Select Case Cevap
       
       
        Case Is = vbYes
'evet seçilmesi durumunda çalışacak kodlarınızı bu alana yazabilirsiniz.
        ActiveCell.FormulaR1C1 = "evet"
        MsgBox "evet seçimi yapıldı"
       
       
        Case Is = vbNo
'hayır seçilmesi durumunda çalışacak kodlarınızı bu alana yazabilirsiniz.
        ActiveCell.FormulaR1C1 = "hayır"
        MsgBox "hayır seçimi yapıldı"
       
       
       
        Case Is = vbCancel
'iptal seçilmesi durumunda , yada mesaj kutusu çarpıdan kapatıldğı durumda
        'çalışacak kodlarınızı bu alana yazabilirsiniz.
        ActiveCell.FormulaR1C1 = "iptal"
        MsgBox "iptal seçimi yapıldı"
       
        Case Is = vbMsgBoxHelpButton
        ActiveCell.FormulaR1C1 = "Yardım"
        MsgBox "yardım seçimi yapıldı"
End Select
End Sub


viewtopic.php?f=63&t=1163&p=8289

viewtopic.php?f=63&t=1163&p=8289

Tarkan hocam
bu kodları sizin konudan aldım.
Hepsi çok güzel teşekkür ederim. Ellerinize sağlık.

Ancak şu yardım butonunu kaldıramadım.
İstediğim adresede yönlendiremedim. Yardımlarınızı bekliyorum.

Excelde bir sayfayada yönlendirse yeter.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 12:57
Meslek: polis
Yaş: 43
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: Msgbox Yardım butonu

İleti#2)  tevfikdemir » 05 Arl 2015 11:43

Kod: Tümünü seç
Stil = vbYesNoCancel + vbInformation + vbMsgBoxHelpButton

buradaki kodu değiştirmeniz gerekiyor.

Kod: Tümünü seç
Stil = vbYesNoCancel + vbInformation


kodu bu şekilde yapıp

Kod: Tümünü seç
        Case Is = vbMsgBoxHelpButton
        ActiveCell.FormulaR1C1 = "Yardım"
        MsgBox "yardım seçimi yapıldı"


bu koduda silmelisiniz.
Kullanıcı avatarı
tevfikdemir
Siteye Alışmış
 
Kayıt: 18 Ekm 2015 01:49
Meslek: boş
Yaş: 43
İleti: 271
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Msgbox Yardım butonu

İleti#3)  vba_kadir » 05 Arl 2015 15:10

tevfikdemir yazdı:Stil = vbYesNoCancel + vbInformation + vbMsgBoxHelpButton


Dün bu kodu değiştirmiştim.

bunları ( + vbInformation + vbMsgBoxHelpButton ) silmiştim. Birşey değişmemişti.

Stil = vbYesNoCancel sadece bunu bırakmıştım. Ama şimdi oldu.
Yardım butonu gitti.

Peki yardım butonu kaldığında istediğimiz siteye yada dosyaya resime vb. nasıl yönlendiririz.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 12:57
Meslek: polis
Yaş: 43
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: Msgbox Yardım butonu

İleti#4)  vba_kadir » 05 Arl 2015 15:19

yardim = "http://www.excelvba.net"

Bu kod nerede olmalı. Neden işe yaramıyor.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 12:57
Meslek: polis
Yaş: 43
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Msgbox Yardım butonu

İleti#5)  vba_kadir » 05 Arl 2015 19:53

Bir sorum daha var ayrıca;

Kod: Tümünü seç
Sub Sor_İf()


       If MsgBox("Hücre boş. Yinede devam etmek istiyormusunuz", vbQuestion + vbYesNo) = vbYes Then
'
       ActiveCell.FormulaR1C1 = "evet"  'Aktif hücreye evet yaz
       MsgBox "Evet dedi"
       Exit Sub
End If

       ActiveCell.FormulaR1C1 = "hayır"  'Aktif hücreye hayır yaz
       MsgBox "Hayır dedi"
End Sub

Bu mesajı aşagıdaki gibi çok satırlı yapabilirmiyiz. İf ile başlayanı.

Hücre boş.
Yinede devam etmek istiyormusunuz?


& vbCr & _ bunu nereye koymalıyım.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 12:57
Meslek: polis
Yaş: 43
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: Msgbox Yardım butonu

İleti#6)  Tarkan VURAL » 12 Arl 2015 10:07

Yardım düğmesi ile 2003 Ofice dönemlerinde dosya, resim açtırmak da mümkündü. Ancak yeni 2013, 2016 sürümlerde online Help sistemlerine geçiş olduğundan, bu uygulama yeni sürümlerde çalışmayacaktır. Bu tür ihtiyaçlarınız için farklı metotlar kullanmalısınız.

Öncelikle aşağıdaki kod bloğunu kaldırın.
Kod: Tümünü seç
Case Is = vbMsgBoxHelpButton
        ActiveCell.FormulaR1C1 = "Yardım"
        MsgBox "yardım seçimi yapıldı"

MsgBox içindeki yardim,0 içeriğini de kaldırın., Yardım=... kısmını da silebilirsiniz. Son olarak + vbMsgBoxHelpButton kısmını da silin.

Kodları aşağıdaki biçimde kullanmayı deneyin. (Kod mantığına göre ilgili resim dosyası gereklidir.)
Kod: Tümünü seç
Sub EvetResimAc_HayirMesaj_IptalKapat()
Dim Mesaj As String, Stil As VbMsgBoxStyle, Baslik As String, Cevap As VbMsgBoxResult
Stil = vbYesNoCancel + vbInformation
Baslik = "Bu mesajın başlık kısmıdır"
Mesaj = "Evet: Resim aç" & vbCr & "Hayır:Mesaj ver" & vbCr & "İptal:Çık"
Cevap = MsgBox(Mesaj, Stil, Baslik)
    Select Case Cevap
        Case Is = vbYes
            Shell "explorer.exe " & ThisWorkbook.Path & "\visualstudio.png"
        Case Is = vbNo
            MsgBox "Bu size bir mesajdır. ", vbInformation, "Www.ExcelVBA.Net"
        Case Is = vbCancel
            End
    End Select
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26990
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Msgbox Yardım butonu

İleti#7)  vba_kadir » 12 Arl 2015 16:15

Sağolun Tarkan bey.
İlk fırsatta deneyeceğim.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 12:57
Meslek: polis
Yaş: 43
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: Msgbox Yardım butonu

İleti#8)  vba_kadir » 16 Arl 2015 13:53

Sayın Tarkan Hocam,
Userform ile denedim,
Sizce dosya nasıl olmuş.

Commard button da,
-metni kaydır- yapabilirmiyiz acaba.
Seçenek varmı.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 12:57
Meslek: polis
Yaş: 43
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: Msgbox Yardım butonu

İleti#9)  Tarkan VURAL » 21 Haz 2016 14:04

Metni kaydır kısmını anlamadım. Bu arada ben de size bir şey sorayım. Bir polis dostumuza yanıt bekleyen evrakların takibini yapabileceği bir çalışma lazım. Mesela 15 gün süresi olup yanıt bekleyen kayıtlar kullanıcıyı uyaracak gibi... Hazır bir çalışma var mı ?
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26990
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Msgbox Yardım butonu

İleti#10)  vba_kadir » 21 Haz 2016 14:33

Hocam akşam iftardan sonra ilgilenecek inşallah. Ayrica Metni kaydırma işini çözmüştum. Ctrl enter.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 12:57
Meslek: polis
Yaş: 43
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: Cevap: Msgbox Yardım butonu

İleti#11)  vba_kadir » 21 Haz 2016 20:08

vba_kadir yazdı:Hocam akşam iftardan sonra ilgilenecek inşallah. Ayrica Metni kaydırma işini çözmüştum. Ctrl enter.


Hocam akşam iftardan sonra ilgilenirim inşallah yazacaktım.

Örnek dosya oluşturulabilirse üzeride çalışırım. Yeni birşey yaparız hocam.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 12:57
Meslek: polis
Yaş: 43
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın

Cevap: Msgbox Yardım butonu

İleti#12)  vba_kadir » 21 Haz 2016 22:56

Bu dosyayı inceleyebilir. Koruma şifresi 1234 (Bitmiş değil)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
vba_kadir
Site Dostu
 
Kayıt: 15 May 2015 12:57
Meslek: polis
Yaş: 43
İleti: 1055
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aydın


Forum MsgBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe