Empieza a escribir donde termine la última fila

publicado el 20 de agosto1 año

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

publicado el 20 de agosto1 año

Hola,

Sin el libro de ejemplo solo puedo participar en su consulta con un código como el siguiente, este debería poder encontrar la última fila utilizada en la hoja “USUARIO” y comenzar a escribir a partir de esa fila. Así, no necesita especificar manualmente la fila de inicio cada vez.

Sub AÑADIRNUEVAS()

    Application.Calculation = xlManual
    
    Dim i As Integer
    Dim j As Integer
    
    ' Encuentra la última fila 
    j = Sheets("USUARIO").Cells(Sheets("USUARIO").Rows.Count, "A").End(xlUp).Row + 1
    
    For i = 2 To 8000 
        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 i
    
    ' Limpia las celdas restantes por si hace falta
    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

Editado el el 20 de agosto1 año por Israel Cassales

publicado el 21 de agosto1 año

Autor

Hola Israel

First class! Funciona perfecto.

Muchísimas gracias

publicado el 21 de agosto1 año

Pues me da gusto de verdad, ahora por favor cierra el tema para dejarlo como solucionado y sirva de referencia para futuros lectores.

Concluyo mi participación.

Saludines

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

192 Archivos
99 Comentarios
30 Revisiones
Última descarga

Cómo conservar la función AHORA()
- 1

VBA que me recupere la fórmula cuando la celda se quede vacía

Entiendo que en el momento que tuviera dos celdas consecutivas sin fórmula que tuviera que recuperar ese código que planteas no me valdría, porque estoy copiando una fórmula que no existe de la celda de arriba en la celda de abajo de ella.
imagino que con borrar unas lineas te refieres a eliminar esos registros, estirar hacia abajo la tabla y en las nuevas líneas creadas añadirlos al final con los datos que tuvieran los antiguos, con las fórmulas arrastradas y creadas de nuevo. Entonces habria que escribir a mano todos los datos de cada columna a rellenar de todas las filas nuevas, dando lugar a cometer errores de copia/pega o reeescritura. Además, los registros los tengo ordenados con cierto orden , le perdería.
es lo que comentaba antes, era solución funcional trabajando con un excel en el mismo idioma en los dos ordenadores, por eso esto queda descartado, ya que por lo que veo excel no reconoce las funciones de un idioma a otro.
No sé, la verdad que me sorprende un poco que no se pueda hacer lo que planteo aquí al inicio.. Al final me voy a conocer todos los foros, ajja. Un saludo!

Por MANTONIOPM, · publicado ayer a las 00:081 día
VBA que me recupere la fórmula cuando la celda se quede vacía

Entiendo lo que expone porque he leído el tema en ambos foros, y aunque lo plantea distinto, el punto de los idiomas y la forma de trabajar lo tiene usted de origen, eso no cambia. Me pareció importante mencionarlo aquí, para que se encuentren también todos los elementos y los avances con limitaciones que se ha encontrado usted en el proceso.
Podría juzgar el aporte innecesario de mi parte si no creo decirle algo distinto, aunque sigo considerando que en su caso la fórmula original está en la tabla y no se pierde al borrar unas líneas, independiente de la cantidad. Es decir, con VBA copiar de la celda de arriba más próxima la fórmula a las de abajo que no la tienen. Si ya tiene una solución funcional del Maestro Leopoldo, tal vez explorar desde ahí soluciones complementarias le traiga mejores propuestas.
En ambos foros participan en gran medida pero en distintas ocasiones los mismos maestros, así que es muy probable seguir recibiendo aportes.

Por Israel Cassales, · publicado el miércoles a las 22:591 día
VBA que me recupere la fórmula cuando la celda se quede vacía

Hola, respecto a lo que publiqué en ese foro que comentas decir que con 12000 celdas es para que se entienda, que no tengo 3 o 4 cables como para estar copiando y pegando formulas ya que como se puede entender da lugar a colarte y pegar una en la celda que no es sobre todo cuando llevas ya un buen rato con ello.
Respecto a utilizar una hoja auxiliar es tal y como lo planteé. De hecho el código de Leopoldo Blancas me funcionó perfecto, quedando ese desafío resuelto. Donde estaba el problema?Que cuando ejecutaba la macro me pegaba en las celdas en blanco la fórmula en inglés, que es como tengo el excel en un ordenador de trabajo, y no reconoce las funciones en este otro ordenador también de trabajo y que está en español (que por politicas de empresa no tengo permitido cambiar, capado) Por tanto aunque el código estaba genial no puedo utilizar la hoja excel en el ordenador de teletrabajo. Es por eso por lo que en este foro he planteado el problema desde otro punto de vista, quitando las fórmulas de la hoja auxiliar, ya que por eso método no me valió. Dejo captura de lo que me pasaba (que no es el caso en este tema), aunque pusiera ESFORMULA como comentas no me iba a valer, porque las funciones que contienen están en ingles,, Puedo buscar la traducción?Si, pero me va a dejar de valer para uno de los ordenadores igual. Es por eso que no conviene mezclar lo de un foro con este porque lo he planteado de otra forma aquí. Un saludo!

Por MANTONIOPM, · publicado el miércoles a las 21:431 día
Ambito de ejecución de una macro (sencilla)

Hola Diego ! Gracias por reponder
Yo entiendo que "<>" significa "diferente" como también ">" significa es mayor que y "<" es menor que.
Preguntaba si que palabras (o lo que sea) debo poner despues de "Thisworkbook.Name". Concretamente después del ".Name".
Eso.
Rubén

Por RubenDario, · publicado el miércoles a las 21:151 día
VBA que me recupere la fórmula cuando la celda se quede vacía

Bueno sí,
Leí en TODOEXCEL que tiene opciones de VBA que se le han propuesto.
Aunque desde mi punto de vista, como usted depende de la apreciación, (autorización, validación... Etc.) de alguien más, en un escenario de 12,000 celdas, entonces elegir cuales cambiar y cuales no, es un desafío, no complicado, aunque sí es un reto de entendimiento.

Por otro lado, si usted es el autor y no tiene inconveniente con usar una hoja Auxiliar, tal vez le conviene más usar una columna Auxiliar en su lugar. En esa columna usar la función ESFORMULA(), similar a lo que usó para el condicional, para saber si el contenido es una fórmula o un valor, así en consecuencia del resultado VERDADERO o FALSO traer al final el que desea, puede ser el valor que está escrito e incluso con un SI() + BUSCARV() + INDIRECTO() podría traer la fórmula de la lista que preparó previamente.
Pruebe e intente,
Saludos

Por Israel Cassales, · publicado el miércoles a las 19:501 día

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Empieza a escribir donde termine la última fila

Featured Replies

Archivado

Archivos

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Cambios en el Control Horario

Estadísticas de descargas

Mensajes

VBA que me recupere la fórmula cuando la celda se quede vacía

VBA que me recupere la fórmula cuando la celda se quede vacía

VBA que me recupere la fórmula cuando la celda se quede vacía

Ambito de ejecución de una macro (sencilla)

VBA que me recupere la fórmula cuando la celda se quede vacía

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)