ANCHO COLUMNA SEGUN VALOR CELDA

este codigo lo que hace es definir el ancho de la celda por el valor que contenga una celda.




code:

'hacer esto hasta que la celda activa de arriba sea vacia
Do Until ActiveCell.Offset(-1, 0).Value = ""
' para la seleccion de celda ancho= al valor de la celda de arriba
Selection.ColumnWidth = ActiveCell.Offset(-1, 0).Value
' desplazar a la derecha
ActiveCell.Offset(0, 1).Select

'repitis
Loop