DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=[COLOR="red"]SOLDAN[/COLOR](A2;[COLOR="red"]BUL[/COLOR]("*";A2;1)-1)*[COLOR="red"]PARÇAAL[/COLOR](A2;[COLOR="red"]BUL[/COLOR]("*";A2;1)+1;[COLOR="red"]BUL[/COLOR]("|";[COLOR="red"]YERİNEKOY[/COLOR](A2;"*";"|";2);1)-([COLOR="red"]BUL[/COLOR]("*";A2;1)+1))*[COLOR="red"]PARÇAAL[/COLOR](A2;[COLOR="red"]BUL[/COLOR]("|";[COLOR="red"]YERİNEKOY[/COLOR](A2;"*";"|";2);1)+1;[COLOR="red"]UZUNLUK[/COLOR](A2)-[COLOR="red"]BUL[/COLOR]("|";[COLOR="Red"]YERİNEKOY[/COLOR](A2;"*";"|";2);1)+1)
Function Deg(ByVal str As String) As Variant
Deg = Application.Evaluate(str)
End Function
=Deg(A2)