Visual Basic para Aplicaciones - cuando la celda se llene pasar a la de abajo

necesito ayuda espero alguien pueda hecharme la mano
Tengo una HOja que utilizo para jalar datos de otra mediante la funcion BUSCARV pero hay ocasiones en que la descripcion es un poco larga y no caben en la celda
Quisiera que mediante una macro la descripcion continue en la celda de abajo y asi sucesivamente

El rango donde quiero esto es de la "C19:C35"

gracias por anticipado

Hola, en ese caso podrías utilizar una macro que ajuste el texto en la celda. Puedes utilizar el grabador de macros para guiarte...

Creo que cuando tines mas de 255 caracteres ni siquiera con ajustar te entra dentro de la celda, al menos no se puede mostrar a la hora de verlo ni de imprimir.

Lo que pides es que cuando tenga una determianda longitud lo corte y continue en la siguiente celda verdad?

yo tenia un problema parecido para pasar datos de excel a un programa de mediciones , pero lo que tenia que pasar eran numeros y lo que hice fue limitar cada cierto tamaño poinendolo en la celda inferior, pero para texto no se tendria que revisarse creo.

Si estas interesado puedo mirar el codigo que utilice y te lo mando.

Si te sirve de algo (tiene que ver con lo que dice petter)

Worksheets("Hoja1").Range("C:C").Columns.AutoFit,

te autoajusta al tamaño del texto

Hola! no entendi cuantos caracteres queres poner en cada celda. El máxino es 255, y es el valor que tome en el codigo siguiente, que hace el trabajo.

Private Sub Command1_Click()
Dim miTexto as String
Dim miEscrito as String
Dim i as Integer
i= 256 'ojo al valor, ES 256

miTexto= TextBox1.Text
miEscrito= Mid(miTexto, 1, 255) 'toma los primeros 255 caracteres
Do Until miEscrito = " " 'hasta que no haya mas que escribir
Range("C19"):Select 'se para en la primera celda
If Range("C19").Value = " " Then ' si esta vacia
Range("C19"). Select ' escribirá en ella
Else
Range("C19").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Select 'busca la primera vacia
End If

ActiveCell.Value= miEscrito 'escribe 255 caracteres
miEscrito=Mid(miTexto, i, 255) 'selecciona los 255 siguientes
i=i+255 'se mueve otros 255 caracteres
Loop 'vuelve a recorrer el bucle, hasta que se termine el texto
End Sub

Buena suerte