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.