Extraer el año, mes y día de una tabla a otra?
Nuevamente acudo a su valiosa ayuda mi amigo Dante,
Tengo una tabla de registros de la cual en la columna "D" de cada uno de los registros se encuentra una fecha "dd/mm/yyyy". Pero al copiar los datos a otra tabla se debe separar el año, mes y día en columnas separadas. Use el grabador de macros para obtener el código pero no logro integrarlo con la secuencia del código existente.
Sub REG_CONT() Set h1 = Sheets("REG") Set h2 = Sheets("DAT") f = j j = j + 1 n = 0 dc = "D" h2.Cells(j, "A") = h1.Cells(i, "A") h2.Cells(j, "B") = h1.Cells(i, "B") h2.Cells(j, "C") = h1.Cells(i, "C") h2.Cells(j, "G").FormulaR1C1 = "=YEAR(h1.cells(i,"D")" ' CODIGO OBTENIDO DE LA GRABADORA DE MACROS 'ActiveCell.FormulaR1C1 = "=YEAR(REG!R[-3]C[-3])" 'Range("H9").Select 'ActiveCell.FormulaR1C1 = "=MONTH(REG!R[-3]C[-4])" 'Range("I9").Select 'ActiveCell.FormulaR1C1 = "=DAY(REG!R[-3]C[-5])" 'Range("I10").Select
Respuesta de Dante Amor
2