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

Hola a todos Agradezco de antemano cualquier ayuda / gestión. Tengo un listado de facturas donde con fórmula detecto si ha sido COBRADA o no. Estoy buscando código que cuando encuentra la palabra COBRADA en la columna L, me borre la fila. Me he quedado en el IF, el Delete ya no sé como hacerlo. Reitero las gracias ==================================== Sub BORRAR_COBRADAS() Dim i As Integer For i = 2 To 8000 If Range("FACTURAS!L" & i) = "COBRADA" Then Selection.EntireRow.Delete End Sub ==================================

Hola Israel First class! Funciona perfecto. Muchísimas gracias

Hola Agradezco de antemano cualquier gestión.... Tengo un código que le digo que las facturas nuevas me las añado en otro Listado.. están identificadas con la palabra AÑADIR....el problema es que no sé como decirle que me las empiece a escribir en la última línea del listado existente en el ejemplo.: manualmente le digo que me las empiece a poner a partir de la fila 3067... Sub AÑADIRNUEVAS() Application.Calculation = xlManual Dim i, j As Integer j = 3067 'DONDE EMPIEZA A ESCRIBIR For i = 2 To 8000 ' DONDE EMPIEZA A BUSCAR If Range("FACTURAS!L" & i) = "AÑADIR" Then Range("USUARIO!a" & j) = Range("FACTURAS!a" & i) Range("USUARIO!b" & j) = Range("FACTURAS!B" & i) Range("USUARIO!c" & j) = Range("FACTURAS!C" & i) Range("USUARIO!d" & j) = Range("FACTURAS!D" & i) Range("USUARIO!e" & j) = Range("FACTURAS!E" & i) Range("USUARIO!f" & j) = Range("FACTURAS!F" & i) Range("USUARIO!g" & j) = Range("FACTURAS!G" & i) Range("USUARIO!h" & j) = Range("FACTURAS!H" & i) Range("USUARIO!i" & j) = Range("FACTURAS!I" & i) Range("USUARIO!j" & j) = Range("FACTURAS!J" & i) 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) = "" j = j + 1 Wend Application.Calculation = xlAutomatic End Sub

Muchas gracias, JSDJSD funciona perfectamente, muchas gracias...voy a abusar y el tema es que no soy capaz de interpretar tu código y no puedo aplicarlo a mi fichero... te podría pedir el código de tal forma que busque por la columna del Nºdel expediente y que si no lo encuentra en la segunda hoja, añada las filas en la 2ª hoja Reitero las gracias de nuevo

Hola JasallBcn....exactamente....el Original es la exportación de la ERP y la copia es donde el usuario gestiona el listado....la exportación original tiene que ser igual a la copia... reitero las gracias de antemano

Hola y gracias de antemano por cualquier ayuda tengo una exportación de datos en una pestaña (original ) y necesitaría que me pegase las lineas nuevas en otro listado de otra pestaña ( copia ).. y al mismo tiempo, que me borrase del listado COPIA los que ya no encuentre en la exportación ( Original ) BUSCAR Y ESCRIBIR EN OTRA PESTAÑA.xlsx