Sayı Duyarlılığını aşmak

[mrt]

Üstadlar , Selamlar,

Excel sayıo duyarlılığını aşmak için H sutunuında bulunan verilerin sonundaki _A ibaresini silip hücre değerinin başına ' ekleyebileceğim makro var mıdır ?

Kısaca Yapmak İstediğim

33001902320729101083_A yerine '33001902320729101083 yazdırmak. Böylece seri numaraları text olarak algılanıp, sayı duyarlılığına takılmayacaktır.

 

[uzmanamele]

merhaba
bu işinizi görür mü
="'"&PARÇAAL(H2;1;(UZUNLUK(H2)-2))
veya
=BİRLEŞTİR("'";YERİNEKOY(H2;"_A";""))

 

[mrt]

Üstadım, Evet bu işimi görür.

Bunu makro ile nasıl yapabilirim.


H sutunundaki verileri başka yere yazmadan değiştirmek istiyorum.

 

[uzmanamele]

merhaba
bu olur mu?

Sub deneme()
'''sayfada "_A" değerini "" ile değiştir
Cells.Replace What:="_A", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[mrt]

Selamlar,

_A yı siliyor. Verilerin başına ' getirmiyor. Yine Sayı duyarlığı engeline takılıyor.

 

[mami68]

Merhaba.
"A" Ve "B" sütunları tamamen seç ve hücre biçimlendirde →isteğe uygulanmış→Tür bölümünde :0,00 başına(')tırnak işaretini koyun ve metin olarak görünür.İyi çalışmalar
örnek:'0,00

 

[abdi]

Sub rakamlarıal()
For i = 2 To [H65536].End(3).Row
a = Len(Cells(i, 8).Value)
    For t = 1 To a
    k = Mid(Cells(i, 8), t, 1)
    If IsNumeric(k) = True Then
    y = y + k
Else
End If
Next
Cells(i, 8).Value = "'" & CStr(y)
y = ""
Next
End Sub

bu kodu bir düğmeye bağlayıp çalışmanızın bir yedeğinin alıp denermisiniz.
örnek dosyanız üzerinde denenmiştir.
iyi çalışmalar