Texto en Macro de Excel

[Edwin74]

Hola.
Gracias por responder anteriormente a mis dudas

Bueno este es mi codigo:
__________________________________________________ _______________
For i = 1 To fila1
If avd = Trim(Sheet1.Cells(i, 4).Value) Then
Sum = Sum + 1

Sheet4.Cells(18 + Sum * 2, 2).Value = 510277
kontakt = Sheet1.Cells(i, 5).Value
texto = Sheet1.Cells(i, 10).Value
texto = Split(texto, -1, 1)
For j = 0 To UBound(texto)

texto(j) = Left(texto(j), 50)
Next

ordrebesk1 = texto

Sheet4.Cells(18 + Sum * 2, 3).Value = ordrebesk1

__________________________________________________ ______________

todo va bien asta que remplazo la ultima fila por lo siguiente

Sheet4.Cells(18 + Sum * 2, 3).Value = ordrebesk1 & ". Bestilt av " & kontakt

No entiendo porque no puedo sumar mas texto al texto


Saludos a todos.

[alexanco]

Pregunta..
Sabes que una celda en excel tiene solo cierta capacidad de caracteres, creo que son 255, es decir si estás colocando más de estos..no podrá tomarlos.
Verifica primero esto. Sino intenta compilar el programa con F8 y antes de la ultima línea mete esa concatenación en una variable "a ver si toma el valor" y luego haz referencia en la hoja y celda a esta variable.
Cualquier cosa avisas.