Soru çoklu satır halindeki veriyi tek satır haline getirmek ve içindeki uygun olmayan karakterleri değiştirmek

[seckinb]

Merhaba,
bir cümle / paragrafı tek satır haline getip içinde /, : gibi karakterleri kaldırmak istiyorum.
bunun için hangi komutları kullabilirim?
teşekkürler.

örnek olarak:


Diagnostic performance of
18F-FDG-PET/CT
in vascular graft infections: general .....

 

[Hepgel]

Merhaba @seckinb
Bu şekilde deneyebilir misiniz.

KTF biçimindeki kod uygun bir module yapıştırılacak
hücreye = tekmetin ( A1:A10 ) gibi formül olarak yazılacak.
Formül'de yazılan alandaki değerler, birleştirilip tek metin haline getirilir.
Kodda, silinmek istenilen karakter listesi, sil = Array(.......) satırında
aralarına virgül koyup çift tırnak arasında yazılarak çoğaltılabilir.

Function tekmetin(alan As Range) As String
    Dim eski(), k As Byte, m As String, hcr As Variant
    sil = Array("/", "-", "?", ",")
    For Each hcr In alan: m = m & " " & hcr: Next
    For k = 0 To UBound(sil)
        m = Replace(Replace(m, sil(k), " "), "  ", " ")
    Next: m = Replace(m, ".", ". ")
    If Len(Replace(m, " ", "")) <> 0 Then: tekmetin = Mid(m, 2, Len(m) - 1)
End Function

 

[seckinb]

bir noktada hata yaptım sanırım

 

[Hepgel]

Merhaba @seckinb
Dosyanızı harici servere yükleyip linki paylaşabilir misiniz.

 

[veyselemre]

bir noktada hata yaptım sanırım

Module ismini de fonksiyon ismini de tekmetin yapmışsınız. Module farklı bir isim verin.

 

[seckinb]

İndir makale baslik

Dosyayı indir makale baslik

dosya.co

 

[Hepgel]

Ben dosyanızı göremedim,
Sayın @veyselemre yazmış sanırım,
Modüle farklı bir isim verin.

 

[seckinb]

formül olarak çalışıyor lakin tek satır haline getirmiyor.

 

[Hepgel]

Bilgisayar başına geçince bakarım.

 

[Hepgel]

Tekrardan Merhaba @seckinb

Ekteki dosyayı denermisiniz.

A1:A10 veya A1:K1 veya A1:C10 gibi aralıksız alan adresi yazarak kullanabilirsiniz.

https://dosya.co/kjj2gj9s2iw6/makale-baslik.xlsm.html

 

[seckinb]

Tekrardan Merhaba @seckinb

Ekteki dosyayı denermisiniz.

A1:A10 veya A1:K1 veya A1:C10 gibi aralıksız alan adresi yazarak kullanabilirsiniz.

https://dosya.co/kjj2gj9s2iw6/makale-baslik.xlsm.html

Elinize sağlık, çok güzel çalışıyor.

çok sayıda makaleyi yeniden adlandıracağım. çok işime yarayacak bu kod.

 

[Hepgel]

Rica Ederim,
İyi Çalışmalar.