Macro para buscar y reemplazar dentro de una columna texto con texto de otra columna

Tengo una hoja en donde cada celda de la columna D contiene los
nombres de cada una de las hojas del libro (pueden ser hasta 100 hojas), en la
columna I tengo una fórmula que elaboré para encontrar información contenida en
esas hojas. La situación es que esa fórmula está relacionada con un sólo libro (DESREF('Dr.
Vargas2009-04-29'! G1, COINCIDIR(F74,'Dr. Vargas2009-04-29'!G2:G100,0)+1,0).
Necesito una macro que recorra la columna I y reemplace uno por uno con los
nombres contenidos en la columna D . Encontré esta fórmula por internet pero no
logro adaptarla a lo que quiero, porque sólo me permite reemplazar si el texto
es únicamente Dr. Vargas2009-04-29.

Range("I2"). Activate
For Each DATO In Range("I:I").Rows
If ActiveCell.FormulaR1C1 = "" Then Exit For
If ActiveCell.FormulaR1C1 = "Dr. Rafael Vargas2009-04-29"
Then
ActiveCell.Offset(RowOffset:=0,
ColumnOffset:=-5).Activate
ActiveCell.Copy
ActiveCell.Offset(RowOffset:=0,
ColumnOffset:=5).Activate
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False,
Transpose:=False
End If
ActiveCell.Offset(RowOffset:=1,
ColumnOffset:=0).Activate
Next DATO
Application.CutCopyMode = False
Range("I1").Activate
End Sub

2 respuestas

Respuesta
2

Te envío una macro para reemplazar la columna I con tu fórmula
'***Macro***
Sub llenaformula()
'Por.Dam
ufil = ActiveCell.SpecialCells(xlLastCell).Row
a = "(DESREF('"
b = "'!G1,COINCIDIR(F74,'"
c = "'!G2:G100,0)+1,0)"
For n = 2 To ufil
Cells(n, 9).Value = a & Cells(n, 4) & b & Cells(n, 4) & c
Next
End Sub
'***Macro***
Te comento lo siguiente:
1. Tienes que completar, en la macro, la parte que dice:
a = "(DESREF('"
Con la parte que falta de la fórmula, porque en tu pregunta no viene completa, supongo que la fórmula deberá iniciar con =
2. La macro se ejecutará a partir de la línea 2, hasta la última línea que tengas.
3. Existe un pequeño detalle que no encontré como solucionarlo desde la macro, pero es fácil hacerlo manualmente.
Después de ejecutar la marco, no se ejecutarán las fórmulas, es decir, te mostrará la fórmula y no el resultado de la fórmula.
4. Para activar el resultado de las fórmulas, selecciona la columna I, desde la fila 2 y hasta la última fila que tengas de datos.
5. Selecciona del menú: Edición / Reemplazar, en el campo buscar escribe el símbolo = y en el campo reemplazar escribe también = presiona reemplazar todos.
Listo, las fórmulas presentarán los resultados.

Hola experto. La fórmula completa es:

=DESREF('Dr. Vargas2009-04-29'!$G$1,COINCIDIR(F2,'Dr. Vargas2009-04-29'!$G$2:$G$100,0)+1,0), y esta fórmula se encuentra repetida en toda la columna I, lo que deseo que realice la macro es que cambie el texto de la fórmula

Dr. Vargas2009-04-29 fila por fila por el contenido en la columna D:

Ejemplo: D2 = Dr. Vargas2009-05-20 D3 = Dr. Vargas2009-06-30 y así sucesivamente hasta la última fila

Marian

Eso hace la macro, sólo que no enviaste la fórmula completa desde un principio.

Ejecuta la macro y te va a corregir las fórmulas.

'***Macro***
Sub llenaformula()
'Por.Dam
ufil = ActiveCell.SpecialCells(xlLastCell).Row
a = "=DESREF('"
b = "'!$G$1,COINCIDIR(F2,'"
c = "'!$G$2:$G$100,0)+1,0)"
For n = 2 To ufil
Cells(n, 9).Value = a & Cells(n, 4) & b & Cells(n, 4) & c
Next
End Sub
'***Macro***

Saludos. Dam

Respuesta
1

Mándame el archivo para verlo de cerca y poder ayudarte. Explícamelo en el excel

[email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar rango de celdas de una hoja a otra de acuerdo a condicional

A ver si pueden brindarme una ayuda. He desarrollado una macro que inserta un rango de celdas desde una hoja (01) a otra (02) Asi: Sub CopiarRangoActual() Sheets("01").Select Range("A1").CurrentRegion.Copy Sheets("02").Select...
2 respuestas

Macro para buscar una lista de nombres en una lista

Necesito por favor una ayuda para generar una macro en Excel que me permita identificar en que celdas de una determinada columna se encuentra cada nombre de un listado predefinido. Vale la pena aclarar que en cada celda de esa columna hay un texto...
1 respuesta

Macro para colocar datos según cabecera de columna y fila ingresada.

Elabore un UserForm donde ingreso datos a una hoja de excel seleccionando los datos de un combobox y se va ingresando uno debajo de otro. Pero al tercer ingreso se empieza a grabar uno arriba de otro. Las columnas no siempre se llenan todas y...
1 respuesta

Copiar rango a otra hoja si una celda es mayor a 0

Busco una macro en excel que me ayude con lo siguiente: Tengo en el rango B9:N38 de la hoja 1 una tabla de datos. En la columna B de tal tabla hay valores que van a partir de 0. Deseo copiar de la hoja 1 a la hoja 2 aquellos "renglones" que en la...
1 respuesta

¿Cómo quitar espacios en blanco de todas las celdas de una hoja?

Solicitando su apoyo para tener una macro o alguna manera para resolver el siguiente problema, trabajo con Bases de Datos y algunas veces en algunas de ellas, vienen campos con un dato, nombre, numero que tiene espacios de más al final, para resolver...
2 respuestas

Buscar cuantas secuencias se repiten en tablas excel

Porque me estoy volviendo loco y no consigo encontrar la fórmula que me pueda ayudar he probado, frecuencias, contarsi, etc etc Tengo 1 tabla de 6 elementos y una secuencia de 3 elementos A,B,C,D,E,F G,H,I 1,3,5,8,9,7 5,4,2 2,3,9,7,5,4 4,9,5,6,9,0...
1 respuesta

Copiar filas a hoja resumen

Necesito una macro o formula que copie las filas rellenas, incluido el formato a partir de la cuarta fila de al menos 30 hojas distintas en una hoja llamada resumen ocupando siempre la primera fila vacía disponible y que se ejecute desde un botón o...
1 respuesta

Buscar el valor de una celda en una fila de otra hoja, avanzar 7 celdas y copiar en otra celda

Para todos. Me podrían, por favor, ¿Ayudar a solucionar lo siguiente? Debo buscar en la fila 1 de la Hoja2 el valor contenido en E2 de la Hoja1. Una vez hallado, avanzar 7 celdas a la derecha sobre la misma fila y el valor de esa celda copiarlo en O2...
1 respuesta

Ordenar por dos criterios

Necesito que me ayuden a construir una macro que dependa de dos criterios, Ordena primero de n.v,,,, luego de la A a la Z,,, sube o baja la información de toda la fila. Yo lo elabore con la grabadora pero a veces no me funciona. Les dejo el código:...
1 respuesta

Macro para copiar y pegar formulas

Me pueden ayudar con una macro que me copie la celda inicial a las otras celdas siguientes, teniendo en cuenta que solo debe llegar Hasta la ultima celda activa de la columna adyacente Tomar en cuenta que el archivo que siempre bajo es de distinto...
1 respuesta