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 Ayuda Macro el 02/03/16, 03:52 pm

felixemm


Estimado necesito me ayudes con el siguiente archivo:
Lo que necesito es que la macro me haga reconocer la hoja 1 luego copie el rango A1 hasta A9 y busque la ultima hoja del libro y pegue en A6 lo de la primera hoja.
Archivos
Nueva PRactica de macro.xlsm
No tienes los permisos para descargar los archivos.
(157 KB)

2RESUELTO Re: Ayuda Macro el 03/03/16, 01:51 am

Igtelo


Hola Felix.

Con éste:
Código:
Private Sub CommandButton1_Click()
w = Sheets.Count
Sheets("Hoja1").[A1:A9].Copy Sheets(w).[A6]
End Sub

Por favor lee y aplica las normas del foro, debes iniciar saludando y las cosas se piden por favor. La educación por delante.

Saludos
Ignacio Téllez

3RESUELTO Ayuda Macro el 03/03/16, 10:57 am

felixemm


Hola Ignaciano buen día

Gracias por su pronta respuesta al tema es lo que necesito pero hay un detalle que quisiera añadir en la macro que no tome en cuenta, que en el rango [A1:A9] la macro me reconozca las celdas que contienen datos y no poner el rango , algo así como esta formula 
Private Sub CommandButton1_Click()
w = Sheets.Count
Sheets("Hoja1").Range([a1], Cells(Rows.Count, "a").End(xlUp)).Copy Sheets(w).[A6]


End Sub

Pero me sale error de compilación 1004

4RESUELTO Re: Ayuda Macro el 03/03/16, 11:22 am

Igtelo


Hola Felix.

Agrega ésta línea:

Sheets(w).[A6:A14].SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

Saludos
Ignacio Téllez

5RESUELTO Ayuda Macro el 03/03/16, 11:39 am

felixemm


Hola Ignacio

Este el el código que me enviaste el mismo que esta correcto:

Private Sub CommandButton1_Click()
w = Sheets.Count
Sheets("Hoja1").[A1:A9].Copy Sheets(w).[A6]
End Sub

Solo que a este código en vez de poner el rango A1:A9 de la Hoja1 me reconozca los campos llenos de la columna A de la Hoja1 y los copie a la ultima hoja desde la celda A6

6RESUELTO Re: Ayuda Macro el 03/03/16, 11:44 am

Igtelo


Felix:

No te compliques la vida, con ésto te sirve para 5 mil filas:

Private Sub CommandButton1_Click()
w = Sheets.Count
Sheets("Hoja1").[A1:A5000].Copy Sheets(w).[A6]
Sheets(w).[A6:A5000].SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

End Sub

Sino te satisface, abre otro tema y sube archivo con datos reales de lo que tienes.
Lee las normas, no estés cambiando la pregunta, también lee recomendaciones para hacer preguntas.

Saludos
Ignacio Téllez

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.