primero vamos a Vista->Macros->Grabar Macro.


ahora presionen el boton de Stop que esta abajo de Libro1.

una vez aqui nos saldra una ventana como esta.

jaxx = ActiveCell.Value If VarType(jaxx) = 8 Then ActiveCell.Value = WorksheetFunction.Proper(jaxx) End If ActiveCell.Offset(1, 0).SelectOJO que esto lo hacemos habiendo puesto STOP en el paso que esta arriba.
Ahora cierran el editor y prueben escribiendo un texto en una celda y presionando el atajo de teclado que les dije anteriormente deberia salirles asi (en la figura que veran abajo escribi un texto y presione Ctrl+c y resulto)
espero les haya sido util este ejemplo.
eres un crack, me has salvado de reescribir un listado enorme de nuevo
ResponderEliminar