Terima kasih mas KenangAgus. Alhamdulillah. Berhasil. Semoga ilmunya terus bertambah. Amiin....Maaf telat reply, soalnya email kantor bermasalah....
Tio From: [email protected] [mailto:[email protected]] Sent: 24 Januari 2019 22:14 To: [email protected] Subject: Re: [belajar-excel] Memecah kalimat panjang hasil copy paste dari pdf ke kolom tertentu di beberapa baris di worksheet Dear Tio, Bisa dicoba Cekript ini: Private Sub CommandButton1_Click() Dim n As Single Dim i As Single Dim y As Single Dim yy As Single Dim ii As Single yy = 1 n = Int(Len(TextBox1.Text) / 41) For i = 1 To n For ii = 41 + y To 41 + y + 12 If Mid(TextBox1.Text, ii, 1) = " " Then y = ii Exit For End If Next ii If i = n Then Range("A" & 2 + i) = Mid(TextBox1.Text, yy, 40) Else Range("A" & 2 + i) = Mid(TextBox1.Text, yy, y - yy) End If yy = 1 + y Next i End Sub salam KenangAgus On 1/23/2019 10:42, Tio Adi Bayu Adjie [email protected]<mailto:[email protected]> [belajar-excel] wrote: Dear Bexceller, Saya ada pertanyaan. Ada user yang copy paste teks dari pdf, sehingga kalimatnya panjang. Teks yang panjang ini ditempatkan di userform. Yang diinginkan adalah ada sebuat tombol yang bisa memecah kalimat panjang itu jadi beberapa baris dan ditempatkan di cell tertentu. Contohnya di kolom A di beberapa baris. Bagaimana mengetahui berapa baris yang dibutuhkan dari satu kalimat yang panjang dan memecahnya ? Dan bagaimana cara meletakkannya di beberapa baris di kolom tertentu ? Contoh soal terlampir. .
