Formüllerin son kısmına eklenen manuel rakamları silme

[Korhan Ayhan]

Selam arkadaşlar,

Excel de oluşturduğum bir tablom var ve bu tabloda "B36:S61" hücre aralığında aşağıdaki gibi (kırmızı renkle belirtilmiş kısmı silmek istiyorum.) çok uzun formüller var. Benim yapmak istediğim formüllerin sonuna eklenen manuel rakamların hepsini makro ile sildirmek ama formülleri bozmadan bu işlemi yapmak istiyorum.

=TOPLA(EÐER(TÜKETİMLER!$A$1:$A$50000=$A37;EÐER(TÜKETİMLER!$B$1:$B$50000=$K$80;TÜKETİMLER!$C$1:$C$50000;0)))-7,51018524169922E-06

İyi çalışmalar dilerim.

 

[veyselemre]

formüllerdeki ))) den sonraki alanı atar


Sub cc()
For Each hucre In Range("b36:s61").Cells
al = hucre.Formula
uz = Len(al)
For X = 1 To uz
Son = WorksheetFunction.Find(")))", al)
Next
hucre.Formula = Mid(al, 1, Son + 2)
Next

End Sub

 

[Korhan Ayhan]

Son = WorksheetFunction.Find(")))", al)

Makronun üstteki satırında hata mesajı verdi. Acaba belirttiğim hücre aralığında bazı formüllerin sonunda rakam değilde ad olarak tanımladığım hücre isimleri var. Bu hata mesajını ondan vermiş olabilirmi.

Hata mesajı;

WorksheetFunctıon sınıfının Find özelliği alınamıyor.

 

[danersin]

O satır asıl formülün bittiği yeri tespit edebilmek için formül içinde ard arda üç tane paragraf kapama arıyor. ))). Eğer tüm formülleriniz bu şekilde bitmiyorsa hata vermesi normal.