listboxtaki veriyi textbox ile düzeltme yapmak

[olymposss]

sn üstadlarım herkese hayırlı günler
sabahtan beri uğraştığım ve bana kafayı yedirten bir kodu sizinle paylaşmak istiyorum.yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

->listbox a şu kodlarla verileri alıyorum;
kod:
ListBox1.RowSource = "A7:B" & [b65536].End(3).Row->ardından şu kodlarlada çift tıklayarak text3 ve text4 e listboxtaki verileri aktarıyorum
kod:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = ListBox1.Column(0)
TextBox4.Value = ListBox1.Column(1)
End Sub
sorun şurda oluşuyor.textboxlardaki verileri değiştirip tekrar kaydet(commanbutton3) deyince olanlar oluyor ve çift tıkladığım satırdaki veriler değilde başka satırdaki veriler değişiyor.bazen doğru değiştiriyor bazen de yanlış.
kod:
Private Sub CommandButton3_Click()
Cells(ListBox1.ListIndex + 7, 1) = TextBox3.Value
Cells(ListBox1.ListIndex + 7, 2) = TextBox4.Value
End Sub

sn arkadaşlar yardımlarınızı bekliyorum.en azından bunun nedeni nedir?
saygılar teşekkürler.:yardim:

 

[hamitcan]

Dosyanızın küçük bir örneğini ekleyin

 

[olymposss]

pek aynısı olmasada benzer bir durum

ilginize teşekkür ederim.dosya ektedir

aslında problem iki sütundan oluşan listboxtaki çift tıklanan satırın doğru sayfada ve doğru satırda düzeltilmesi.bazen doğru yapsada çoğu zaman yanlış düzeltiyor.
teşekkürler saygılar:yardim:

 

[hamitcan]

Aşağıdaki kodu eskisi ile değiştirin.

Private Sub CommandButton1_Click()
Sheets("sayfa2").Select
Cells(ListBox1.ListIndex + 1, 1) = Format(TextBox1, "DD/MM/YYYY")
Cells(ListBox1.ListIndex + 1, 2) = Format(TextBox2, "DD/MM/YYYY")
UserForm_Initialize
End Sub

 

[olymposss]

sn hamitcan ilginize çok teşekkür ederim
ancak maalesef yine olmadı.yazdığınız bu kodlarla sayfa2 deki listboxta listelenmiş hücreyi düzeltemiyorum.yazdığım programda yine düzelt butonuna basınca başka hücredeki veriyi düzeltiyor.acaba bunun başka bir yöntemi yok mu?listboxta sıralanmış bir veriyi başka kodlarla düzeltmek mümkün mü?
yardımcı olacaklara teşekkür ederim.
saygılar

 

[hamitcan]

Dikkatimi çeken birşey oldu. "A" sütunundaki tarihleri tekrar girmeyi dener misiniz?

 

[olymposss]

ilginize teşekkürler

herkese günaydın

maalesef kaç gündür uğraşıyorum ama bi türlü olmuyor. neredeyse bildiğim her yolu denedim.
aklıma bişey daha geldi ama bu konuda pek bi bilgim yok.arkadaşlar yardımcı olabilirlermi acaba?
kod:
Cells(ListBox1.ListIndex + 7, 1) = TextBox3.Value

yukarıdaki kodda sanırım 1 sayısı listboxta işaretlenmiş satırı ifade ediyor.problemde buradan doğuyor diye sanıyorum.çünkü listbox ta işaretli satırı sayfa2 de karşılığına gelen hücreyi düzeltmiyor başka bi hücreye yönleniyor.şunu sormak istiyorum 1 yerine a desek ve a'yı listboxta işaretlenmiş satır sayısı olarak tanımlasak a değerini nasıl yazamamız gerekir.
a=listbox ta işaretli satırın kaçıncı satır olduğu

teşekkürler saygılar:yardim:

 

[veyselemre]

RowSource olayını hiç sevemedim.

Private Sub CommandButton1_Click()
    Sheets("sayfa2").Select
    If ListBox1.ListIndex < 1 Then
        MsgBox "Listeden Se&#231;im Yap&#305;n"
        Exit Sub
    End If
    sira = ListBox1.ListIndex + 1
    Cells(sira, 1) = CDate(TextBox1.Value)
    Cells(sira, 2) = TextBox2.Value
End Sub
Private Sub CommandButton2_Click()
    Unload Me
    'Sheets("ana").Select
    'ActiveWorkbook.Close True
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Value = Format(CDate(ListBox1.Column(0)), "dd.mm.yyyy")
    TextBox2.Value = ListBox1.Column(1)
End Sub
Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "100;170"
    Sheets("sayfa2").Select
    ListBox1.RowSource = "A1:B" & [b65536].End(3).Row
End Sub

 

[olymposss]

sn veyselemre sanırım bu kodlar işime yaradı.bikaç deneme yaptım hedef doğru çıkıyor.umarım yine problem oluşturmaz.
elinize sağlık çok teşekkür ederim.
saygılar.