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
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