Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
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