Çözüldü Listwiev den tercihli arama hatası

[okinava14]

Arama olayında ComboBax liste içeriğinde hatamı düzeltebilecek üstad varmı acaba?
FrmMenu de Arama yapamıyorumda. Düzeltilmesi gereken yer ekteki resimde. kod hatası var biryerde bulamadım.

 

[Refaz]

Merhaba.Alttaki gibi döngüsüz yapabilirsiniz ve userform activateye eklediğiniz combo temizleme kodlarını silin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[okinava14]

Hocam emeğine sağlık tamamdır teşekkür ederim. Konu kilit

 

[Refaz]

Hocam emeğine sağlık tamamdır teşekkür ederim. Konu kilit

Rica ederim bu arada sayfa adlarını değiştirip sütun harflerinide ayarlayın.

 

[Refaz]

Kodun son hali altta.Birde dikkatimi çektiği için kodu çok uzatmışsınız resimdeki gibi yaparsanız daha basit olur 1 den 22 ye kadar sıralı gidiyor zaten.



HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[okinava14]

Hocam kalın seçili yer (Activex bileşeni nesne oluşturamıyor)hatası verdi.
Çalışmamda multipage kullanıyorum ve 2 sayfada arama kısmı olunca çakıştı.
Dic1 olarak denedim olmadı. 1den fazla olursa nasıl bir yol uygulamalıyım acaba?

Dim dic As Object, i As Integer, Deger As Integer
Set dic = CreateObject("Scripting dictionary")
For i = 1 To 13
dic(Thisworksbook.Worksheets("Rehber").Cells(i, i).Value) = i
Next
Deger = dic(ComboBox1.Value)
sorgu = kisalt1 & "(F" & Deger & ")" & kisalt2
If Deger = 0 Then
MsgBox "Arama Seçimini Doğru Yapınız", vbCritical, "UYARI"
Me.ListView1.ListItems.Clear

Exit Sub
End If
RehberListeAra
Set dic = Nothing
End Sub

 

[Refaz]

Müsait olunca bakayım ama normalde doğru yapmışsınız hata olmaması gerekiyordu.Yada kütüphaneden ekleyip createobject siz denenebilinir.

 

[Refaz]

Dim dic As Object

Yada bunu global yani kodların en üstüne alıp başka tanımlama yapmadan deneyin.Yani tek dim olacak kod sayfasında ve en üstte olacak.

 

[okinava14]

"createobject" ve "Dim dic As Object" yöntemlerini ayrı ayrı denedim olmadı hocam gene aynı noktada hata veriyor.
Müsai bir zamanda bakarsanız sevinirim.
Son hali ekte.

 

[Refaz]

Merhaba.
Denedim bendede anlamsızca hata veriyor activex gibi hata ama aynı kodları önceki dosyayda kullanıyorum çalışıyor bir deneyin.
Yolladığınız dosyada neden hata veriyor buluncada yazarım.

 

[Refaz]

Merhaba.
Önce resimdeki yeri işaretledim sizde Türkçesi çıkar.
Sonrada benim yolladığım resimdeki kodları sizin yanlış yazdığınız yerleri düzelttim.
Mesela scripting ten sonra nokta olacaktı ve cells içinde 1,i olacaktı siz ikisinide i,i yazmışsınız vs...

 

[okinava14]

Hocam emeklerine, yüreğine klavyene sağlık. Tamamdır.
Bu konu Halloldu sayenizde.
Web sayfası sıra no vermede bir sorun olmuş ama ben biraz uğraşayım. olmazsa yeni konu açarım.
Çok teşekkürler programın ama kısmı bitti yani. Allah razı olsun tüm emeği geçenlerden.

 

[Refaz]

Sizdende Allah Razı olsun.
Kolay gelsin.