Listboxta seçilen isme ait verileri userforma getirmek

[SİBEL70]

merhabalar,
ekteki dosyada b sütununu listboxa getiriyorum.. Listboxtan seçtiğim verinin bilgilerini textboxlara getirerek değiştirmek ve seçtiğim satırı silmek için nasıl bir kod olmalı yardımcı olabilirseniz sevinirim

 

[Necdet]

Merhaba,

ListBox1'in Click olayında aşağıdaki kodları deneyiniz, gerekirse kendinize göre ayarlayınız.

Private Sub ListBox1_Click()
    Dim c As Range
    Set c = Sheets("Sayfa1").Range("B:B").Find(ListBox1.Value)
    If Not c Is Nothing Then
        TextBox1 = Range("B" & c.Row)
        TextBox2 = Range("C" & c.Row)
        TextBox3 = Range("D" & c.Row)
    End If
End Sub

 

[SİBEL70]

Necdet Bey,
ilginiz ve yardımınız için teşekkürler.. Textboxlara verinin nasıl çağırıldığını sayenizde anladım..
Çağırdığım bu verileri değiştirmek ve silmekle ilgilide yol gösterebilmeniz mümkün olursa çok sevineceğim.. Sitede bazı örnekler var ancak başka formüllerle iç içe olduğundan bir türlü değiştir ve sil ayrıştırmayı başaramadım..
Saygılar,

 

[Necdet]

Merhaba,

Konuyu tam bilmeyince insanın nutku tutuluyor

Dosyayı inceleyiniz, belki mantığı size uyar.

 

[SİBEL70]

Necdet Bey,

yardımınız için teşekkürler kodlar formdaki sorunumu çözdü..

İyi günler diliyorum