Macro para buscar y agregar texto a celdas
Tengo una lista en columna A dividida por años, lo que quisiera hacer es, que una macro reconozca cuando en una celda contiene la cifra 2010 y escriba en todas las celdas de abajo el 2010 al principio del texto de cada celda hasta encontrar un texto que contenga 2011 y cuando encuentre el 2011 escriba en todas las celdas de abajo la cifra 2011 alado del texto de cada celda y así continuamente con 2012, 2013 etc. Ejemplo
Columna A
aveo 2010
aveo rojo
aveo plata
aveo 2011
aveo rojo
aveo plata
...
El resultado que quiero seria
aveo 2010
2010 aveo rojo
2010 aveo plata
aveo 2011
2011 aveo rojo
2011 aveo plata
Columna A
aveo 2010
aveo rojo
aveo plata
aveo 2011
aveo rojo
aveo plata
...
El resultado que quiero seria
aveo 2010
2010 aveo rojo
2010 aveo plata
aveo 2011
2011 aveo rojo
2011 aveo plata
1 Respuesta
Respuesta de Enrique Bernal
1
Sub Reemplaza()
Range("H2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VALUE(RIGHT(RC[-7],4)),MID(R[-7]C,1,4)&"" ""&RC[-7])"
Range("H2").Select
Selection.Copy
k = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range("H2:H" & k).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("I2").Select
ActiveCell.FormulaR1C1 = "=IF(LEN(RC[-7])=4,RC[-8],RC[-7])"
Range("I2").Select
Selection.Copy
Range("I2:I" & k).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("A2").Select
Columns("H:I").Select
Selection.Delete Shift:=xlToLeft
End Sub
Prueba con este cambio
Range("H2").Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VALUE(RIGHT(RC[-7],4)),MID(R[-7]C,1,4)&"" ""&RC[-7])"
Range("H2").Select
Selection.Copy
k = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range("H2:H" & k).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("I2").Select
ActiveCell.FormulaR1C1 = "=IF(LEN(RC[-7])=4,RC[-8],RC[-7])"
Range("I2").Select
Selection.Copy
Range("I2:I" & k).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("A2").Select
Columns("H:I").Select
Selection.Delete Shift:=xlToLeft
End Sub
Prueba con este cambio
