ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Arkadasca]

.

.

Merhabalar

Örnek olarak aşağıdaki videonun içerdiği transkript yazısını düz yazıya nasıl çevirebilirim?
Bunu yapabilirsem hazırlamam gereken daha bir çok video olacak...
Yardımlarınız için teşekkürler.


ÖRNEK VİDEO:
https://www.youtube.com/watch?v=P6DgJLRYnac&t=1s

ÖRNEK METİN:

Kod: Tümünü seç

bu insanların hakkında ne söylediklerini
umursamayarak ömrü 10 yıl uzattım
Charles bu kosgebi gelin önce ve Özmen
testi yapalım arkadaşlar birazdan
puanlarınızı hesaplayacak sınız 18 soru
var her soruya Evet ya da hayır diye
cevap veriyorsunuz bir iş başvurusu
reddedilirse olduğunuz düşer ve kendi
yeteneklerinden şüphe eder misiniz İki
büyük kalabalıklar sizi korkutuyor mu 3
dolabınızda çokça pek giymediğiniz
kıyafetler var mı 4 kendinizi sürekli
aynada bakar mısınız 5 yürürken ya da
bir Beklerken vücudumuzun duruşu dik mi
altı çoğu zaman insanların Sizin
hakkınızda dedikodu yaptığını düşünür
müsünüz
71 polis güvenlik size yaklaştığında
kalbiniz daha hızlı atmaya başlar mı 8
lokantaya da otobüste birinin size
Dikkatli baktığını ya da size kahkaha
attığını hissediyor musunuz dokuz
tanımadığınız mülke bilet kazansanız
yalnız gitmekten korkar mısınız oh oh
sevdiğiniz kişiye kolayca Açılabilir
misiniz oğlum bir çoğu zaman kötü
rüyalar görürsünüz 12 bir sorunla
karşılaştığınızda çoğu zaman onu Kendi
kendinize çözersiniz 13 Kara gün için
biriktirmiş olduğunuz paramız var mı
14'e Bebeğinizin sizi sevdiğini
hissediyor musunuz 15 her gün yeni bir
şey öğrenmemiz gerektiğini inanıyor
musunuz 16 satın alıp kötü çıkan bir
ürünü geri vermeye çekinir misiniz 17
çabalarımızın çoğu zaman başarısızlıkla
sonuçlanacağını hissediyor musunuz 18
insanları sık sık sizden öğüt isterler
mi Evet testimiz bitmiştir

[erseldemirel2]

Bu kod düz yazı yapıyor ama size uyarmı bilmiyorum bir bakın; a1 hücresine ama sadece a1 hücresine metni yapıştırın başka hücreleri işgal etmesin

Kod: Tümünü seç

Sub ParagrafDuzYazi()
    Dim girdiMetin As String
    Dim ciktiMetin As String   
    girdiMetin = Range("A1").Value   

    ciktiMetin = WorksheetFunction.Clean(girdiMetin)

    Range("B1").Value = ciktiMetin
End Sub


[Arkadasca]

Bu kod düz yazı yapıyor [/code]

Hocam,
İlginiz için teşekkür ederim.
Vermiş olduğunuz kodları, yukarıdaki örnek metin üzerinde denedim.
Aşağıda görmüş olduğunuz gibi bazı kelimeleri birleştiriyor.
Bunu nasıl çözebilirim?

Kod: Tümünü seç

bu insanların hakkında ne söyledikleriniumursamayarak ömrü 10 yıl uzattımCharles bu kosgebi gelin önce ve Özmentesti yapalım arkadaşlar birazdanpuanlarınızı hesaplayacak sınız 18 soruvar her soruya Evet ya da hayır diyecevap veriyorsunuz bir iş başvurusureddedilirse olduğunuz düşer ve kendiyeteneklerinden şüphe eder misiniz İkibüyük

[erseldemirel2]

Şunu deneyiniz:;

Kod: Tümünü seç

Sub test()
Dim MyCell As Range
For Each MyCell In Range("A1:A2")
MyCell.Value = Replace(MyCell.Value, Chr(10), " ")
Next MyCell
End Sub

[Arkadasca]

.

Sorun çözülmüştür.

İlginiz ve değerli yardımınız için teşekkür ederim.

Kolay gelsin.

Not: VBA Kodlardan pek fazla anlamıyorum. Burada nasıl bir kurgu yaptınız? İzah edebilir misiniz?

.

[erseldemirel2]

Rica ederim. Kısaca belirlik bir aralıkda;

Kod: Tümünü seç

MyCell.Value = Replace(MyCell.Value, Chr(10), " ")

satırı ile Hücrenin değerindeki metindeki satır başlarını (Chr(10)) boşluk karakteriyle (" ") değiştirir ve hücrenin değerini günceller.

[Arkadasca]

.

Anladım Hocam... Bilgilendirme için teşekkür ederim.

Anadolu tabiri ile "İşiniz gücünüz rast gitsin"

Sağlıklı günler dilerim.

.

[erseldemirel2]

teşekkür ederım sızede kolay gelsın