Söyle Bişi Yaptım. Fakat Run Time Hatası Alıyorum Arkadaslar Rica Etsem Bakarmısınız ?
Kod:
Dim Yeni_mi As Boolean
'.............
Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
If Yeni_mi = True Then
Son_Dolu_Satir = Sheets("Sayfa1").Range("H65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa1").Range("B" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Sayfa1").Range("B:B")) + 1
Sheets("Sayfa1").Range("B" & Bos_Satir).Value = TextBox1.Text
Sheets("Sayfa1").Range("H" & Bos_Satir).Value = TextBox7.Text
Sheets("Sayfa1").Select
Unload UserForm1
Else
Degistirilecek_Satir = ListBox1.ListIndex + 1
Sheets("Sayfa1").Range("B" & Degistirilecek_Satir).Value = TextBox1.Text
Sheets("Sayfa1").Range("H" & Degistirilecek_Satir).Value = TextBox7.Text
Sheets("Sayfa1").Select
Unload UserForm1
End If
Else
MsgBox "Adı Ve Soyadı girmeniz gerekiyor..!"
End If
End Sub
Private Sub CommandButton2_Click()
cevap = MsgBox("Kullanıcı Ekleme Paneli Kapatılıcak... Emin misiniz ?", vbYesNo, "KULLANICI EKLEME PANELİ")
If cevap = vbYes Then
Unload UserForm1
End If
End Sub
Private Sub CommandButton3_Click()
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Bilgi Silinecek ... Emin misiniz ?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Yeni_mi = True
Silinecek_Satir = ListBox1.ListIndex + 1
Sheets("Sayfa1").Rows(Silinecek_Satir).Delete
TextBox1.Text = ""
'----------- Tüm TextBox'ları temizleyen alternatif kodlar ---------------------
'
' For Each nesne In UserForm1.Controls
' If TypeOf nesne Is MSForms.TextBox Then
' nesne.Text = ""
' End If
' Next
'----------------------------------------------------------------------
End If
End If
End Sub
Private Sub CommandButton4_Click()
Yeni_mi = True
TextBox1.Text = ""
End Sub
Private Sub Label1_Click()
End Sub
'Private Sub ListBox1_Click()
'
'
'End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Yeni_mi = False
Bulunan_Satir_No = ListBox1.ListIndex + 1
TextBox1.Text = Sheets("Sayfa1").Range("B" & Bulunan_Satir_No).Value
End Sub
Private Sub UserForm_Initialize()
Yeni_mi = True
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "80;120"
ListBox1.RowSource = "Sayfa1!B1:B" & Sheets("Sayfa1").Range("B65536").End(xlUp).Row
End Sub
