- Katılım
- 4 Ağustos 2009
- Mesajlar
- 112
- Excel Vers. ve Dili
- Ofis 2010 TR 32 Bit
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
ALAKANIZ İÇİN TEŞEKÜRLER.TAM ACIKLAYICI YAZAMADIM SANIRIM. EKSİK BIRAKMISIM YOK HAtASI VERDİĞİ YERE B SUTUNUNDA VEYA C SUTUNUNda BULUP BAKİYE ADEDİNİ YAZMASI.TABLO DİZİNİNDE OYNAMA YAPILMADAN OLA BİLİRMİ.
kullanıcı tanımlı fonksiyon yaptım.Stok kodunu, kod başlıklı sutunların hepsinde aratıp a sutunundaki degeri getire bilirmiyiz acaba.
Function evbul(deg As Range, aralik As Range)
Dim k As Range
Set k = aralik.Find(deg, , xlValues, xlWhole)
If Not k Is Nothing Then
evbul = Cells(k.Row, "A").Value
Else
evbul = "YOK"
End If
End Function
kullanıcı tanımlı fonksiyon yaptım.
Deg olarak aranacak hücreyi yazın,aralık ta ise bir aralık belirleyin.
Başka dosyalarda kullanabilmek için verdiğim bu fonksiyonu oraya standart bir modüle kopyalamlısınız.
Kod:function evbul(deg as range, aralik as range) dim k as range set k = aralik.find(deg, , xlvalues, xlwhole) ıf not k ıs nothing then evbul = cells(k.row, "a").value else evbul = "yok" end ıf end function