• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

^ ve tırnak işareti hücrelere nasıl geldi?

Katılım
10 Mayıs 2009
Mesajlar
1,080
Excel Vers. ve Dili
2003 türkçe
Arkadaşlar Merhabalar;

Nasıl olduğunu anlamadığım,bir problem yaratmayan ancak sebebini bilmediğimden rahatsız edici olan bir durum var.

Dosyalarımdaki verilerin başına her hücrede ^ ve ' işaretleri eklenmiş durumda.Bunun neden olduğunu ve nasıl kalkacağını bilen var mı?

Misal kopyalayıp bul değiştir işlemi yaparak kaldıramıyorum..
 
Merhaba,
şöyle bir alıntı kod kullanmıştım. Seçtiğiniz alanda temizlik yapar.

Kod:
Option Explicit
Sub sil()
Dim myRng As Range
Dim myCell As Range
Set myRng = Nothing
On Error Resume Next
Set myRng = Intersect(Selection, _
Selection.Cells.SpecialCells(xlCellTypeConstants))
On Error GoTo 0
If myRng Is Nothing Then Exit Sub

For Each myCell In myRng.Cells
'If myCell.PrefixCharacter = "'" Or myCell.PrefixCharacter = "^" Then
'myCell.Value = ""
myCell.Value = ReplaceClean(myCell.Value, "")
'End If
Next myCell

End Sub
Function ReplaceClean(sText As String, Optional sSubText As String = " ")
    Dim J As Integer
    Dim vAddText
    Dim aWF As WorksheetFunction
    Set aWF = Application.WorksheetFunction

    vAddText = Array(Chr(129), Chr(141), Chr(143), Chr(144), Chr(157))
    For J = 1 To 31
        sText = aWF.Substitute(sText, Chr(J), sSubText)
    Next
    For J = 0 To UBound(vAddText)
        sText = aWF.Substitute(sText, vAddText(J), sSubText)
    Next
    ReplaceClean = sText
    Set aWF = Nothing
End Function
 
Sayın dentex teşekkür ederim deneyeceğim.ama bir değil bütün dosyalarımda bu söz konusu.sanki bir ayarın değişmiş olmasından kaynaklanıyor ama ne anlayamadım.Neden bunların oluşmuş olabileceğine dair bir fikriniz var mıdır?
 
Geri
Üst