macro to character truncate

inho78 · #1 (**permalink**) 03-03-05, 16:26

Hey guys,
I have a data in column "L" if type general that ppoulates with long strings...basically a paragraph in each cell. How do i truncate each cell so that it limits it to 2048 characters, starting from row 2 to the end of the column with data......anything passed 2048 would jsut cutt off...

inho78 · #2 (**permalink**) 03-03-05, 16:35

nvm got it to work guys. If you guys need help on this here is code i used

Sub DescTruncate()
Dim LastRow As Long

LastRow = Cells(Rows.Count, 12).End(xlUp).Row
For i = 2 To LastRow
Cells(3, i).Formula = Left(Cells(12, i), 2048)
Next i
End Sub

DavidCoutts · #3 (**permalink**) 03-04-05, 04:32

a little change here for you

Code:

Sub DescTruncate2()
    Dim LastRow As Long
    Dim rngNew As Range
    
    LastRow = Cells(Rows.Count, 12).End(xlUp).Row
    Set rngNew = Range(Cells(1, 3), Cells(LastRow, 3))
    
    rngNew.FormulaR1C1 = "=LEFT(RC[9],2048)"
    rngNew.Formula = rngNew.Value
    
    Set rngNew = Nothing
End Sub

you may find this quicker if you have lots to do see what you think
Dave

Internet Services

Web Development

Digital Marketing

Consumer Tech