Gregorio Villarreal

Prueba con este código mientras alguien más te da un código más sencillo, importante que los códigos sean exactos para que pueda conseguir el dato. Prueba y me avisas: Sub Trasladar_Registros() Dim CantCod Dim CantH Dim CantH2 Dim Cod Dim Dato Dim...

intenta agregar una columna en base de datos, allí debes hacer una formula de contar por nombre / razon social "=CONTAR.SI(B:B;B3)" y la corres hasta el final, luego en la hoja factura realiza un buscarv con el maximo de la columna donde contaste,...

Debes sombrear toda las filas donde está el cuadro y luego pegar sombreando de igual forma toda la fila, la cantidad de filas sombreadas antes de pegar vana a ser igual a 200 por la cantidad de filas que tiene el cuadro.

Julio buenas tardes intenta con esta sentencia y me comentas Sub BUSCA_E_INSERTA() Dim FILA Dim DATO FILA = 2 DATO = 0 Do Until DATO = "4.000.000.0000" DATO = Cells(FILA, 5) FILA = FILA + 1 Loop Cells(FILA, 5).Select Selection.EntireRow.Insert End Sub