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.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Listboxdaki veriyi değiştirme
- Konbuyu başlatan fehdur
- Başlangıç tarihi
Sayfadaki veri sayısı fazla sayfadan değiştirmek zor.Listboxa veriyi süzülmüş olarak alıyorumÖnce sayfada değişiklik yapın.sonra verileri tekrar listboxa alın.
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
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
Son düzenleme: