Option Explicit Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name <> "enlace" Then Exit Sub On Error GoTo Fin Application.EnableEvents = False ' 67 C ---------------------------- Copiar Sh, Target, "A1", "B4" Copiar Sh, Target, "A2", "C6" Copiar Sh, Target, "A3", "C7" Copiar Sh, Target, "A4", "C8" Copiar Sh, Target, "A5", "C9" Copiar Sh, Target, "A6", "C10" Copiar Sh, Target, "A7", "C11" Copiar Sh, Target, "A8", "C12" Copiar Sh, Target, "A9", "C13" Copiar Sh, Target, "A10", "C14" Copiar Sh, Target, "A11", "C15" Copiar Sh, Target, "A12", "C16" Copiar Sh, Target, "A13", "C17" Copiar Sh, Target, "A14", "C18" Copiar Sh, Target, "A15", "C19" Copiar Sh, Target, "A16", "C20" Copiar Sh, Target, "A17", "C21" Copiar Sh, Target, "A18", "C22" Copiar Sh, Target, "A19", "C23" Copiar Sh, Target, "A20", "C24" '67 W Copiar Sh, Target, "B1", "D4" Copiar Sh, Target, "B2", "E6" Copiar Sh, Target, "B3", "E7" Copiar Sh, Target, "B4", "E8" Copiar Sh, Target, "B5", "E9" Copiar Sh, Target, "B6", "E10" Copiar Sh, Target, "B7", "E11" Copiar Sh, Target, "B8", "E12" Copiar Sh, Target, "B9", "E13" Copiar Sh, Target, "B10", "E14" Copiar Sh, Target, "B11", "E15" Copiar Sh, Target, "B12", "E16" Copiar Sh, Target, "B13", "E17" Copiar Sh, Target, "B14", "E18" Copiar Sh, Target, "B15", "E19" Copiar Sh, Target, "B16", "E20" Copiar Sh, Target, "B17", "E21" '67 Y Copiar Sh, Target, "C1", "F4" Copiar Sh, Target, "C2", "G6" Copiar Sh, Target, "C3", "G7" Copiar Sh, Target, "C4", "G8" Copiar Sh, Target, "C5", "G9" Copiar Sh, Target, "C6", "G10" Copiar Sh, Target, "C7", "G11" Copiar Sh, Target, "C8", "G12" Copiar Sh, Target, "C9", "G13" Copiar Sh, Target, "C10", "G14" Copiar Sh, Target, "C11", "G15" Copiar Sh, Target, "C12", "G16" Copiar Sh, Target, "C13", "G17" Copiar Sh, Target, "C14", "G18" Copiar Sh, Target, "C15", "G19" '113 C --------------------------- Copiar Sh, Target, "D1", "K4" Copiar Sh, Target, "D2", "L6" Copiar Sh, Target, "D3", "L7" Copiar Sh, Target, "D4", "L8" Copiar Sh, Target, "D5", "L9" Copiar Sh, Target, "D6", "L10" Copiar Sh, Target, "D7", "L11" Copiar Sh, Target, "D8", "L12" Copiar Sh, Target, "D9", "L13" Copiar Sh, Target, "D10", "L14" Copiar Sh, Target, "D11", "L15" Copiar Sh, Target, "D12", "L16" Copiar Sh, Target, "D13", "L17" Copiar Sh, Target, "D14", "L18" Copiar Sh, Target, "D15", "L19" Copiar Sh, Target, "D16", "L20" Copiar Sh, Target, "D17", "L21" Copiar Sh, Target, "D18", "L22" Copiar Sh, Target, "D19", "L23" Copiar Sh, Target, "D20", "L24" '113 W Copiar Sh, Target, "E1", "M4" Copiar Sh, Target, "E2", "N6" Copiar Sh, Target, "E3", "N7" Copiar Sh, Target, "E4", "N8" Copiar Sh, Target, "E5", "N9" Copiar Sh, Target, "E6", "N10" Copiar Sh, Target, "E7", "N11" Copiar Sh, Target, "E8", "N12" Copiar Sh, Target, "E9", "N13" Copiar Sh, Target, "E10", "N14" Copiar Sh, Target, "E11", "N15" Copiar Sh, Target, "E12", "N16" Copiar Sh, Target, "E13", "N17" Copiar Sh, Target, "E14", "N18" Copiar Sh, Target, "E15", "N19" Copiar Sh, Target, "E16", "N20" Copiar Sh, Target, "E17", "N21" '113 Y Copiar Sh, Target, "F1", "O4" Copiar Sh, Target, "F2", "P6" Copiar Sh, Target, "F3", "P7" Copiar Sh, Target, "F4", "P8" Copiar Sh, Target, "F5", "P9" Copiar Sh, Target, "F6", "P10" Copiar Sh, Target, "F7", "P11" Copiar Sh, Target, "F8", "P12" Copiar Sh, Target, "F9", "P13" Copiar Sh, Target, "F10", "P14" Copiar Sh, Target, "F11", "P15" Copiar Sh, Target, "F12", "P16" Copiar Sh, Target, "F13", "P17" Copiar Sh, Target, "F14", "P18" Copiar Sh, Target, "F15", "P19" '743 C --------------------------------- Copiar Sh, Target, "G1", "T4" Copiar Sh, Target, "G2", "U6" Copiar Sh, Target, "G3", "U7" Copiar Sh, Target, "G4", "U8" Copiar Sh, Target, "G5", "U9" Copiar Sh, Target, "G6", "U10" Copiar Sh, Target, "G7", "U11" Copiar Sh, Target, "G8", "U12" Copiar Sh, Target, "G9", "U13" Copiar Sh, Target, "G10", "U14" Copiar Sh, Target, "G11", "U15" Copiar Sh, Target, "G12", "U16" Copiar Sh, Target, "G13", "U17" Copiar Sh, Target, "G14", "U18" Copiar Sh, Target, "G15", "U19" Copiar Sh, Target, "G16", "U20" Copiar Sh, Target, "G17", "U21" Copiar Sh, Target, "G18", "U22" Copiar Sh, Target, "G19", "U23" Copiar Sh, Target, "G20", "U24" '743 W Copiar Sh, Target, "H1", "V4" Copiar Sh, Target, "H2", "W6" Copiar Sh, Target, "H3", "W7" Copiar Sh, Target, "H4", "W8" Copiar Sh, Target, "H5", "W9" Copiar Sh, Target, "H6", "W10" Copiar Sh, Target, "H7", "W11" Copiar Sh, Target, "H8", "W12" Copiar Sh, Target, "H9", "W13" Copiar Sh, Target, "H10", "W14" Copiar Sh, Target, "H11", "W15" Copiar Sh, Target, "H12", "W16" Copiar Sh, Target, "H13", "W17" Copiar Sh, Target, "H14", "W18" Copiar Sh, Target, "H15", "W19" Copiar Sh, Target, "H16", "W20" Copiar Sh, Target, "H17", "W21" '743 Y Copiar Sh, Target, "I1", "X4" Copiar Sh, Target, "I2", "Y6" Copiar Sh, Target, "I3", "Y7" Copiar Sh, Target, "I4", "Y8" Copiar Sh, Target, "I5", "Y9" Copiar Sh, Target, "I6", "Y10" Copiar Sh, Target, "I7", "Y11" Copiar Sh, Target, "I8", "Y12" Copiar Sh, Target, "I9", "Y13" Copiar Sh, Target, "I10", "Y14" Copiar Sh, Target, "I11", "Y15" Copiar Sh, Target, "I12", "Y16" Copiar Sh, Target, "I13", "Y17" Copiar Sh, Target, "I14", "Y18" Copiar Sh, Target, "I15", "Y19" '041 C ---------------------------- Copiar Sh, Target, "J1", "AC4" Copiar Sh, Target, "J2", "AD6" Copiar Sh, Target, "J3", "AD7" Copiar Sh, Target, "J4", "AD8" Copiar Sh, Target, "J5", "AD9" Copiar Sh, Target, "J6", "AD10" Copiar Sh, Target, "J7", "AD11" Copiar Sh, Target, "J8", "AD12" Copiar Sh, Target, "J9", "AD13" Copiar Sh, Target, "J10", "AD14" Copiar Sh, Target, "J11", "AD15" Copiar Sh, Target, "J12", "AD16" Copiar Sh, Target, "J13", "AD17" Copiar Sh, Target, "J14", "AD18" Copiar Sh, Target, "J15", "AD19" Copiar Sh, Target, "J16", "AD20" Copiar Sh, Target, "J17", "AD21" Copiar Sh, Target, "J18", "AD22" Copiar Sh, Target, "J19", "AD23" Copiar Sh, Target, "J20", "AD24" '41 W Copiar Sh, Target, "K1", "AE4" Copiar Sh, Target, "K2", "AF6" Copiar Sh, Target, "K3", "AF7" Copiar Sh, Target, "K4", "AF8" Copiar Sh, Target, "K5", "AF9" Copiar Sh, Target, "K6", "AF10" Copiar Sh, Target, "K7", "AF11" Copiar Sh, Target, "K8", "AF12" Copiar Sh, Target, "K9", "AF13" Copiar Sh, Target, "K10", "AF14" Copiar Sh, Target, "K11", "AF15" Copiar Sh, Target, "K12", "AF16" Copiar Sh, Target, "K13", "AF17" Copiar Sh, Target, "K14", "AF18" Copiar Sh, Target, "K15", "AF19" Copiar Sh, Target, "K16", "AF20" Copiar Sh, Target, "K17", "AF21" '41 Y Copiar Sh, Target, "L1", "AG4" Copiar Sh, Target, "L2", "AH6" Copiar Sh, Target, "L3", "AH7" Copiar Sh, Target, "L4", "AH8" Copiar Sh, Target, "L5", "AH9" Copiar Sh, Target, "L6", "AH10" Copiar Sh, Target, "L7", "AH11" Copiar Sh, Target, "L8", "AH12" Copiar Sh, Target, "L9", "AH13" Copiar Sh, Target, "L10", "AH14" Copiar Sh, Target, "L11", "AH15" Copiar Sh, Target, "L12", "AH16" Copiar Sh, Target, "L13", "AH17" Copiar Sh, Target, "L14", "AH18" Copiar Sh, Target, "L15", "AH19" '193 C ----------------------------- Copiar Sh, Target, "M1", "AL4" Copiar Sh, Target, "M2", "AM6" Copiar Sh, Target, "M3", "AM7" Copiar Sh, Target, "M4", "AM8" Copiar Sh, Target, "M5", "AM9" Copiar Sh, Target, "M6", "AM10" Copiar Sh, Target, "M7", "AM11" Copiar Sh, Target, "M8", "AM12" Copiar Sh, Target, "M9", "AM13" Copiar Sh, Target, "M10", "AM14" Copiar Sh, Target, "M11", "AM15" Copiar Sh, Target, "M12", "AM16" Copiar Sh, Target, "M13", "AM17" Copiar Sh, Target, "M14", "AM18" Copiar Sh, Target, "M15", "AM19" Copiar Sh, Target, "M16", "AM20" Copiar Sh, Target, "M17", "AM21" Copiar Sh, Target, "M18", "AM22" Copiar Sh, Target, "M19", "AM23" Copiar Sh, Target, "M20", "AM24" '193 W Copiar Sh, Target, "N1", "AN4" Copiar Sh, Target, "N2", "AO6" Copiar Sh, Target, "N3", "AO7" Copiar Sh, Target, "N4", "AO8" Copiar Sh, Target, "N5", "AO9" Copiar Sh, Target, "N6", "AO10" Copiar Sh, Target, "N7", "AO11" Copiar Sh, Target, "N8", "AO12" Copiar Sh, Target, "N9", "AO13" Copiar Sh, Target, "N10", "AO14" Copiar Sh, Target, "N11", "AO15" Copiar Sh, Target, "N12", "AO16" Copiar Sh, Target, "N13", "AO17" Copiar Sh, Target, "N14", "AO18" Copiar Sh, Target, "N15", "AO19" Copiar Sh, Target, "N16", "AO20" Copiar Sh, Target, "N17", "AO21" '193 Y Copiar Sh, Target, "O1", "AP4" Copiar Sh, Target, "O2", "AQ6" Copiar Sh, Target, "O3", "AQ7" Copiar Sh, Target, "O4", "AQ8" Copiar Sh, Target, "O5", "AQ9" Copiar Sh, Target, "O6", "AQ10" Copiar Sh, Target, "O7", "AQ11" Copiar Sh, Target, "O8", "AQ12" Copiar Sh, Target, "O9", "AQ13" Copiar Sh, Target, "O10", "AQ14" Copiar Sh, Target, "O11", "AQ15" Copiar Sh, Target, "O12", "AQ16" Copiar Sh, Target, "O13", "AQ17" Copiar Sh, Target, "O14", "AQ18" Copiar Sh, Target, "O15", "AQ19" Fin: Application.EnableEvents = True End Sub Private Sub Copiar(ByVal Sh As Object, ByVal Target As Range, _ ByVal origen As String, ByVal destino As String) If Not Intersect(Target, Sh.Range(origen)) Is Nothing Then Sheets("peticion").Range(destino).Value = Sh.Range(origen).Value End If End Sub