Çözüldü Hata

[hüseyin551]

merhaba arkadaşlar
listbox3 deki veriyi sil de formülünde ufak bir formül hatası var.
Teşekkürler.

 

[Erkan Akayay]

Şu kodlarda sıkıntılar küçük değil . Herşey yanlış.

sil = Sheets("DATA").Columns(1).Find(ListBox3.Value).Row
Sheets("DATA").Rows(sil).Delete

1. DATA diye bir sayfa yok. DÖKÜMAN sayfası var.
2. Columns(1).Find diyerek 1. kolonda aratıyor. 1. Kolon boş.
3. Arama yapacaksanız bu şekilde bir kolonda değer bulursunuz. Siz tüm kolonların birleşimini arıyorsunuz.
4. Find(ListBox3.Value) diyerek Listboxtaki tüm satırı aratamazsınız. Sadece 1. kolondaki tarihi arar. Firma adı vb. şeyleri pas geçer.

Siz verileri listbox'a aynı şekilde çağırdığınız için daha pratik bir yol izlenebilir.
Filtreleme olmadığı için yazıyorum. Bir sonraki sorunuz değişik kriterlere göre filtrelenen değerleri ListBox'a getirmek olacaktır. O zaman daha farklı bir çözüm gerekecek.
Şu anki sorunuza göre aşağıdaki kod işiniz görecektir.

Private Sub CommandButton5_Click()
If MsgBox("Seçtiginiz Veri Silinecek,Eminmisiniz?", vbYesNo) = vbYes Then
Sheets("DÖKÜMAN").Rows(ListBox3.ListIndex + 4).Delete 'Listbox index 0 dan başlar. +1 kullanılır. Başlıklar 3 satır. +4 etti.
ListBox3.RemoveItem ListBox3.ListIndex ' Silme işlemindn sonra Lisboxtan o satır kaldırılır. Listbox güncellenmiş olur.
End If
End Sub

 

[hüseyin551]

Şu kodlarda sıkıntılar küçük değil . Herşey yanlış.

sil = Sheets("DATA").Columns(1).Find(ListBox3.Value).Row
Sheets("DATA").Rows(sil).Delete

1. DATA diye bir sayfa yok. DÖKÜMAN sayfası var.
2. Columns(1).Find diyerek 1. kolonda aratıyor. 1. Kolon boş.
3. Arama yapacaksanız bu şekilde bir kolonda değer bulursunuz. Siz tüm kolonların birleşimini arıyorsunuz.
4. Find(ListBox3.Value) diyerek Listboxtaki tüm satırı aratamazsınız. Sadece 1. kolondaki tarihi arar. Firma adı vb. şeyleri pas geçer.

Siz verileri listbox'a aynı şekilde çağırdığınız için daha pratik bir yol izlenebilir.
Filtreleme olmadığı için yazıyorum. Bir sonraki sorunuz değişik kriterlere göre filtrelenen değerleri ListBox'a getirmek olacaktır. O zaman daha farklı bir çözüm gerekecek.
Şu anki sorunuza göre aşağıdaki kod işiniz görecektir.

Private Sub CommandButton5_Click()
If MsgBox("Seçtiginiz Veri Silinecek,Eminmisiniz?", vbYesNo) = vbYes Then
Sheets("DÖKÜMAN").Rows(ListBox3.ListIndex + 4).Delete 'Listbox index 0 dan başlar. +1 kullanılır. Başlıklar 3 satır. +4 etti.
ListBox3.RemoveItem ListBox3.ListIndex ' Silme işlemindn sonra Lisboxtan o satır kaldırılır. Listbox güncellenmiş olur.
End If
End Sub

Teşekkür ederim. Emeğinize sağlık.