' işaretini silmek

[thecarow]

Merhaba;
Almış olduğum bir veri sayfasında L sütunundaki hücrelere gelen rakamların başında ' işareti bulunmakta (örn.'112345657).Bu işareti bu sütundaki tüm alanlardan nasıl kaldırabilirim.
Saygılarımla.

 

[Ömer]

Merhaba,

Boş bir hücreye gidip sağ klik ile kopyala deyin, daha sonra L sütununu seçip seçili alanda herhangi bir bölümde iken, özel yapıştır seçeneğinden topla seçeneğini seçip tamam ile işlemi bitirin.

.

 

[thecarow]

Hocam ilginiz için teşekkür ederim fakat bunu makro ile bir butona tıklayarak yapmak mümkünmü

 

[Ömer]

Hocam ilginiz için teşekkür ederim fakat bunu makro ile bir butona tıklayarak yapmak mümkünmü

Bu şekilde deneyin.

Sub SayıYap()
 
    Dim sonsat As String
 
    On Error GoTo atla
    sonsat = Cells.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Address
 
    Application.ScreenUpdating = False
 
        Range(sonsat).Copy
        Columns("L:L").PasteSpecial xlPasteAll, xlAdd
 
        Range("L1").Select
        Application.CutCopyMode = False
 
    Application.ScreenUpdating = True
 
    Exit Sub
atla:
    MsgBox "Veri Yok"
 
End Sub

.

 

[thecarow]

Hocam formül sorunsuz çalışıyor.Teşekkür ederim ama benim datada bir sıkıntı var.Örn.gelen sayı '123456 olsun.Makronun çalışması için öncelikle bir kere sayıların olduğu hücrelerin içerisine bir kere tıklamak gerekiyor.Yoksa makroyu çalıştırmıyor.Bunun nedeni ne olabilir acaba.

 

[Ömer]

Merhaba,

Datanızın bir parçasını foruma ekleyebilir misiniz.

.

 

[thecarow]

Hocam dosya ektedir.

 

[Ömer]

Hocam dosya ektedir.

Aşağıdaki kodlar yeterli olacaktır. Aynı işlemi makroya gerek kalmadan ctrl h ( bul değiştir ) menüsünde de yapabilirsiniz.

Sub Degistir()
 
    Columns("L:L").Replace "'", ""
 
End Sub

.

 

[thecarow]

Hocam teşekkür ederim.Tam istediğim gibi oldu.Emeğiniz ve desteğiniz için teşekkür ederim.

 

[Ömer]

Hocam teşekkür ederim.Tam istediğim gibi oldu.Emeğiniz ve desteğiniz için teşekkür ederim.

Rica ederim. Sayıya çevirmede sorun yaşarsanız kodları birlikte kullanınız.

Sub SayıYap()
 
    Dim sonsat As String
    
    [COLOR=blue]Columns("L:L").Replace "'", ""
[/COLOR] 
    On Error GoTo atla
    sonsat = Cells.Find("*", , , , xlByRows, xlPrevious).Offset(1, 0).Address
 
    Application.ScreenUpdating = False
 
        Range(sonsat).Copy
        Columns("L:L").PasteSpecial xlPasteAll, xlAdd
 
        Range("L1").Select
        Application.CutCopyMode = False
 
    Application.ScreenUpdating = True
 
    Exit Sub
atla:
    MsgBox "Veri Yok"
 
End Sub

.

 

[MHGUL]

Aşağıdaki kodda işinizi görecektir;

Sub kesme_isaretlerini_sil()
'
' kesme_isaretlerini_sil Makro
'

'
Columns("L:L").Select
Selection.Replace What:="'~", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub