combobox arama

[Barons]

merhaba
Aşağıdaki kodda combobox change olayında arama yaptırıyorum ama formul olan hücredeki değeri getirmiyor.Bunun bir çözümü varmıdır.? Teşekkürler

Kod:
Private Sub ComboBox33_Change()

Worksheets("veri").Select
Range("e2:e64000").Find(ComboBox33.Value).Activate

ComboBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox1.Value = ActiveCell.Offset(0, 2).Value
' TextBox33.Value = ActiveCell.Offset(0, 3).Value bu değer gelmiyor çünkü bu hücrede formul var.
TextBox2.SetFocus
End sub

 

[Ömer]

Merhaba,

Dosya eklerseniz daha net yanıtlar alırsınız.

Find satırını aşağıdaki gibi değiştirerek deneyin.

Range("e2:e64000").Find(ComboBox33.Value, LookIn:=xlFormulas, LookAt:=xlWhole).Activate

.

 

[kurten]

Merhaba,
Ben aynı kodu kullandığımda geliyor. Başka ne sorun olabilir bunu bilemiyorum. Ama aynen sizin kodunuzla ben formül olan bir hücede value ile değeri getirebiliyorum. Sorun nedir anlayamadı.