Comboboxtan arama

[quesh]

Merhaba arkadaşlar.

Ekteki dosyada açılan Userformdaki Comboboxa kitapta bulunan her 3 sayfadaki A sütunlarının yani xx/xxx formatındaki kodların otomatik eklenmesini istiyorum. (**Orjinal dosyamda Her A sütunundaki kodlar aşağıya doğru uzuyor 500'lere kadar ve yenisi de ekleniyor.**)

Ardından Comboboxa xx/xxx formatında kod girilip "BUL" commandButtonuna tıklandığında ; veya Kodun ilk değerleri yazıldığında Ctrl+F'deki mantık gibi o kodu "tüm sayfalarda" aramasını; bulduğunda ise bulduğu hücreyi seçili hale getirmesini istiyorum.

Şimdiden Teşekkür ederim.

 

[Ömer]

Merhaba,

Seçili hale gelmesini istemenizdeki neden nedir?

.

 

[quesh]

Ömer Bey, binlerce bayi ve kod mevcut sayfalarımda, ağ üzerinden üst yönetimin çok basit bir şekilde aradığını bulmasını hedefliyorum, sayfaşarı seçip ctrl F ile uğraşmamaları vs. ve yaptığım şeyin açık ve anlaşılır olması önemli.

seçili olmasını istememin nedenine gelince ; sadece comboboxta aranan kodu tüm sayfalarda arayıp bulmasını istiyorum seçili olmasına da gerek yok aslında ,
saygılar.

 

[Ömer]

Eki inceleyiniz.

ListView'e fare ile çift tıklarsanız ilgili hücreye gidecektir.
.

 

[quesh]

Ömer Bey ellerinize bilginize sağlık....

Çok teşekkür ederim

 

[quesh]

Ömer Bey, tam istediğim gibi ellerinize sağşık tekrar ancak bir sorum var ; çift tıklayıp ilgili hücreye gittiği an o hücreyi otomatik renklendirmek nasıl yapılabilir ?

Saygılar.

 

[Ömer]

Private Sub ListView1_DblClick()

olan kodu aşağıdakiyle değiştiriniz.

Private Sub ListView1_DblClick()
Application.ScreenUpdating = False
On Error GoTo son
 
Dim Listsatir As Integer, SecimSayfa As String, SecimHucre As String
Dim syf As Integer
 
Listsatir = ListView1.SelectedItem.Index
SecimSayfa = ListView1.ListItems(Listsatir).Text
SecimHucre = ListView1.ListItems(Listsatir).ListSubItems(1).Text
 
For syf = 1 To Sheets.Count
    Sheets(syf).[A:A].Interior.ColorIndex = xlNone
Next syf
 
Sheets(SecimSayfa).Select
Range(SecimHucre).Select
Range(SecimHucre).Interior.ColorIndex = 40
son:

Application.ScreenUpdating = True
End Sub

.