=(EŞİTTİR) işaretinin kaldırılması

[manisali50]

Eşittir işaretinin kaldırılması ile ilgili örnek dosyam ektedir.
İlgi ve yardımlarınızı bekliyorum.
Şimdiden teşekkürler

 

[usubaykan]

Merhaba;

Kullanıcı tanımlı fonksiyonunuzu

formul = WorksheetFunction.Substitute(InputCell.FormulaLocal, "=", "")

şeklinde değiştirin.

 

[Mahir64]

Eşittir işaretinin kaldırılması ile ilgili örnek dosyam ektedir.
İlgi ve yardımlarınızı bekliyorum.
Şimdiden teşekkürler

Merhaba
Yardımcı Hücre kullanarak

=YERİNEKOY(L26;"=";"")

Yada KTF üzerinde oyna yaparak sonuç alabilirsiniz.

 

[usubaykan]

Merhaba;
#2 numaralı mesajımda formül içersinde ki tüm "=" ifadeleri yerine "" gelecektir. Farz edelim ki formülünüzün içersinde "=" kelimesi başta değilde formül içerisinde başka bir yerde geçiyor. O zaman #2 numaralı mesajımdaki kod yanlış sonuç üretebilir. Size sadece formülün başındaki "=" ibaresi kaldırılacaksa aşağıdaki kodu öneriyorum.

formul = Mid(InputCell.FormulaLocal, 2, Len(InputCell.FormulaLocal))

 

[manisali50]

Yerinekoy formülü #AD hatası veriyor.KTF satırını ise nereye ekleyeceğim?Bendeki kodların içine mi ?

 

[usubaykan]

Yerinekoy formülü #AD hatası veriyor.KTF satırını ise nereye ekleyeceğim?Bendeki kodların içine mi ?

Kullandığınız dosya içerisinde kullanıcı tanımlı fonksiyon var module içersinde formul ile başlayan yeri yazdığım kod ile değiştirin.

 

[manisali50]

Tamamdır arkadaşlarım.Sorun halloldu..İlginize,bilginize ve emeğinize teşekkür ediyorum..Bir de şu "Personelin görev yerlerine dağıtılması" başlıklı sorum ile ilgilenseniz harika olacak.

 

[Mahir64]

Yerinekoy formülünü yardımcı hücre ile kullanırsanız sonuç alırsınız.
M6 yazarak deneyin

=YERİNEKOY(L26;"=";"")

 

[manisali50]

Yazdığınız KTF'ler daha yararlı oldu.Onu kullandım..Tekrar teşekkürler