Pegado ultima celda exxcel
Bueno Tengo Tres Hojas
En la Primero Canculo 3 columnas de Valores
por ejemplo
Columna A B C
XX XXXXX XXX
Eso en la hoja 1
Tengo listo
Lo que aprender quiero es
Primero Seleccionar los Valores de la Columna B y C hoja 1
y pegarlos en los campos vacíos de las columnas A y B de la hoja 2
Después
_____________________________________
seleccionar columnas A y B hoja 1
Y pegarlos en las Ultimas celdas Vacías de la hoja 3
Quisiera que me pasaras Como los macros .. Las formulas para yo intentar hacerlos Gracias
1 respuesta
Respuesta de Dante Amor
1
Te anexo el código con comentarios para hacerlo más entendible
Sub pasar()
'Por.DAM
'Se establece cada hoja en una varible, de esta forma se simplifica
'en este códgio la utilización de la instrucción sheets(),
'en lugar de utilizar sheets("Hoja1"), solamente se puede utilizar h1
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
Set h3 = Sheets("Hoja3")
'Ejemplo de simplicación
'Obtener la última fila de la hoja1
u = h1.Range("A" & Rows.Count).End(xlUp).Row
u = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
'las 2 sentencias hacen lo mismo
'copia de la hoja1 las columnas B y C a la hoja2 en la siguiente fila de la hoja2
h1.Range("B1:C" & u).Copy h2.Range("A" & h2.Range("A" & Rows.Count).End(xlUp).Row + 1)
'copia de la hoja1 las columnas A y B a la hoja3 en la siguiente fila de la hoja3
h1.Range("A1:B" & u).Copy h3.Range("A" & h3.Range("A" & Rows.Count).End(xlUp).Row + 1)
End Sub Saludos.DAM
No olvides finalizar la pregunta.
