Saltar al contenido

Ingreso de formula por macro

publicado

Hola buenos días.

Tengo un archivo con la que trabajo constantemente, una hoja donde ingreso muchos datos de otra hoja.

Con una formula compuesta me funciona muy bien, el problema es que tengo que estar borrando los datos para actualizarlo con nuevos. y tengo que estar pegando esta formula cada vez que actualizo.

Con la macro quiero lograr que esta formula se pegue unicamente en donde halla datos.

Trate de hacer la macro para que me ponga dicha formula (en inglés)

 

Espero me puedan ayudar.

Gracias

Mariano

 

MAcro buscar indirecto.xlsm

Featured Replies

publicado
Sub FormulaDocs()
Set ws = ThisWorkbook.Sheets("Conte")
Set Rng = ws.Range("U17:U" & ws.Cells(ws.Rows.Count, "U").End(xlUp).Row)
For Each CELL In Rng
   If CELL.Value <> "" Then
      F = CELL.Row
      CELL.Offset(0, -5).FormulaLocal = "=SI.ERROR(SI(ESNUMERO(HALLAR($U" & F & ";$G" & F & "));BUSCARV($V$2&V$3&$U" & F & ";INDIRECTO(""'""&Z$2&""'!""&""G3:J10"");3;FALSO););"""")"
   End If
Next CELL
End Sub

 

publicado
  • Autor
hace 2 horas, Antoni dijo:
Sub FormulaDocs()
Set ws = ThisWorkbook.Sheets("Conte")
Set Rng = ws.Range("U17:U" & ws.Cells(ws.Rows.Count, "U").End(xlUp).Row)
For Each CELL In Rng
   If CELL.Value <> "" Then
      F = CELL.Row
      CELL.Offset(0, -5).FormulaLocal = "=SI.ERROR(SI(ESNUMERO(HALLAR($U" & F & ";$G" & F & "));BUSCARV($V$2&V$3&$U" & F & ";INDIRECTO(""'""&Z$2&""'!""&""G3:J10"");3;FALSO););"""")"
   End If
Next CELL
End Sub

 

Antoni.

Agradezco mucho tu atención y gran respuesta. Justo lo que necesito.

voy analizar la estructura.

Para entender mejor y utilizar en otros archivos.

 

Saludos

Mariano

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.