Listboxtan textboxlara gelen veriyi çalışma sayfasından güncelleme hk.

[bkk]

Merhabalar,

Ekteki çalışma kitabım bir buton yardımı ile userform açmaktadır, bu userform üzerinde bulunan listboxta istediğim veriye çift tıkladığımda yan kısımda bulunan textboxlara ilgili veriyi atıyor, bu verileri no adında bir label ile sıra numarasını yazdırdım, bu sıra nosunun bulunduğu excel satırını textboxlara göre nasıl güncelleyebilirim, yardımcı olabilir misiniz?
teşekkür ederim.

 

[Mdemir63]

Selamlar
Yanlış anlamadıysam;
Güncelle butonunun içine aşağıdaki kodları yapıştırıp deneyiniz

Dim ws As Worksheet, i As Integer, ss As Integer
Set ws = ThisWorkbook.Sheets("PERSONEL")
ss = ws.Range("B1048536").End(xlUp).Row

For i = 2 To ss
      If Me.NO.Caption = ws.Cells(i, 1).Value Then
            ws.Cells(i, 1).Offset(0, 1) = Me.TextBox1
            ws.Cells(i, 1).Offset(0, 2) = RANK
            ws.Cells(i, 1).Offset(0, 3) = Format(CDbl(Me.TextBox3), "dd.mm.yyyy")
            ws.Cells(i, 1).Offset(0, 4) = Format(CDbl(Me.TextBox4), "dd.mm.yyyy")
            ws.Cells(i, 1).Offset(0, 5) = Me.TextBox5
      End If
Next i

 

[bkk]

teşekkür ediyorum denedim oldu

 

[Mdemir63]

Rica ederim.
İyi çalışmalar