Cesar Jimenez Mendoza

Sub ENTRADAS() Range("A2").Select claveentrada = ActiveCell.FormulaR1C1 + 4 celdaentrada = "D" & claveentrada Range (celdaentrada) + Range("D2") Range("D2") = "" End Sub Sub SALIDAS() Range("A2").Select CLAVESALIDA = ActiveCell.FormulaR1C1 + 4...