[Çözüldü]  ComboBox'a Bağlı MsgBox Nasıl Eklerim ?

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

ComboBox'a Bağlı MsgBox Nasıl Eklerim ?

İleti#1)  canavar26 » 05 Şub 2016 12:44

Merhabalar,

Combobox'dan seçilen hataya göre MsgBox ile gelen soruya Evet/Hayır butonu koymak istiyorum. Evet'e tıkladığımda bir sonraki soruyu sorsun. Hayıra tıklatığımda ise "Hemen kontrol etmelisin" uyarısı verip MsgBox'ı kapatsın. Yeterli bilgim olmadığı için bir şeyler yapmaya çalıştım :) Ekli dosyayı incelerseniz daha açıklayıcı olacağını düşünüyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
canavar26
Yeni Başlamış
 
Kayıt: 29 Arl 2015 13:07
Meslek: Elektrik - Elektronik
Yaş: 24
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: ComboBox'a bağlı MsgBox nasıl eklerim ?

İleti#2)  Ali ÖZ » 05 Şub 2016 13:09

Kontrol edin.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
If MsgBox("Kalıp Dolum Zamanı kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Kesitin Pozisyonu kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("1.Faz Piston Hızı kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Malzemenin Kesiti İçinde Olan Hızı kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("1.'den 2. Faza Geçiş Noktası kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Döküm Kamara Sıcaklığı kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Kalıp Sıcaklığı kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Kalıp Havalandırma Şekli ve Kesit Yüzeyi kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Soğutma Sisteminin Şekli ve Adeti kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Soğutmanın Debisi ve Sıcaklığı kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Ergitme Sıcaklığı kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Malzeme Bileşimi kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Devir veya Çeviri Zamanı kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Döküm Kamara Doldurma Açısı kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Döküm Piston Sıcaklığı kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
ElseIf MsgBox("Kesit Geometrisi kontrol ettin mi ?", vbYesNo) = vbNo Then
MsgBox "Hemen kontrol etmelisin"
Exit Sub
End If
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ComboBox'a bağlı MsgBox nasıl eklerim ?

İleti#3)  canavar26 » 06 Şub 2016 09:32

Ali bey, ilginiz için teşekkür ederim fakat combobox'daki veriye göre soru sormasını istiyorum.Her seçtiğim hata tanımında ona ait sorular sormasını istiyorum. Eğer bu işin daha kolay bir yolu yoksa baya uğraşacağım. Çünkü 28 tane hata var.Her birinin de en az 6-7 cevabı var. [ilginc]
Kullanıcı avatarı
canavar26
Yeni Başlamış
 
Kayıt: 29 Arl 2015 13:07
Meslek: Elektrik - Elektronik
Yaş: 24
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: ComboBox'a Bağlı MsgBox Nasıl Eklerim ?

İleti#4)  Ali ÖZ » 06 Şub 2016 13:46

Bir daha boşa uğraşmamak adına dosyanız üzerinde ne neye ait,olması gereken nedir örnekle belirtirmisiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

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

Cevap: Cevap: ComboBox'a Bağlı MsgBox Nasıl Eklerim ?

İleti#5)  canavar26 » 08 Şub 2016 10:05

Ali ÖZ yazdı:Bir daha boşa uğraşmamak adına dosyanız üzerinde ne neye ait,olması gereken nedir örnekle belirtirmisiniz.


Bu şekilde daha açıklayıcı olduğunu düşünüyorum. Örnek olarak 1-2 tane yapmanız yeterli. Zahmet veriyorum kusuruma bakmayın.

Desktop.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
canavar26
Yeni Başlamış
 
Kayıt: 29 Arl 2015 13:07
Meslek: Elektrik - Elektronik
Yaş: 24
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: ComboBox'a Bağlı MsgBox Nasıl Eklerim ?

İleti#6)  Ali ÖZ » 08 Şub 2016 11:48

Kontrol edin.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
For i = 2 To Range("b65536").End(3).Row
  If ComboBox1 = "Yetersiz Kalıp Dolumu" Then
    If MsgBox(Cells(i, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
    End If
  ElseIf ComboBox1 = "Çapak Oluşumu" Then
   If MsgBox(Cells(i + 1, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
   End If
  ElseIf ComboBox1 = "Çekme" Then
   If MsgBox(Cells(i + 2, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
   End If
  ElseIf ComboBox1 = "Çökme Bölgeleri" Then
   If MsgBox(Cells(i + 3, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
   End If
  ElseIf ComboBox1 = "Hacimsel Değişiklik" Then
   If MsgBox(Cells(i + 4, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
    End If
  End If
Next
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: ComboBox'a Bağlı MsgBox Nasıl Eklerim ?

İleti#7)  canavar26 » 08 Şub 2016 14:08

Ali ÖZ yazdı:Kontrol edin.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
For i = 2 To Range("b65536").End(3).Row
  If ComboBox1 = "Yetersiz Kalıp Dolumu" Then
    If MsgBox(Cells(i, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
    End If
  ElseIf ComboBox1 = "Çapak Oluşumu" Then
   If MsgBox(Cells(i + 1, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
   End If
  ElseIf ComboBox1 = "Çekme" Then
   If MsgBox(Cells(i + 2, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
   End If
  ElseIf ComboBox1 = "Çökme Bölgeleri" Then
   If MsgBox(Cells(i + 3, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
   End If
  ElseIf ComboBox1 = "Hacimsel Değişiklik" Then
   If MsgBox(Cells(i + 4, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
    End If
  End If
Next
End Sub


Ali bey elinize emeğinize sağlık gayet basit olmuş fakat sizde küçük bir şey daha sorucam.

"Yetersiz kalıp dolumu" seçilirse "B" sütununu soruyor. --)(
Combobox'tan diğer hataları seçtiğimde yine "B" sütünü +1 şeklinde soruyor.
Benim istediğim her farklı hatada mesela
"Çapak oluşumu" seçilirse "C" sütununu sorsun istiyorum.
"Çekme" seçilirse "D" sütununu sorsun.
Yani her hatada C,D,E,F.... sütunlarını sordurmak için nasıl bir ekleme yapmam gerekir ?
Kullanıcı avatarı
canavar26
Yeni Başlamış
 
Kayıt: 29 Arl 2015 13:07
Meslek: Elektrik - Elektronik
Yaş: 24
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: ComboBox'a Bağlı MsgBox Nasıl Eklerim ?

İleti#8)  Ali ÖZ » 08 Şub 2016 14:11

Kod: Tümünü seç
Private Sub CommandButton1_Click()
For a = 1 To Cells(2, Columns.Count).End(1).Column
  If ComboBox1.Text = Cells(2, a).Text Then Cells(2, a).Select
Next
sutun = ActiveCell.Column
For i = 3 To Cells(Rows.Count, sutun).End(3).Row
  If ComboBox1 = "Yetersiz Kalıp Dolumu" Then
    If Cells(i, 2).Value <> "" And MsgBox(Cells(i, 2).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
    End If
  ElseIf ComboBox1 = "Çapak Oluşumu" Then
   If Cells(i, 3).Value <> "" And MsgBox(Cells(i, 3).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
   End If
  ElseIf ComboBox1 = "Çekme" Then
   If MsgBox(Cells(i, 4).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
   End If
  ElseIf ComboBox1 = "Çökme Bölgeleri" Then
   If MsgBox(Cells(i, 5).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
   End If
  ElseIf ComboBox1 = "Hacimsel Değişiklik" Then
   If MsgBox(Cells(i, 6).Value, vbYesNo) = vbNo Then
      MsgBox "Hemen kontrol etmelisin"
      Exit Sub
    End If
  End If
Next
End Sub
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ComboBox'a Bağlı MsgBox Nasıl Eklerim ?

İleti#9)  canavar26 » 09 Şub 2016 10:25

Ali bey, çok teşekkür ederim yardımlarınız için sorun çözülmüştür. şkşk [TESEKKÜR]
Kullanıcı avatarı
canavar26
Yeni Başlamış
 
Kayıt: 29 Arl 2015 13:07
Meslek: Elektrik - Elektronik
Yaş: 24
İleti: 49
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Eskişehir

Cevap: ComboBox'a Bağlı MsgBox Nasıl Eklerim ?

İleti#10)  Ali ÖZ » 09 Şub 2016 10:28

Rica ederim,hoşça kalın.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9826
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum MsgBox

Online Kullanıcılar

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

Bumerang - Yazarkafe