Listboxdaki veriyi değiştirme

[fehdur]

Listbox1 de bulunan verileri buton yardımıyla DEĞİŞTİRMEK istiyorum ama aynı zamanda excel sayfasındaki veri de değişecek.Listbox daki veriler 5 kolondan oluşuyor,excel sayfa adı ise "Anasayfa".Kullanacağım textboxlar sırasıyla textbox18-19-20-21-22 (5 adet).Userform kullanılmayacak.İlgilenecek arkadaşa Teşekkür ederim.

 

[Orion1]

Önce sayfada değişiklik yapın.sonra verileri tekrar listboxa alın.

 

[fehdur]

Önce sayfada değişiklik yapın.sonra verileri tekrar listboxa alın.

Sayfadaki veri sayısı fazla sayfadan değiştirmek zor.Listboxa veriyi süzülmüş olarak alıyorum

 

[fehdur]

Aşağıdaki kod ile değiştirme yapıyorum ama listboxda bir değişiklik olmuyor yalnızca sayfadan değişiyor.

sonsatir = Sheets("Anasayfa").Cells(Rows.Count, "A").End(3).Row + 1
satir = varmı(Sheets("Anasayfa").ComboBox4.Text)
If satir = 0 Then
satir = sonsatir
Sheets("Anasayfa").Cells(sonsatir, "A15").Value = sonsatir - 1
End If

Cells(satir, "A").Value = TextBox18
Cells(satir, "C").Value = TextBox19
Cells(satir, "F").Value = TextBox20
Cells(satir, "G").Value = TextBox21
Cells(satir, "H").Value = TextBox22

Function varmı(bilgi) As Long
Set sayfak = Range("A:A").Find(bilgi, , xlValues, xlWhole)
If Not sayfak Is Nothing Then
varmı = sayfak.Row
Exit Function
End If
varmı = 0
End Function