kod hatası

[cdroy1]

herkeze selam

ekli dosyada sorunumu anlatmaya çalıştım

herkeze kolay gelsin teşekkürler

 

[emrexcel123]

sil

arkadaşım sil butonun damı sorunun var :???:

 

[cdroy1]

sayın abim sil butonunu daha oluşturmadım
şimdiki sorunum değiştirde kaynaklanıyor kayıt ediyor veriyi geri çağırığ değiştir dediğim zaman listede farklı hücrelere kaydediyor bi bakarsanız sevinirim

ayrıca listbox a süz oluşturabilirmiyim bi bilgi verebilirseniz çok iyi olur
kolay gelsin

 

[emrexcel123]

buyrun

eki bi inceler misin.ayrıca nasıl bir süzme işlemi olacak listbox 'ta örneğin isim yazınca o isme uyan bilgilerin sıralanması mıdır?

 

[cdroy1]

teşekkür ederim sayın abim eline sağlık çok güzel olmuş

süz den kastım filitreleme yapılabilirmi çünkü listede çok uzun isime göre sadece filitreleme yapmak istiyorum
ilginizze teşekkür ederim
kolay gelsin

 

[emrexcel123]

filtre

bu ekte isme göre arama yapan filtre mevcuttur... bi inceleyin bakalım...

 

[cdroy1]

Teşekkür ederim eline sağlık

 

[emrexcel123]

rica ederim

arkadaşım filtreleme buysa ok kolay gelsin...

 

[cdroy1]

sayın abim şimdi bi sorun çıktı liste 2000 den fazla girdisi olduğu için bunu uyguladım ve çok ağırlaştı aceba başka bi çaresi yokmu kod çalışıyor ama çok yavaş

kolay gelsin

 

[emrexcel123]

dosya boyutu

arkadaşım dosya boyutun yanılmıyorsam 2.71 mb şunu bir dene bakalım
sub ....................
Application.ScreenUpdating = False
end sub

 

[cdroy1]

haklısınız size gönderdiğim örnek dosya boyutu küçük fakat benim çalıştığım dosya 6,5 mb ve o süzme sayfasında 2000 küsür satır var
ilgin için gerçekten çok teşekkür ederim

 

[emrexcel123]

rica ederim

arkadaşım yardımcı olabildiysem ne mutlu bana
excel.web.tr = paylaşım

 

[cdroy1]

abicim biraz çok oluyorum ama bişi danışcam daha doğrusu aklıma geldi
otomatik filitre uygulaması olabilirmi userfoma o olursa çok fazla makbule geçer
şimdiden teşekkürler

 

[emrexcel123]

filtreleme

arkadaşım userform üzerine bildiğim kadarı ile filtreleme konamaz ama bir araştır istersen...

 

[Korhan Ayhan]

Selamlar,

Formunuza bir adet TextBox ekleyin ve aşağıdaki kodu uygulayın.

Private Sub TextBox1_Change()
    Application.ScreenUpdating = False
    Range("IO:IV").Clear
    [A1].AutoFilter Field:=4, Criteria1:="=" & TextBox1 & "*"
    If [B65536].End(3).Row = 1 Then
    ListBox1.RowSource = ""
    ListBox1.Enabled = False
    Selection.AutoFilter
    Exit Sub
    End If
    Range("A2:H" & [B65536].End(3).Row).Copy Range("IO2")
    Selection.AutoFilter
    ListBox1.RowSource = "IO2:IV" & [IR65536].End(3).Row
    ListBox1.Enabled = True
    Cells.EntireColumn.AutoFit
    Application.ScreenUpdating = True
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Range("IO:IV").Clear
End Sub

 

[cdroy1]

Sayın üstadım verdiğiniz kodu denedim fakat bi şekilde hata verdi ve sonuc hiçbiryere çıkmadı ben ekteki dosyada form üzerine bi açıklama yaptım ilgilenirseniz gerçekten çok menmun olacağım gerci biraz mahcupum çok soruyorum hem bayram münesebetiyle hemde affınıza sığınarak
kolay gelsin

 

[emrexcel123]

userform üzerinde

sn costcontrol arkadaşım arkadaşımız userform üzerinde excel sayfasında olduğu gibi filtreleme koymak istiyor ben de sayfa üzerinde koyabilirdim ama arkadaşımız böyle istemedi ben de bilmiyorum nasıl yapılır biliyorsanız bize de gösterirseniz aydınlanırız.açıkçası yeni birşey öğrenmiş olurum üstadım...

 

[Korhan Ayhan]

Selamlar,

Sn. emrexcel123,

Ben arkadaşımızın sorusunu form üzerinde aradığı kritere uygun olan isimleri ListBox ta listelemek olarak algıladım. Cevabımıda buna göre düzenledim.


Sn. cdroy1,

Ekteki örnek dosyayı incelermisiniz. Dosyanızdaki gereksiz renklendirmeyi kaldırdım. Dosyanın boyutunu gereksiz yere şişiriyor. Sanırım bu haliyle kendi çalışmanıza uyarlayabilirsiniz.

 

[emrexcel123]

sn costcontrol

sn üstadım ben farklı bir çözüm bekliyordum açıkçası ya da ben bulamadım çözümü textbox taki değere göre aldırma bulunmuştu ama ben filtreyi merak ettim açıkçası kafama takıldı... :mrgreen: