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.
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