rafaelmartinez19682

Buenos dias, Israel siento mi torpeza pero no soy capaz de ver por qué no me está corrigiendo.... Dejo filtrado las dos líneas de ejemplo donde debería cambiar los importes porque son diferentes.....los he marcado en negrita Agradezco de antemano cualquier ayuda Quedo al tanto PwQry Prevision Tesoreria v8 web.xlsm

Gracias, Israel No me está funcionando.... esto se lo he cambiado.... Limpia las filas en la hoja USUARIO después de la actualización If Sheets("USUARIO").Range("A" & j).Value <> "" Then por ► If Sheets("USUARIO").Range("A" & j) = "" Then que si no, me borraba todo.... el tema es que tengo una diferencia en los importes en dos de las lineas y no me las está corrigiendo-....a ver si mañana puedo detectarlo yo solo y si no, te remito fichero para detectar el problema.....Mil gracias....

Hola todos agradezco de antemano cualquier gestión / ayuda tengo dos pestañas BBDD listado exportado de la ERP donde pueden cambiar los importes USUARIO listado histórico de BDD El código tiene que detectar por la columna del nº factura ( columna J ) y cuando detecte el mismo nº de factura que actualice los importes de acuerdo a la exportación ( BBDD ).....que mal me explico. Lo siento. Sub CORREGIRIMPORTES2() Dim i, j As Integer j = 3 ' DONDE EMPIEZA A ESCRIBIR For i = 3 To 10000 ' DONDE EMPIEZA A BUSCAR If Range("BBDD!J" & i) = Range("USUARIO!J" & j) Then Range("BBDD!K" & i).Value = Range("USUARIO!K" & j).Value j = j + 1 End If Next While Range("USUARIO!a" & j) <> "" Range("USUARIO!a" & j) = "" Range("USUARIO!b" & j) = "" Range("USUARIO!c" & j) = "" Range("USUARIO!d" & j) = "" Range("USUARIO!e" & j) = "" Range("USUARIO!f" & j) = "" Range("USUARIO!g" & j) = "" Range("USUARIO!h" & j) = "" Range("USUARIO!i" & j) = "" Range("USUARIO!j" & j) = "" Range("USUARIO!k" & j) = "" Range("USUARIO!L" & j) = "" Range("USUARIO!M" & j) = "" Range("USUARIO!N" & j) = "" Range("USUARIO!O" & j) = "" Range("USUARIO!P" & j) = "" Range("USUARIO!Q" & j) = "" j = j + 1 Wend End Sub