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
1 Respuesta
Respuesta de Dante Amor
2
Prueba así
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") = Year(h1.Cells(i, "D"))
h2.Cells(j, "H") = Month(h1.Cells(i, "D"))
h2.Cells(j, "I") = Day(h1.Cells(i, "D"))
'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
End SubNota: No conozco tu macro, al principio tienes esto: f = j, pero al inicio j = vacío, por lo tanto f = vacío. Pero si te funciona, entonces sigue aplicándolo.
[Sal u dos
