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

Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Dosyayı ekleyin veya hangi satırda hata alıyorsunuz onu yazın.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar yardım bekliyorum.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Sn: Zafer

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