Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
por Jose BN » 22 Ene 2012 18:15
Hola! Amigos de este foro quisera solicitar de sus conocimientos de algun codigo que me permita copiar un rango de cledas( por ejemplo: de A1:H31 de la hoja 1) y los pegue a la Hoja 2 en forma consecutiva segun el ultimo registro en la Hoja 2.
Agradezco la ayuda que me puedan brindar.
-

Jose BN
- Miembro Frecuente

-
- Registrado: 18 Abr 2011 23:16
por Toldeman » 23 Ene 2012 02:43
Hola.
Prueba este codigo haber si te sirve:
- Código: Seleccionar todo
Sub copiar()
Dim ul As Long
ul = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Hoja1").Select
Sheets("Hoja1").Range("A1:H30").Copy
Sheets("Hoja2").Activate
Cells(ul + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Cells(ul + 1, 1).Select
Sheets("Hoja1").Select
Application.CutCopyMode = False
End Sub
Un saludo.
-
Toldeman
- Miembro Frecuente

-
- Registrado: 08 Oct 2010 01:41
por Jose BN » 29 Ene 2012 21:48
Muchas gracias! Toldeman voy a probar el código y te cuento como me fue.
Saludes,
Jose B.
-

Jose BN
- Miembro Frecuente

-
- Registrado: 18 Abr 2011 23:16
Volver a Macros
¿Quién está conectado?
Usuarios navegando por este Foro: ALEJANDROREYES, Google [Bot] y 6 invitados