listBoxta süzme

[Fuat Şirin]

arkadaşlar dosya ekte
süzme işlemii yapamıyorum
herşeyi yaptım onu yapamıyorum
yardımcı olacak ark şimdiden tşk
(link vermeyin sabaha kadar Excel.web.tr deydim yapamadım)

(userForm2 de)

 

[Levent Menteşoğlu]

Süzme işleminden kastınız nedir? biraz daha açarmısınız.

 

[Fuat Şirin]

filtre hocam

zaten user fom2 ye bakarsanız
ben burda userform1 deki her girdiğim hücreyi liltre etmem lazım
yani her sütun filtre edilmesi lazım
amacım
hersutunun filtre edilmesi
çıkan sonuçları yazdırmak
yardımcı olursanız sevinirim
link vermeyin dememden kasıt
bununla ilgili bütün konuları inceldim
ama filtreyle , değiştir işini yapamadım hocam

 

[Levent Menteşoğlu]

Sorunuz yine açık değil, bu şekilde detay vermeden beklerseniz elbette cevap almanız güçleşir. En başta süzme işleminin userform2de yapılacağını belirtmeniz gerekmezmiydi, ben userform1e bakıp duruyordum.

Sizin düşüncelerinizi okuyamayacağımıza göre hala detay bilgiye ihtiyaç var, Userform2de bir listbox ve 2 comboboxtan başka bir şey yok, bu comboboxlar ne işe yarayacak? bunlara veri yüklenmeyecekmi? comboboxtan seçilen veriye göre listboxta listelememi yapılacaktır. Her combobox birbirinden bağımsızmı süzme işlemi yapacaktır vs.

 

[Fuat Şirin]

hocam ilginize tşk

hocam ilk mesajımda userform 2 diye yazıor.
sorunum şu
aslında user form2 benim yapamadığım bişey
userform2 ye hiç girmiyelim yapabiliyorsak eğer
userform 1 e sayfa1 deki girilen bilgilerin
yani listbox1 e aktardığım verilerin
filtrelenmesini istiyorum
bu userform1 içindeki tüm textbox ve comboboxlar için geçerli
yani kısaca
userform1 deki listboxta çıkan verilerin (giriş Sayfası)
her sutununu filtrelemek ve filtre yaptığım verileri
yazdırmak istiyorum
birde düzelt butonu koyarsak oda gecenin bombası olur.

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Userform1deki Listboxa süzme işlemi optionbuttonlarla yapılmıştır. Bu işlemde class module kullanılmıştır. Listboxtan seçilen verinin değiştirilmesini saplayan "değiştir" ve süzülen veriyi yazdıran "yazdır" butonları ilave edimiştir.

Umarım istediğinizi doğru anlamışımdır.

 

[Fuat Şirin]

çok tşk

sayın leventm
mükemmelsiniz
Allah sizden razı olsun
emeklerinizin karşılığını inşallah alırsınız
teşekkürler
kolay gelsin

 

[Fuat Şirin]

hocam kusura bakmayın

yine rahatsız ediyorum ama
girdiğim verileri sayfa 1 e atıyor
ve girişlerim sayfada gözükmüyor
bi incelerseniz
birde boş hücre bırakınca hata veriyor

 

[Levent Menteşoğlu]

Eklediğim dosyayı yeniledim tekrar inceleyin.

 

[Fuat Şirin]

hata veriyor

dosyayı kullanıyorum ama filtrede hata veriyor
giriş yaptığımda listbox a userform u kapatıp açmadan giriş gözükmüyor
sayfa1 e her yaptığım filtreyi üstüste ekliyor
yardımlarınız için şimdiden tşk

 

[Levent Menteşoğlu]

Kayıt butonundaki kodu aşağıdaki ile değiştirin.

Private Sub CommandButton1_Click()
Set s1 = Sheets("giriş")
deg = ListBox1.ListIndex
Dim i As Integer
sat = s1.[b65536].End(3).Row + 1
s1.Cells(sat, 2) = CLng(CDate(TextBox1.Text))
s1.Cells(sat, 3) = ComboBox1.Text
s1.Cells(sat, 4) = ComboBox2.Text
s1.Cells(sat, 5) = ComboBox3.Text
s1.Cells(sat, 6) = ComboBox4.Text
s1.Cells(sat, 7) = TextBox2.Text
s1.Cells(sat, 8) = TextBox3.Text
s1.Cells(sat, 9) = CLng(CDate(TextBox4.Text))
s1.Cells(sat, 10) = TextBox5.Text
s1.Cells(sat, 11) = ComboBox5.Text
s1.Cells(sat, 12) = CLng(CDate(TextBox6.Text))
MsgBox "Bilgi Eklendi !...", vbOKOnly + vbInformation, "Bilgi Ekleme"
CommandButton2_Click
UserForm_Initialize
ListBox1.ListIndex = deg
End Sub

Aynı optionbutona tekrar basılabilmesini sağlamak amacıylada aşağıdaki kodu class module sayfasına kopyalayın.

Private Sub opt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
opt_Click
End Sub

 

[Fuat Şirin]

dosya ekte

hocam yeni dosyayı ekledim dediğiniz gibi yaptım
ekledim ama bu seferde değiştir diyince
değiştirilen verileri başka yerlere atıyor
hocam şu prog bi adam edelim
çok rica

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Özellikle değiştir butonu işlemini A sütununda bulunan sıra nosuna göre yapmaktadır. Bu sebeple bu sütundaki sıra nolar eksiksiz ve sıralı olmalıdır.

 

[Fuat Şirin]

teşekkür

10 üzerinden 100000000000000
sabrınızdan ve yardımınızdan dolayı çooook teşekkür