Programación de temporización Vba

SubSheet_Change privado (objetivo ByVal como rango)

si el objetivo. Columna = 1, Objetivo & lt& gt""También objetivo. Desplazamiento(0,1) = "" Luego ActiveCell. Desplazamiento(-1, 1) = Fecha

si es el objetivo. Columna = 3, Objetivo & lt& gt""También objetivo. Desplazamiento(0,1) = "" Luego ActiveCell. desplazamiento(-1,-1) = fecha

conector final