problema con comentarios de excel

"Eduardo" escribió
Mostrar la cita

soy un desarrollador que esta creando una BD, todos los datos que hay que
migrar estan en excel, pero con un problema, una de las filas importantes
esta como comentario... tengo que pasarla a columnas, y son mas de 3000
entradas, explico mejor, las columnas son de compra de productos... estan
los
precios y los proveedores. pero la descripcion de los productos esta como
comentario, ( y de varias filas cada comentario), para lavarme las manos,
este error se genero antes que llegara a la empresa, nadie sabe como puedo
sacarme de encima el tedio de hacerlo manualmente 1 a 1????

Hola Eduardo,

Prueba el siguiente código,

He supuesto que en la columna A están las celdas con los comentarios, y que
vas a situar el texto del comentario en la columna B.
También he considerado que no puede haber comentarios en celdas vacías. pero
sí puede haber celdas llenas sin comentario.

Si necesitas cualquier aclaración, cometas.

Un saludo,
Juan

En un módulo estándar

Inicio Código
Sub LeerComentarios()
Dim i As Long
i = 1
Do While Range("A" & i) <> ""
On Error Resume Next
Range("B" & i) = Replace(Range("A" & i).Comment.Text, Chr(10), " ")
On Error GoTo 0
i = i + 1
Loop

End Sub
Fin Código

ok... voy a hacer la prueba...

cambie los rangos, pero no funciona... estoy tratando de ejecutarla como macros

"Eduardo" escribió
Mostrar la cita

cambie los rangos, pero no funciona... estoy tratando de ejecutarla como
macros

Hola Eduardo,

¿Que es lo que no funciona? Aparece algo, comenta las líneas de on error
para ver cual es el error.
Transcribe tu código tal cual lo has escrito.

Un saludo,
Juan

el problema es que no da ningun error... sinplemente no funciona