AccessTr.neT
Grafik Kısmında Eksik Yapılan Seçimlerde Uyarı Mesajı Alma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Grafik Kısmında Eksik Yapılan Seçimlerde Uyarı Mesajı Alma (/konu-grafik-kisminda-eksik-yapilan-secimlerde-uyari-mesaji-alma.html)

Sayfalar: 1 2


RE: Grafik Kısmında Eksik Yapılan Seçimlerde Uyarı Mesajı Alma - merttr07 - 28/08/2020

If txtYil.Value = "" Then
MsgBox ("Yıl'i Boş Geçemessiniz")
Exit Sub
End If
If ListBox1.Value = "" Then
MsgBox ("Aylar'i Boş Geçemessiniz")
Exit Sub
End If
If ListBox2.Value = "" Then
MsgBox ("Tablo'i Boş Geçemessiniz")
Exit Sub
End If
If ListBox3.Value = "" Then
MsgBox ("Grafik Seç'i Boş Geçemessiniz")
Exit Sub
End If

Bunu yaptım ama aynı hatayı alıyorum


RE: Grafik Kısmında Eksik Yapılan Seçimlerde Uyarı Mesajı Alma - merttr07 - 28/08/2020

Sorun Çözüldü 

Private Sub CommandButton1_Click()
If txtYil.Value = "" Then
MsgBox ("Yıl'i Boş Geçemessiniz")
Exit Sub
End If
If ListBox1.ListIndex = -1 Then
MsgBox ("Ay Seçimi Yapılmadı")
Exit Sub
End If
If ListBox2.ListIndex = -1 Then
MsgBox ("Tablo Seçimi Yapılmadı")
Exit Sub
End If
If ListBox3.ListIndex = -1 Then
MsgBox ("Grafik  Seçimi Yapılmadı")
Exit Sub
End If
GrafikKaynak Me.ListBox2, Me.ListBox1 & "." & Me.txtYil, Me.ListBox3.Column(1)

End Sub


RE: Grafik Kısmında Eksik Yapılan Seçimlerde Uyarı Mesajı Alma - berduş - 28/08/2020

iyi çalışmalar)