Consulta macro para insertar fórmulas en celdas

[Jose BN]

Buenas noches!

Amig@s del foro espero se encuentren muy bien! quisiera solicitarles el apoyo con lo siguiente, tengo un problema con el siguiente código (adjunto) con este lo que se pretende es insertar la formula buscarv en las celdas de las columnas(A,B,C,D,F) en base al valor de la lectura de código de barras (TxtCodigodeBarras_) del formulario (fmrfact) y este valor es colocado a partir del rango G16 hacía abajo. El ingreso de lector del código de barras parece trabajar bien, pero al querer insertar las formulas para traer los datos de este código solamente lo hace con la fila 16, los valores de la búsqueda se obtienen de la hoja BD.

Código vba:

Sub convertir()
On Error GoTo ErrorJballadares
Application.ScreenUpdating = False
Hoja1.Activate
ufila = Cells(Rows.Count, 1).End(xlUp).Row

With Hoja1.Range("A16:A" & ufila)
    .FormulaR1C1 = "=IFERROR(VLOOKUP(RC7,BD!C1:C2,2,0),"""")"
   .Formula = .Value
End With
With Hoja1.Range("B16:B" & ufila)
    .FormulaR1C1 = "=IFERROR(VLOOKUP(RC7,BD!C1:C3,3,0),"""")"
    .Formula = .Value
End With
With Hoja1.Range("C16:C" & ufila)
   .FormulaR1C1 = "=IFERROR(VLOOKUP(RC7,BD!C1:C9,9,0),"""")"
    .Formula = .Value
End With
With Hoja1.Range("D16:D" & ufila)
    .FormulaR1C1 = "=IFERROR(VLOOKUP(RC7,BD!C1:C8,8,0),"""")"
    .Formula = .Value
End With
With Hoja1.Range("F16:F" & ufila)
    .FormulaR1C1 = "=IFERROR((RC[-1]*RC[-3]),"""")"
    .Formula = .Value
End With

ErrorJballadares:
    'MsgBox Err.Description, vbCritical, "Error"
    Exit Sub
Application.ScreenUpdating = True
End Sub

Agradezco cualquier ayuda que me puedan brindar.

Saludos
JB

SIT Market NN 1.xlsm

[Antoni]

El problema está a la hora de encontrar la última fila, debes hacerlo a partir de la columna G y no de la columna A, prueba así:

ufila = Range("G" & Rows.Count).End(xlUp).Row

 

[Jose BN]

Hace 5 horas, Antoni dijo:

ufila = Range("G" & Rows.Count).End(xlUp).Row

Muchas gracias! @Antoni

Saludos

Tema solucionado.