Private Sub CommandButton8_Click() On Error Resume Next Dim S1 As Worksheet, x As Byte, y As Integer, Satir As Long, Sutun As Integer If ComboBox1 = "" Then MsgBox "Lütfen DERS giriniz!", vbCritical: Exit Sub If ComboBox2 = "" Then MsgBox "Lütfen KONU giriniz!", vbCritical: Exit Sub If ListBox2...