Actividad pública reciente
Ha empezado a seguir el tema Microsoft Excel
Ha valorado "Buena" la respuesta
Formato de celdas
Sub Macro1() ult = Sheets("tu_hoja ").Range("D65536").End(xlUp).Row ' D es la culumna de datos For x = 1 To ult Cells(x, 2).Select ' el 2 representa la columna B , 3=c 4=d ... Selection.NumberFormat = "d-mmm-yy" Next x End Sub