Macro para copiar y pegar datos de una fila a otra

Buenos días.
quisiera que me pudieran ayudar con la siguiente Macro, tengo una hoja en exel con un botón que se llama Actualizar, quisiera que al oprimirlo me copie los datos que puse en el rango (H7:Q33) y que los coloque al partir del rango (H:100), pero si vuelvo a escribir datos nuevamente en (H7:Q33) los coloque ahora abajo de los últimos que copie y así sucesivamente, que busque siempre hacia abajo la siguiente fila sin informacion y que ahi pege lo siguiente.
Espero y puedan ayudarme.
saludos
Respuesta
1
Prueba este código dentro del evento click del botón.
Sub copiar()
ul = Range("H" & Rows.Count).End(xlUp).Row + 1
If [H100] = "" Then ul = 100
Range("H7:Q33").Copy
Range("H" & ul + 26).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Cells(ul, 8).Select
End Sub
Gracias experto, pero este Macro solamente me copia la información y la coloca en el mismo rango, igual y no me explique bien... va de nuevo. tengo el rango (H7:Q33) en este capturo información pero no siempre se llena, me refiero a que capturo en H:7, I:7 J:7, y hasta Q:7, despues H:8 hasta Q:8 y puede quedar solo ahi, necesito que esta informacion me la copie al momento de darle Click al boton, al rango (H:100) y si vuelvo a escribir informacion en (H:7, Q33) me la acumule hacia abajo, que no me sustituya. tenia este pero al parecer no me funciona porque este busca la siguiente Columna disponible y yo necesitaba la siguiente Fila disponible.
Sub copiar()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Hoja1").Select
Range("H7:Q33").Select
Selection.Copy
     Range("H100").Select
     If ActiveCell.Text = "" Then
     ActiveSheet.Paste
     Else
      If ActiveCell.Offset(0, 1).Value= "" Then
      ActiveCell.Offset(0, 1).Activate
      ActiveSheet.Paste
      Else
      Selection.End(xlToRight).Select
      ActiveCell.Offset(0, 1).Activate
  ActiveSheet.Paste
End If
espero pueda ayudarme. mil gracias
Podrías mandarme un pequeño ejemplo donde indiques de forma manual el resultado esperado.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro que copie renglones segun valores en columnas

Tengo el siguiente detalle. En un libro de excel tengo alrededor de miles de registros, con la siguiente estructura: ColA ... Col E col F... Col AK col AL ... Col BD xx dato dato valor1 valor2 ... Valor 3 La cosa es la siguiente quiero que se copie...
1 respuesta

Como poner dos funciones de macro en un solo botón.

Tengo un botón en una Hoja de Excel y en este asignado una macro, lo que necesito es que ejecute una segunda macro al momento de oprimir el mismo botón. ¿Se puede hacer esto?, por ejemplo, la macro que tengo me copia información de una hoja a otra,...
2 respuestas

Macro excel, comparación de columnas

Te cuento, tengo 3 columnas en un libro: ----------A------------ B----------- C 1----- Oscar--------- si----------- si 2---- Gabriel--------- si---------- no 3---- Hector ---------no--------- no 4----- Nancy ---------si----------- si 5 -----Yuriko...
2 respuestas

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

Macro para copiar fila a otra hoja sin sobreescribir

Utilice la macro de la siguiente manera y funciona perfectamente, lo único es que cuando me copia la información me la sobreescribe y no me la pega en la siguiente fila que esta libre. La única diferencia es que cuando coloco PasteSpecial...
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

Macro que llame a otro archivo xls. Lea los valores de 2 columnas especificas y luego las copie en..

Tengo un libro1.xlsx El cual tiene una hoja (master) que está construida de la siguiente manera. Columna A (INDICE) - Es decir no se repite.(Numérico) Columna B (Nombre) Columna C (NumeroX) - Numérico Columna D (Descriptor) Columna E (Descriptor 2)...
1 respuesta

Macro que vea si se cumple una condición y copie otra celda de la fila, si no que baje y re-evalúe

Necesito ayuda para crear una macro que evalué si una celda (HOJA 1, Celda L2) cumple una condición. Si la condición se cumple (="Cobro"), que copie el contenido de una segunda celda de la misma fila (HOJA 1, Celda B2) y lo pegue en una tercer celda...
2 respuestas

Crear ordenes de trabajo en base a una lista

Tengo una tabla donde los usuarios van a ingresar fila por fila algunas tareas que van a ir enumeradas, ademas de otros datos, como fecha, prioridad, etc. Por cada tarea necesito que se elabora una orden de trabajo nueva que contenga todos los datos...
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