[help] VBA Replace in Text won't finish at the end of text

maulana

New Member
Joined
Sep 16, 2009
Messages
20
Hi,
i want try to change some character in one cell with replace functions in VBA to another cell.

every rows seem ok but at 13th row.
i miss full code. not fully code can't be replace and severed at the end of code.
Code:
Dim p As String
 
 Set a = ActiveWorkbook.Sheets("temp")
 i = 1
 
 While a.Cells(i, 5).Value <> ""
     p = a.Cells(i, 5).Value
     
     p = Replace(p, "+", "|+|", vbTextCompare)
     p = Replace(p, "-", "|-", vbTextCompare)
     p = Replace(p, "(", "|(|", vbTextCompare)
     p = Replace(p, ")", "|)|", vbTextCompare)
     p = Replace(p, "!", "!|", vbTextCompare)
     p = Replace(p, ";", "|;|", vbTextCompare)
     p = Replace(p, "&", "|&|", vbTextCompare)
     p = Replace(p, "||", "|", vbTextCompare)
     a.Cells(i, 6).Value = "'" & p
     i = i + 1
 Wend
 
 
 End Sub
here is my workbooks.
http://www.filehosting.org/<wbr>file/details/160732/max_text.<wbr>xls
 

Some videos you may like

Excel Facts

Will the fill handle fill 1, 2, 3?
Yes! Type 1 in a cell. Hold down Ctrl while you drag the fill handle.

John_w

MrExcel MVP
Joined
Oct 15, 2007
Messages
6,370
The maximum number of characters in a cell is 32767. Your 13th row result is longer than that so it truncates. To put the remaining characters in the next column, replace:
Code:
     a.Cells(i, 6).Value = "'" & p
with:
Code:
        a.Cells(i, 6).Value = "'" & Left(p, 32766)
        If Len(p) > 32766 Then
            a.Cells(i, 7).Value = "'" & Mid(p, 32767, Len(p))
        End If
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,534
Messages
5,511,888
Members
408,867
Latest member
Ranjeet yamgekar

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top