UserForm Veri Arama

Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Dosyanız ekte.:cool:
Kod: 
Set k = Range("E5:E65536").Find("*" & TextBox1.Value & "*", , xlValues, xlWhole)
If Not k Is Nothing Then Range("I2").Value = k.Offset(0, -4).Value
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Üst