Autorelleno de celda si en otra hay contenido

[Andreu]

Hola, buenos dias,
Les paso una duda que se me plantea y que aunque se me antoja sencilla, mis desconocimientos de las macros no me permite conseguir el resultado óptimo. Se tarta de conseguir que cuando ejecute una macro, en las celdas vacías de la columna E, se incorpore un texto fijo "Material de Oficina" pero solo si en la misma fila de la columna D hay contenido. No me sirve poner una formula SI porque solo quiero que se autorrelleno al ejecutar la macro, ya que podría querer incorporar un texto distinto y el autorrelleno inmediato podría llevarme a errores.

Muchísimas gracias noir adelantado por la ayuda.

Saludos,

Material.xlsm

[Gerson Pineda]

Hola Andreu

Prueba con esta solución

With Worksheets("Punts")
    vuf = .Range("B" & .Rows.Count).End(xlUp).Row
    .Range("E3:E" & vuf).SpecialCells(4) = "Material de Oficina"
End With

 

Saludos