Actividad pública reciente
Ha valorado "Buena" la respuesta
SI A1="" que en B1 ponga "1" (Con macros)
Nikelado87 este código te puede echar una mano Sub PonerFuncion() 'Selecciona la celda A1 Range("A1").Select 'se genera un bucle que correra hasta la celda 30 While ActiveCell.Row <= 30 'evalua la celda activa If ActiveCell.Value = "" Then 'introduce...