Veri Düzeltme İşleminde Hata...!!!

[ocamsul]

Arkadaşlar merhabalar. Veri değişimi, düzeltme ile ilgili Userform un kodları aşağıda. bir hata var ama çözemiyorum. yardım edermisiniz? tutarsızlık nerede acaba?

Private Sub ComboBox1_Change()
'########################################
'Seçilen Personelin bilgileri UserForm'a aktarılıyor
'########################################
With Sheets("VERİ")
TextBox1.Value = .Cells(ComboBox1.ListIndex + 1, 1)
TextBox2.Value = .Cells(ComboBox1.ListIndex + 1, 2)
TextBox3.Value = .Cells(ComboBox1.ListIndex + 1, 3)
TeztBox4.Value = .Cells(ComboBox1.ListIndex + 1, 4)
TextBox5.Value = .Cells(ComboBox1.ListIndex + 1, 5)
TextBox6.Value = .Cells(ComboBox1.ListIndex + 1, 6)
TextBox7.Value = .Cells(ComboBox1.ListIndex + 1, 7)
TextBox8.Value = .Cells(ComboBox1.ListIndex + 1, 8)
TextBox9.Value = .Cells(ComboBox1.ListIndex + 1, 9)
End With
'############## BİTTİ ###################

End Sub

Private Sub CommandButton10_Click()
'########################################
'Düzeltme işlemi için onay alınıyor.
'########################################
If ComboBox1.Value = "Müracaatçı Adı Giriniz" Then
MsgBox "Önce bilgilerini değiştirmek istediğiniz müracaatçının adını giriniz!", vbExclamation, "HATA"
Exit Sub
End If
secim = MsgBox(ComboBox1.Value & " isimli müracaatçı bilgilerini değiştirmek istediğinizden emin misiniz?", _
vbYesNo + vbDefaultButton2 + vbQuestion, "UYARI!!!")
If secim = vbNo Then 'Değişiklkler onaylanmazsa...
ComboBox1_Change 'Bilgileri eski haline getir.
Exit Sub 'Kodun çalışmasını bitir.
End If
'############## BİTTİ ###################
'########################################
'Onay verilmişse kayıt güncelleniyor
'########################################
With Sheets("VERİ")
.Cells(ComboBox1.ListIndex + 1, 1) = TextBox1.Value
.Cells(ComboBox1.ListIndex + 1, 2) = TextBox2.Value
.Cells(ComboBox1.ListIndex + 1, 3) = TextBox3.Value
.Cells(ComboBox1.ListIndex + 1, 4) = TextBox4.Value
.Cells(ComboBox1.ListIndex + 1, 5) = TextBox5.Value
.Cells(ComboBox1.ListIndex + 1, 6) = TextBox6.Value
.Cells(ComboBox1.ListIndex + 1, 7) = TextBox7.Value
.Cells(ComboBox1.ListIndex + 1, 8) = TextBox8.Value
.Cells(ComboBox1.ListIndex + 1, 9) = TextBox9.Value
End With
'############## BİTTİ ###################
'########################################
'Kayıt Güncelleştirmesi bitti.
'########################################
a = MsgBox(ComboBox1.Value & " isimli personelin bilgileri değiştirildi.", vbInformation, "KAYIT")
'############## BİTTİ ###################
End Sub

Private Sub UserForm_Initialize()
With Application
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
ComboBox1.RowSource = "VER2!B1:B" & WorksheetFunction.CountA(Sheets("VERİ").Range("B2:B65000"))
ListBox1.RowSource = "VERİ!B2:b5000"
ListBox1.ColumnHeads = True
End Sub

 

[zafer]

Merhaba

Dosyayı ekleyin veya hangi satırda hata alıyorsunuz onu yazın.

 

[ocamsul]

Sn: Zafer Çalışma sayfam ekte.

kaydını comboBox ile seçtiğimiz kişinin bilgilerinden herhangi birini değiştirmek istiyorum, ancak olmuyo. kayıt eskisi gibi kalıyo. Yardımlarınızı bekliyorum.

 

[ocamsul]

Arkadaşlar yardım bekliyorum.

 

[zafer]

Merhaba


Kayıt düzelt butonundaki kodlarda
.Cells(ComboBox1.ListIndex + 1, 1) = TextBox1.Value satırı kaldırın
O olduğunda ve değişiklik yapıldıpında Combobox1 de otomatikman değişiyor ve Combobox1 change işlemi devreye giriyor.

.Cells(ComboBox1.ListIndex + 1, 1) = TextBox1.Value satırını end Wİth ten bir önceye alın

 

[ocamsul]

Sn: Zafer

Yardımlarınıza ve açıklamanıza çok teşekkür ederim.