• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

UserForm Veri Arama

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.
Geri
Üst