Textbox'a dönen veriyi düzeltme

[iceman20]

Arkadaşlar listboxtan seçip textbox'a gelen verileri değiştirip kaydet dediğimde yeni bir kayıt gibi sıradaki boş satıra atıyor. Listbox'tan textbox'a da yanlış dönüyor

 

[iceman20]

Arkadaşlar yardıma ihtiyacım var. Konularda cevabı bulamıyorum.

 

[Levent Menteşoğlu]

ListBox1_DblClick olayına aşağıdaki satırı ilave edin.

Yeni_mi = False

Ayrıca kaydet butonunda yazılı olan aşağıdaki satırdaki kırmızı renkle işaretlediğim değişkliğide yapın.

Degistirilecek_Satir = ListBox1.ListIndex + [B][COLOR=red]5[/COLOR][/B]

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim txtbox As Control, sat As Long
If ListBox1.ListIndex < 0 Then
    MsgBox "Kayıt değişikliği yapabilmek için listeden bir seçim yapmalısınız,", vbCritical, "UYARI"
    Exit Sub
End If
sat = ListBox1.ListIndex + 5
For Each txtbox In Me.Controls
    If TypeName(txtbox) = "TextBox" Then
        If IsDate(txtbox.Value) Then
            Sheets("Ana").Cells(sat, CInt(txtbox.Tag) + 2).Value = CDate(txtbox.Value)
            ElseIf IsNumeric(txtbox.Value) Then
            Sheets("Ana").Cells(sat, CInt(txtbox.Tag) + 2).Value = CDbl(txtbox.Value)
            Else
            Sheets("Ana").Cells(sat, CInt(txtbox.Tag) + 2).Value = txtbox.Value
        End If
    End If
Next
Unload Me
MsgBox "Değişiklik yapıldı." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[iceman20]

iLGİNİZ İÇİN ÇOK TEŞEKKÜR EDERİM.

 

[Sunaycakirr]

Merhabalar

Öncelikle vba konusunda yeniyim ve ne kadar araştırsam da anlayamadığım için bu konuyu açtım.

Benim Userformumda bulunan listboxtaki veriye çift tıkladığımda Textboxa yazıyorum ama Değiştir komutunu bir türlü beceremedim. Bu konuda yardımcı olabilir misiniz?