DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
Dim Mutlu As Long, Say As Byte
Dim MSTF, a
If ComboBox1.Text = Empty Then
MsgBox "Lütfen Öğrenci No Giriniz", vbExclamation, "ÜNYE EL ELE +90 452 333 60 77"
Exit Sub
End If
If ComboBox5.Text = Empty Then
MsgBox "Lütfen Taşınır No Giriniz", vbExclamation, "ÜNYE EL ELE +90 452 333 60 77"
Exit Sub
End If
If ComboBox16.Text = Empty Then
MsgBox "Lütfen Ödünç Aldığı Tarihi Giriniz", vbExclamation, "ÜNYE EL ELE +90 452 333 60 77"
Exit Sub
End If
If ComboBox17.Text = Empty Then
MsgBox "Lütfen İade Etmesi Gereken Tarihi Giriniz", vbExclamation, "ÜNYE EL ELE +90 452 333 60 77"
Exit Sub
End If
[COLOR="Red"]For a = 2 To [G65536].End(xlUp).Row
If ComboBox6.Value = Cells(a, 7).Value Then
MsgBox "Bu kitap " & Cells(a, 3) & " " & Cells(a, 4) & " isimli öğrenciye verilmiştir. Başka bir kitap seçiniz."
Exit Sub
End If
Exit For
Next a[/COLOR]
MSTF = [Sayfa3!AC1]
On Error Resume Next
Mutlu = Range("B65536").End(3).Row + 1
Cells(Mutlu, "B") = ComboBox1.Text
Cells(Mutlu, "C") = ComboBox2.Text
Cells(Mutlu, "D") = ComboBox3.Text
Cells(Mutlu, "E") = ComboBox4.Text
Cells(Mutlu, "F") = ComboBox5.Text
Cells(Mutlu, "G") = ComboBox6.Text
Cells(Mutlu, "H") = ComboBox7.Text
Cells(Mutlu, "I") = ComboBox8.Text
Cells(Mutlu, "J") = ComboBox9.Text
Cells(Mutlu, "K") = ComboBox10.Text
Cells(Mutlu, "L") = ComboBox11.Text
Cells(Mutlu, "M") = ComboBox12.Text
Cells(Mutlu, "N") = ComboBox13.Text
Cells(Mutlu, "O") = ComboBox14.Text
Cells(Mutlu, "P") = ComboBox15.Text
Cells(Mutlu, "Q") = ComboBox16.Text
Cells(Mutlu, "R") = ComboBox17.Text
Range("B2:S65000").Select
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
MsgBox MSTF & " Nolu Öğrenci ye Kitap Teslimatı Yapılmıştır.", vbInformation, "ÜNYE EL ELE +90 452 333 60 77"
Dim Nesne As Control
For Each Nesne In Controls
Select Case TypeName(Nesne)
Case "TextBox", "ComboBox"
Nesne = ""
End Select
Next
Unload Me
UserForm3.Show
End SubPrivate Sub ComboBox1_Change()
On Error GoTo Hata
Application.ScreenUpdating = False
Sheets(2).Select
Columns(2).Find(ComboBox1).Select
ComboBox2 = ActiveCell.Offset(0, 1)
ComboBox3 = ActiveCell.Offset(0, 2)
ComboBox4 = ActiveCell.Offset(0, 3)
Sheets(3).Select
Exit Sub
Hata:
MsgBox "Girdiğiniz numara ile ilgili bir kayıt yoktur"
ComboBox1 = ""
Application.ScreenUpdating = True
End Sub