Düzenleme ve Silme

[muhsinde]

Merhaba...
1- Örneğini eklediğim ekteki dosyada ListBox tan bilgi seçip düzelt dediğimde ilgili hücredeki bilgileri bir üst satıra kaydediyor.
2-Sil Butonu ilede ListBox ta seçtiğim satırın tamamını değilde sadece seçilen hücrelerin silinmesi.
Taleplerim hakkında yardımcı olunursa sevinirim.

 

[AdemCan]

Merhaba,
1. talep için
Selected_Row = Application.WorksheetFunction.Match(Me.ListBox1.List(Me.ListBox1.ListIndex, 0), sh.Range("A:A"), 0)
satırını değiştiriniz. Selected_Row = Me.ListBox1.ListIndex + 2

2. talep için
Selected_Row = Application.WorksheetFunction.Match(Me.ListBox1.List(Me.ListBox1.ListIndex, 0), sh.Range("A:A"), 0)
satırını Selected_Row = Me.ListBox1.ListIndex + 2 satırı ile ve
sh.Range("A" & Selected_Row).EntireRow.Delete satırını da sh.Range("A" & Selected_Row & ":E" & Selected_Row).Delete Shift:=xlUp satırı ile değiştiriniz.

 

[muhsinde]

Teşekkürler AdemCan Bu kodlarla sorun giderildi.

 

[williamramir]

Merhaba...
1- Örneğini eklediğim ekteki dosyada ListBox tan bilgi seçip düzelt dediğimde ilgili hücredeki bilgileri bir üst satıra kaydediyor.
2-Sil Butonu ilede ListBox ta seçtiğim satırın tamamını değilde sadece seçilen hücrelerin silinmesi.
Taleplerim hakkında yardımcı olunursa sevinirim.

Bütün sırayı gördüm. Sonra kodu yeniden yazdım.

 

[muhsinde]

williamramir ne demek istediğinizi anlayamadım.