How to combine IsError with Left if a cell contains more than 255 characters?

[most]

How to combine IsError with Left if a cell contains more than 255 characters?

This example works fine as long as no cell has more than 255 characters, if it's more than 255, IsError => run-time error.

   For C = 10 To 13
     If Application.WorksheetFunction.IsError(Cells(2, C)) Then
       Debug.Print ("N/A or ERROR")
      Else
       Debug.Print Left(Cells(2, C).value, 25)
     End If
   Next C

And doing left och len on a cell with error won't compute.

 

[CountTepes]

What kind of data are you looking at?

Is it a string of numbers or a string of characters?

The reason that you are getting an error on more than 255, is because that is all an excel formula can handle. Excel will take up to 32565 characters into a cell and left(cell(2,c).text,25) will handle that with no problem

 

[most]

The data looks like this, I'm parsing the data in row 2 into a userform.combo.listbox.
So in some way I need to catch if the cell has an error and in the same time find a solution for Excel formula to only process the first x characters.

 

[CountTepes]

Try changing this

   For C = 10 To 13
     If Application.WorksheetFunction.IsError(Cells(2, C)) Then
       Debug.Print ("N/A or ERROR")
      Else
       Debug.Print Left(Cells(2, C).value, 25)
     End If
   Next C

to this

   For C = 10 To 13
     If Application.WorksheetFunction.IsError(Cells(2, C)) Then
       Debug.Print ("N/A or ERROR")
     End If
       Debug.Print Left(Cells(2, C).text, 25)
   Next C

 

[most]

Almost, needed to add ".text" to second row also. THANKS!

   For C = 1 To 6
     If Application.WorksheetFunction.IsError(Cells(2, C).Text) Then
       Debug.Print ("N/A or ERROR")
     End If
       Debug.Print Left(Cells(2, C).Text, 25)
   Next C

 

[most]

Or actually I only need to use...

For C = 1 To 6
Debug.Print Left(Cells(2, C).Text, 25)
Next C

Since "Application.WorksheetFunction.IsError(Cells(2, C).Text)" is never TRUE