nokta ve uzantı silinsin.

[k0081]

Merhaba arkadaşlar;

A2 hücresinden başlayarak A80 e kadar giden dosya isimleri mevcut.

01255.dwg
01256.dwg
01257.dwg
01258.dwg
01259.dwg
012510.dwg
012511.dwg
012512.dwg
012513.dwg
....

gibi.. burda yapmak istediğim .dwg ibaresinin silinmesi.. sadece dosya isminin kalması.. uzantısının silinmesi..

yardımcı arkadaşa şimdiden teşekkürler..

 

[talebeyim]

Sütunu seçin

CTRL + H

Aranan değer : .dwg
Yeni değer :



Hayırlı günler.

 

[Murat OSMA]

Metni Sütunlara Dönüştür ile yada şu kodla da yapabilirsiniz;

Sub Emre()
    Dim i As Integer
    For i = 1 To Range("A1").CurrentRegion.Rows.Count
        Cells(i, 2) = Split(Cells(i, 1), ".", -1)
    Next i
    i = Empty
End Sub

 

[talebeyim]

Murat bey metni sütunlara dönüştürle nasıl yapılabilir, ben yapmaya calıstım ama noktadan önceki karakter sayısı standart olmadığı için olmadı ?

 

[k0081]

Metni Sütunlara Dönüştür ile yada şu kodla da yapabilirsiniz;

Sub Emre()
    Dim i As Integer
    For i = 1 To Range("A1").CurrentRegion.Rows.Count
        Cells(i, 2) = Split(Cells(i, 1), ".", -1)
    Next i
    i = Empty
End Sub

hocam çok teşekkürler..tamamdır..

 

[Murat OSMA]

A sütununu seçin, veri menüsünden metni sütunlara dönüştürü seçin, gelen pencereden sınırlandırılmışı seçin ve ileriye basın, diğer seçeneğini seçin ve kutucuğa . (nokta) koyun, önizlemede ayrıldığını göreceksiniz. Sonra ileriye basın ve sütun veri biçimini metin olarak ayarlayın son olarak Son butonuna basın...

 

[Murat OSMA]

hocam çok teşekkürler..tamamdır..

Rica ederim, iyi günler...

 

[talebeyim]

Evet murat bey ben bu diğer seçeneğini bilmiyordum, teşekkür ederim.

 

[Murat OSMA]

Rica ederim, iyi günler...