UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Macro copiar el 23/06/15, 05:56 pm

Jhony


Buenas tardes compañeros. Nuevamente molestándolos. Me podrían ayudar con lo siguiente por favor.
Tengo está macro y lo que pretendo es que cuando termine de copiar, me inserte 2 filas hacia abajo. Agradezco de antemano la ayuda. Buena tarde.

Sub Macro19()
'
'
    Sheets("Hoja1").Select
    Range("A32:O33").Select
    Selection.Copy
    Sheets("Hoja2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

2RESUELTO Re: Macro copiar el 23/06/15, 06:39 pm

adolfo castro


Dim numFilas As Long
Dim n As Long
 countult = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
'
     'numero de filas a insertar
    numFilas = 2
    
        'Insertar filas
        Rows(ActiveCell.Row & ":" & ActiveCell.Row + numFilas - 1).Insert

3RESUELTO Re: Macro copiar el 23/06/15, 07:47 pm

Jhony


Buenas tardes Adolfo. Muchas gracias por tu tiempo. Tengo un problema; copie mi instrucción con la que me enviaste, pero me esta arrojando "Error de compilación. No se ha definido Sub o Funtion" y no entiendo el problema. Disculpa mi ignorancia; apenas estoy tratando de aprender macros. Me podrías ayudar con eso por favor. Nuevamente, muchas gracias y buena tarde.

4RESUELTO Re: Macro copiar el 24/06/15, 02:58 am

adolfo castro


sube el archivo en cuestión, para ver lo que pasa

5RESUELTO Re: Macro copiar el 24/06/15, 08:07 am

adolfo castro


por ser hoy voy ha hacer un esfuerzo y voy a darte una pequeña solución, pues creo que se donde viene el fallo, no es costumbre pues se me reconoce u poco por ser agrio cuando no se suben archivos, mucho menos cuando no se tiene ni idea y se requiere de un trabajo ya hecho, algo que no me gusta, preocuparos un poco de entender, estudiar, leer y rebuscar, solo somos ayudas, no trabajadores, revisa el adjunto a ver si te va bien, y si es asi, te reto a que me describas que hace en cada momento, eso seria algo bueno pues resultado de que lo has leído y comprendido.

saludos Adolfo castro.

pd. sin adjuntos, no hay ayudasssssssssssss

Sub copia_inserta()
'
Dim numFilas As Long
Dim n As Long

    Sheets("Hoja1").Select
    Range("A32:O33").Select
    Selection.Copy
    Sheets("Hoja2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False


 countult = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
'
     'numero de filas a insertar
    numFilas = 2
    
        'Insertar filas
        Rows(ActiveCell.Row & ":" & ActiveCell.Row + numFilas - 1).Insert
End Sub

6RESUELTO Re: Macro copiar el 24/06/15, 01:53 pm

Jhony


Buenos días Adolfo. Agradezco mucho tu valiosa ayuda. Te anexo el archivo y disculpa que no lo haya hecho; creí que esto iba a ser fácil, por eso lo hice de esa manera; en él, van algunos comentarios. Gracias por tu tiempo y hasta luego. Cierro pregunta.
Archivos
Copiar e insertar filas.xls
No tienes los permisos para descargar los archivos.
(128 KB)

7RESUELTO Re: Macro copiar el 24/06/15, 02:06 pm

adolfo castro


pásame tu correo electrónico, vas a aprender paso a paso o a lo burro, aun no lo se

8RESUELTO Re: Macro copiar el 24/06/15, 03:55 pm

Jhony


Te lo proporciono con gusto:
riveracruzjm@hotmail.com

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.