Encontrar renglón vacío de y trasladar datos de otra h

Tengo este código, pero siempre me sobreescribe la primer linea
Worksheets("HISTORIAL").Select
    Range("A1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = ThisWorkbook.Names("RNG_FECHA").RefersToRange.Value
    ActiveCell.Offset(0, 1).Value = ThisWorkbook.Names("RNG_PROVEEDOR").RefersToRange.Value
    ActiveCell.Offset(0, 2).Value = ThisWorkbook.Names("RNG_FACTURAS").RefersToRange.Value
    ActiveCell.Offset(0, 3).Value = ThisWorkbook.Names("RNG_CHEQUE").RefersToRange.Value
    ActiveCell.Offset(0, 4).Value = ThisWorkbook.Names("RNG_TOTAL").RefersToRange.Value
    ActiveCell.Offset(0, 5).Value = ThisWorkbook.Names("RNG_CVE_DEV").RefersToRange.Value
    ActiveCell.Offset(0, 6).Value = ThisWorkbook.Names("RNG_IMPORTE_DEV").RefersToRange.Value
    ActiveCell.Offset(0, 7).Value = ThisWorkbook.Names("RNG_DEV").RefersToRange.Value
    Worksheets("PRINCIPAL").Select
    MsgBox "Registro exitoso en historial", vbOKOnly + vbInformation, "**Historial"
    Range("D5,D10:D14").ClearContents
    Range("A1").Select
¿En qué estoy fallando?

1 Respuesta

Respuesta
1
Perdona por el retraso pero he estado fuera
Yo lo he probado y no me sobreescribe, en el historial me va insertando una fila nueva cada vez

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar datos de una hoja a otra con macro

Estoy trabajando en un archivo muy interesante, este archivo tiene un macro que quisiera ajustar a mi necesidad. Los datos se encuentran (por ejemplo) en una hoja 1 en la fila 7, a través del macro se pasan a la hoja 2 a la fila 9, puedo borrar la...
1 respuesta

Cuando intento asignar el valor de un textbox a una celda excel me envía un error

Sucede que cuando intento asignar el valor de un textbox a una celda excel me envia un error y lo hago de la siguiente manera Sub Agregar() Sheets("Base").Select Range("B8").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Select...
1 respuesta

Error 1004 al Ejecutar Macro Excel

Estoy tratando de armar un pequeño sistema contable en excel, pero al ejecutar la macro asignada para numerar y cargar los asientos contables, me marca el error: "Se ha producido el error ´1004´ en tiempo de ejecución Error definido por la aplicación...
1 respuesta

Macro borrar datos de hoja sin borrar formato

Tengo una macro con la que me ayudaron, trabaja muy bien la cual busca datos en un libro y los anota en una hoja llamada buscador, pero a esta hoja no puedo darle formato ya que se elimina al usarlo, es decir por ejemplo si le pongo un fondo a la...
1 respuesta

Utilizar Find en macros o procedimiento similar

Necesitaría que me ayudarais a buscar los distintos nombres de una persona, copiar toda la fila donde aparece, pegarla en otra hoja. Esto con cada nombre que se encuentre igual al indicado por nosotros. Yo lo que he intentado son dos formas pero...
1 respuesta

Posición de celdas con un texto

Tenía esta macro desarrollada para que me informe la posición de las celdas en las que contiene un texto buscado: Sub buscar_cosas() On Error Resume Next Application.ScreenUpdating = False Range("J:K").Clear 'Esto debería ser variable... (sólo sirve...
1 respuesta

Copiar datos de una pestaña a otra con macro

No domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada...
1 respuesta

"VLOOKUP" la segunda y la tercera coincidencia

Buscando un dato con "VLOOKUP" me da la primera coincidencia pero tiene 3 coincidencias como pedir la segunda y la tercera
1 respuesta