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
Adı Soyadı:
me.... se....
Yaşı:
29
Konum:
İzmir
Ofis Versiyonu:
Ofis 2019 64 Bit
Son Oturumu:
18/10/2023,13:20
Cevapla