¿Cómo inserto la fecha de cada encabezado a todos los demás datos?
Necesito ponerle la fecha a los datos que no tienen fecha.
La fecha a tomar es el encabezado de cada grupo de datos.
Ejemplo:
A B C D
1 Fecha/Hora: 26/02/2016 11:15
2 Nombre: Andrés
3 Edad: 29
4 Sexo: MASC
5 Fecha/Hora: 27/03/2016 12:10
6 Nombre: Belinda
7 Edad: 24
8 Fecha/Hora: 28/04/2016 13:15
9 Nombre: Carlos
10 Profesion: Médico
ASÍ DEBERÍA QUEDAR: ( Columna "C" )
A B C D
1 Fecha/Hora: 26/02/2016 11:15
2 Nombre: Andrés 26/02/2016 11:15
3 Edad: 29 26/02/2016 11:15
4 Sexo: MASC 26/02/2016 11:15
5 Fecha/Hora: 27/03/2016 12:10
6 Nombre: Belinda 27/03/2016 12:10
7 Edad: 24 27/03/2016 12:10
8 Fecha/Hora: 28/04/2016 13:15
9 Nombre: Carlos 28/04/2016 13:15
10 Profesion: Médico 28/04/2016 13:15
Nota: No todas las personas tienen la misma cantidad de datos.
1 Respuesta
H o l a:
Suponiendo que tus datos empiezan en A1 pon la siguiente fórmula en la celda C2
=SI(A2="Fecha/Hora:","",SI(C1="",B1,C1))
Copia la fórmula hacia abajo hasta el final de tus datos.
Si lo quieres con macro, ejecuta la siguiente:
Sub Macro2()
'Por.Dante Amor
u = Range("A" & Rows.Count).End(xlUp).Row
With Range("C2:C" & Range("A" & Rows.Count).End(xlUp).Row)
.FormulaR1C1 = "=IF(RC[-2]=""Fecha/Hora:"","""",IF(R[-1]C="""",R[-1]C[-1],R[-1]C))"
.Value = .Value
End With
End Sub':) ':)
