COMBOBOX CHANGE ÖZELLİĞİNDE ARAMA YAPMAK

[ik]

COMBOBOX CHANGE �ZELLÝÐÝNDE ARAMA YAPMAK

Değerli Arkadaşlar;

Bir listem var. Buradaki liste bir başka sayfadaki ürünlere bağlı. yani ürünlerin eklendiği bir ürünler sayfası var ve benim stok listem bu sayfaya formül ile bağlı.

Ben user form üzerinde bir comboxa bunları yüklüyorum. ve ürünü seçtiğimde stoktaki adedi comboboxın yanındaki labela yazsın istiyorum.

Ancak stoklarım ayrı bir sayfaya formül ile bağlı olduğundan aşağıdaki kod çalışmıyor. hücrede değer olursa çalışıyor.

Sorunu aşabilmenin bir yolu varmı acaba? :kafa:

Sevgiler

Kod:

Private Sub CmbUrun_Change()
Set no = Worksheets("tümüs").Range("A1:CZ200")
Set ara = no.Find(CmbUrun.Value)

If Not ara Is Nothing Then
ilk = ara.Address
ara.Select
End If

LblStok1 = ActiveCell.Offset(0, 1)


End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:496b7fc20c]Private Sub CmbUrun_Change()
Set no = Worksheets("tümüs").Range("A1:CZ200")
Set ara = Cells.Find(What:=CmbUrun.Value, After:=ActiveCell, LookIn:=xlFormulas)
If Not ara Is Nothing Then
ilk = ara.Address
ara.Select
End If
LblStok1 = ActiveCell.Offset(0, 1)
End Sub[/vb:1:496b7fc20c]

 

[ik]

Sevgili Leventm;

Lookin:= xlformulas yerine xlvalues la çalıştı.

Yardımların için teşekkürler

 

[KarıncaZ]

Merhaba. Konuyla nekadar alakalı bilmiyorum ama bir problemim var.
Ekteki dosyada. Geliş/Çıkış Kodu aynı ancak Bölümü , Revizyon No'su ve Revizyon tarihi farklı olan işlemler var. Ben Geliş/Çıkış Kodunu seçtiğim zaman bana Bölümü kısmındaki ComboBox a o koda ait bilgilerin seçeneği çıksın. Diğerlerinin ki değil.
Yardımlarınız için şimdiden çok teşekkürler. Kolay gelsin iyi çalışmalar. :hey: