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

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

 

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