Listbox düzenle-değiştir sorunu

[basaksehirli]

Konuyu çok aradım ama uygun bir şekilde uyarlayamadım. Sorunu özetleyecek olur isem;

Listbox1'de kayıtlar var. Bunlara tıkladığım zaman textbox10 ve textbox11'e veriler geliyor. Yine listboxa çift tıkladığım zaman düzenle butonum aktif oluyor. Ancak bir türlü düzenleme konusunu halledemedim. Veriler Telefonrehberi (sayfa7) sayfasında a1 ve b1 sütunlarında başlayıp aşağı sıralı olarak bulunuyor.

Ayrıca verileri bu kodla kaydediyorum:

Set alan = Sayfa7.Range("A65536").End(xlUp).Offset(1, 0)

alan.Offset(0, 0).Value = WorksheetFunction.Proper(TextBox10.Text)
alan.Offset(0, 1).Value = WorksheetFunction.Proper(TextBox11.Text)

Düzenleme konusunda yardımcı olabilir misiniz ? Şimdiden teşekkür ederim. İyi akşamlar.

 

[toprak2349]

Örnek dosya eklerseniz, sorunuza daha hızlı yanıt bulabilirsiniz.Hangi hücre hangi değer değişecek,userform mu var ???

 

[basaksehirli]

Örnek dosyam ektedir.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    Set Alan = Sayfa1.Range("A65536").End(xlUp).Offset(1, 0)
    Alan.Offset(0, 0).Value = WorksheetFunction.Proper(TextBox1.Text)
    Alan.Offset(0, 1).Value = WorksheetFunction.Proper(TextBox2.Text)
End Sub

Private Sub CommandButton2_Click()
    If ListBox1.ListIndex < 0 Then Exit Sub
    Satir = ListBox1.ListIndex + 1
    ListBox1.RowSource = ""
    Sayfa1.Cells(Satir, 1).Value = WorksheetFunction.Proper(TextBox1.Text)
    Sayfa1.Cells(Satir, 2).Value = WorksheetFunction.Proper(TextBox2.Text)
    UserForm_Initialize
End Sub

Private Sub ListBox1_Click()
    TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
    TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
End Sub

Private Sub UserForm_Initialize()
    If Sayfa1.Range("A1") <> "" Then
        ListBox1.RowSource = "TelefonRehberi!A1:b" & Sheets("TelefonRehberi").[A65536].End(xlUp).Row
    End If
End Sub

 

[basaksehirli]

Korhan hocam elinize sağlık. Sorunum çözüldü. Aklıma gelmişken Textboxa yazarken enter ile alt satıra geçip yazı yazdığımızda listbox da bu enter ile yapılan boşluk tuşu paragraf simgesi olarak görünüyor. Bunun bir çözümü mümkün mü ?

 

[Korhan Ayhan]

Verileri Listbox nesnesine alırken replace ile istemediğiniz karakterleri kaldırıp deneyin.