- Katılım
- 19 Eylül 2008
- Mesajlar
- 22
- Excel Vers. ve Dili
- Excel 2007 Tr
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;",";""))+1
merhaba
ilk alternatif çözüm benden olsun.
bu işinizi görür mü?
Kod:=UZUNLUK(A1)-UZUNLUK(YERİNEKOY(A1;",";""))+1
tahsin arat bey,
yazdım ama olmadı.
modül e demi yazmam lazım acaba
Modüle;
Function formul(InputCell As Range) As String
formul = InputCell.FormulaLocal
End Function
bunu kodlu görüntüle bölümüne de yazdım olmadı. makro falan diyo.