arkadaşlar merhaba
aşağıda bir kod göreceksiniz burdaki kodu çalıştırıp list box a çift tıkladığımda
Run-time error 94 invalid use of Null şeklinde bir hata veriyor acaba nerde yanlış yapıyorum. Adım adım çalıştırdığımda renkli olan ifadede hatayı veriyor.
aşağıda bir kod göreceksiniz burdaki kodu çalıştırıp list box a çift tıkladığımda
Run-time error 94 invalid use of Null şeklinde bir hata veriyor acaba nerde yanlış yapıyorum. Adım adım çalıştırdığımda renkli olan ifadede hatayı veriyor.
Kod:
Private Sub ComboBox1_Change()
ListBox1.Clear
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
For X = 3 To [A65536].End(3).Row
If Left(Cells(X, 1), 1) = ComboBox1.Value Then
' cells ten sonra gelen xin yanındaki değer hangi kriter göre arama
C = C + 1
ListBox1.ColumnWidths = "40;75;75;75;40"
ListBox1.AddItem
ListBox1.List(C - 1, 1) = Cells(X, 1)
ListBox1.List(C - 1, 2) = Cells(X, 2)
ListBox1.List(C - 1, 3) = Cells(X, 3)
ListBox1.List(C - 1, 4) = Cells(X, 4)
ListBox1.List(C - 1, 5) = Cells(X, 5)
End If
Next
End Sub
Private Sub CommandButton1_Click()
Onay = MsgBox("Değişiklikleri onaylıyor musunuz ?", vbExclamation + vbYesNo, "Dikkat !")
If Onay = vbNo Then
MsgBox "İşleminiz iptal edilmiştir.", vbInformation
Formu_Temizle
Else
ComboBox1.RowSource = ""
ActiveCell.Offset(0, 1) = TextBox1
ActiveCell.Offset(0, 2) = TextBox2
ActiveCell.Offset(0, 3) = TextBox3
ActiveCell.Offset(0, 4) = TextBox4.Value
[A1].Select
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
UserForm_Initialize
End If
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim X As Integer
If ListBox1.ListIndex < 0 Then
ComboBox1.SetFocus
Exit Sub
End If
[COLOR="Magenta"][SIZE="4"][B]X = ListBox1.Column(0) + 1[/B][/SIZE][/COLOR]
TextBox1.Value = Cells(X, 2)
TextBox2.Value = Cells(X, 3)
TextBox3.Value = Cells(X, 4)
TextBox4.Value = Cells(X, 5)
Cells(X, 1).Select
CommandButton1.Enabled = True
End Sub
Private Sub UserForm_Initialize()
[A1].Select
ComboBox1.Clear
With ComboBox1
.AddItem "A"
.AddItem "B"
.AddItem "C"
.AddItem "Ç"
.AddItem "D"
.AddItem "E"
.AddItem "F"
.AddItem "G"
.AddItem "Ğ"
.AddItem "H"
.AddItem "I"
.AddItem "İ"
.AddItem "J"
.AddItem "K"
.AddItem "L"
.AddItem "M"
.AddItem "N"
.AddItem "O"
.AddItem "Ö"
.AddItem "P"
.AddItem "R"
.AddItem "S"
.AddItem "Ş"
.AddItem "T"
.AddItem "U"
.AddItem "Ü"
.AddItem "V"
.AddItem "Y"
.AddItem "Z"
End With
Formu_Temizle
End Sub
Sub Formu_Temizle()
ComboBox1 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
ComboBox1.SetFocus
CommandButton1.Enabled = False
End Sub