Hücrelerde tırnak işaretinin kaldırılması

[excel_haso]

Merhaba arkadaşlar,

Kullandığım bir datanın A kolununda satırlarca bilgi var ve bunlar sayı gibi gözüksede aslında text ler. Ben bunları

Dim a As Range
For Each a In Range("A4:A109")
a = Abs(a)
a.Value = a
Next a
End Sub

Fakat sayıların sonlarında harfde var bundan dolayıda problem yaratıyor diye düşünüyorum.
'4008321140111DE
'4008321140128DE
'4008321140586
'4008321141248
'4008321108968X10
'4008321108968X2
bilgiler böyle bu problemi nasıl çözebilirim.

 

[Necdet]

Problem ne?


.

 

[excel_haso]

Problem
'4008321140111DE
'4008321140128DE
'4008321140586
'4008321141248
'4008321108968X10
'4008321108968X2
yukarıdaki bilgilerin başlarında tetx işareinden kurtulmak için yukarıdaki kodu yazdım fakat kurtulamadım hücrenin üzerine gelip F2 ile başındaki işareti silmek sureti ile kurtulabiliyorum ondan binlerce satır var ve çok zor. Amacım başındaki ' işaret den kurtulmak

 

[hamitcan]

Bul-değiştir şeklinde denediniz mi?

 

[Ali]

A sütunun komple seçin.CTRL+H tuşuna basın aranan kısmına tırnak işareti koyun alttaki yeni değer kısmına birşey yazmayın ve tümünü değiştiri tıklayınız.

Not:Siz kendi versiyonunuza göre uyarlarsınız.

 

[Merhum İdris SERDAR]

Sub Macro1()
[A4:A110].Select
Selection.Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
End Sub


şeklinde deneyin.

 

[excel_haso]

A kolonun abaktığınızda tırnak işarati görünmüyor. Hücrelerin üzerine gelip F2 yapınca görünüyor.Ayrıca söylediğinzi şeyi denedim olmadı

 

[N.Ziya Hiçdurmaz]

yanıt

A sütunu için.

Sub test()
For sut = 1 To [a65536].End(3).Row
Range("a" & sut) = Mid(Range("a" & sut), 1)
Next
End Sub

 

[excel_haso]

Çok teşekkür ederim oldu elinize sağlık üstadım

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz.

Sub test()
For sut = 1 To [a65536].End(3).Row
Range("a" & sut) = Mid(Range("a" & sut), 2)
Next
End Sub

 

[excel_haso]

Üstadım öğrenmek için soruyorum. Eğer B2 hücresine bir formül yazmak isteseydik bu kodu nasıl formülüze ederdik.

 

[N.Ziya Hiçdurmaz]

yanıt

=+parÇaal(a1;2;uzunluk(a1))

 

[Necdet]

Problem ne diye sorduğumda sorunu tam olarak anlatmanızı istemiştim sizden.

Çünkü hücre içinde alfatebit karakterler vardı, onların ne olacağını merak etmiştim.

böyle durumlarda boş bir hücreye 0 (Sıfır) yazın, onu kopyalayın

verileriniz hangi sütunda ise onu seçin ve yapıştır özelden toplayı seçin.

 

[excel_haso]

0 yazarak işlem tamam üstadım teşekkürler. Yanlız benim ofice ingilizce excelin içinde parçaal ın karşılığını bulamadım
=MID(B285;2;LEN(B285)) olabilir mi acaba?

 

[Necdet]

evet PARÇAAL'ın ingilizcesi MID