Tek Tırnak İşaretini Kaldırmak

[tuvons]

Arkadaşlar merhaba,

A sütununda metin olan ifadelerde tek tırnak(') ile başlayan hücreler var. Aşağıdaki kodlar ile hücrenin içerisindeki tek tırnakları kaldırabiliyorum ama başındakileri kaldıramıyorum. Hücre değerini farklı bir hücreye yazdığım zaman da kalkıyor ama aynı hücre içerisinde değiştiremedim.

Yardımcı olabilir misiniz?

Sub DeleteApostrophes()
Dim ws As Worksheet
Set ws = ActiveWorkbook.Worksheets("Sayfa1")
Dim rng As Range
Dim strInput As String, strOutput As String

For Each rng In ws.Columns(1).Rows("2:415")
    strInput = ws.Columns(1).Rows(rng.Row)
    strOutput = Replace(strInput, "'", "")
    ws.Columns(1).Rows(rng.Row) = strOutput
Next rng
End Sub

Sub Makro2()
satırno = Workbooks("new.xlsm").Worksheets(1).Cells(1048576, 1).End(xlUp).Row
For a = 2 To satırno
'Workbooks("new.xlsm").Worksheets(1).Cells(a, 1) = WorksheetFunction.Substitute((Workbooks("new.xlsm").Worksheets(1).Cells(a, 1)), "'", "")
Next a
End Sub

 

[YUSUF44]

Bahsettiğiniz tek tırnak yani kesme işareti olan olan hücreler aslında sayı ise ve metin biçiminden kurtarmak istiyorsanız aşağıdaki yöntemi deneyin:

Boş bir hücreye 1 ya da 0 yazın
Bu hücreyi kopyalayın
Düzeltilecek hücreleri seçin
Sağ tıklayıp Özel yapıştır menüsünü açın
Üst kısmından Değerler'i seçin
Alt kısımdan, 1 yazdıysanız Çarp'ı, 0 yazdıysanız Topla'yı seçin
İşlemi tamamlayın.

 

[tuvons]

@YUSUF44 teşekkürler cevabınız için. Sizin yazdığınız sayılar için oluyor fakat benim yapmak istediğim metinlerin başındaki tek tırnağı kaldırmak. Örneğin 'tuvons yazıyor. Bunun başındaki tek tırnağı kaldırmaya çalışıyorum.

 

[YUSUF44]

Aşağıdaki formülü dener misiniz?

=TEMİZ(A1)

Sonra bunu diğer hücrelere uygulayın ve formüllü hücreleri kopyalayıp asıl sütuna değer olarak yapıştırın.

 

[tuvons]

O da işe yaramadı. Farklı hücreye yazdığım zaman işe yarıyor fakat aynı hücre içerisinde hiç bi değişiklik yapmıyor.

Sub Makro2()
satırno = Workbooks("new.xlsm").Worksheets(1).Cells(1048576, 1).End(xlUp).Row
For a = 2 To satırno
Workbooks("new.xlsm").Worksheets(1).Cells(a, 2) = WorksheetFunction.Clean((Workbooks("new.xlsm").Worksheets(1).Cells(a, 1)))
Next a
End Sub

 

[Haluk]

Aynı hücrenin içinde baştaki tek tırnağı kaldıramazsınız....

.

 

[Korhan Ayhan]

Ekteki linki inceleyiniz.

https://www.excel.web.tr/threads/apostrof-tek-tirnak-semboluenue-kaldirmak.132138/

 

[veyselemre]

Sub Test()
    Dim Cell As Range
    For Each Cell In Range("A2", Cells(Rows.Count, "A").End(xlUp))
        If Len(Cell.Value) >= 1 And Cell.PrefixCharacter = "'" Then
            al = Cell.Value
            Cell.Clear
            Cell.Value = al
        End If
    Next Cell
End Sub

 

[Haluk]

Aynı hücrenin içinde baştaki tek tırnağı kaldıramazsınız....

.

Büyük konuşmamak lazımmış , Veysel Bey çözdü işi.....

Ben aşağıdaki şekilde denemiştim, olmamıştı;

            al = Cell.Value
            Cell.Value = al

Keramet, bu 2 satırın arasına Veysel Beyin yerleştirdiği;

Cell.Clear

satırı ile hücrenin formatını sıfırlamak.....

Yani; eğer Veysel Beyin kodunu kullanırsanız, hücrelerdeki metinlerin başında olan tek tırnaktan kurtulursunuz ama; kenarlıklar ve renkler dahil her türlü biçimlendirme silinir.


.

 

[YUSUF44]

O da işe yaramadı. Farklı hücreye yazdığım zaman işe yarıyor fakat aynı hücre içerisinde hiç bi değişiklik yapmıyor.

Sub Makro2()
satırno = Workbooks("new.xlsm").Worksheets(1).Cells(1048576, 1).End(xlUp).Row
For a = 2 To satırno
Workbooks("new.xlsm").Worksheets(1).Cells(a, 2) = WorksheetFunction.Clean((Workbooks("new.xlsm").Worksheets(1).Cells(a, 1)))
Next a
End Sub

Ben zaten farklı hücreden yararlanarak yapılabileceğini göstermiştim. Çok sık kullanılmayacak bir işlemse ve dosya yapısı da uygunsa bu şekilde kullanabilirsiniz.

İsteğinize uygun Makrolu çözümleri arkadaşlar önermişler.

 

[tuvons]

Sub Test() Dim Cell As Range For Each Cell In Range("A2", Cells(Rows.Count, "A").End(xlUp)) If Len(Cell.Value) >= 1 And Cell.PrefixCharacter = "'" Then al = Cell.Value Cell.Clear Cell.Value = al End If Next Cell End Sub

Teşekkür ederim @veyselemre işe yaradı yazdıkların.

 

[tuvons]

Büyük konuşmamak lazımmış , Veysel Bey çözdü işi.....

Ben aşağıdaki şekilde denemiştim, olmamıştı;

            al = Cell.Value
            Cell.Value = al

Keramet, bu 2 satırın arasına Veysel Beyin yerleştirdiği;

Cell.Clear

satırı ile hücrenin formatını sıfırlamak.....

Yani; eğer Veysel Beyin kodunu kullanırsanız, hücrelerdeki metinlerin başında olan tek tırnaktan kurtulursunuz ama; kenarlıklar ve renkler dahil her türlü biçimlendirme silinir.


.

Cell.Clear

Clear yerine nothing ve null denemiştim, aklıma gelmemişti clear. Keramet "clear"daymış