Copiar celda C1 y pegar como comentario en celda A1 en la hoja 1

espero se pueda; copiar el valor de celda C1 y pegarlo como un comentario en celda A1 y asi sucesivamente, C2 para A2, etc; pero si la celda C5 no tiene valor entonces que no haga ningún cambio, es decir que no copie ni pegue y que continué con la siguiente celda C6 y la pegue en A6.

Respuesta
1

Te paso la solución con esta macro

Sub proceso()
'por luismondelo
Range("c65000").End(xlUp).Offset(1, 0).Value = "end"
Range("c1").Select
Do While ActiveCell.Value <> "end"
If ActiveCell.Value <> "" Then
ActiveCell.Offset(0, -2).AddComment ActiveCell.Value
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub

recuerda finalizar la consulta

Me parece muy bien... solo que agrega una clave de pareo (end)... se puede hacer que no aparezca?

Otra pregunta: es posible que me compartas la librería de todos los comandos Visual Basic para leerlas?

gracias por todo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas