Pasar Contenido de una Hoja a Otra
Saludos...
Ojala me Puedas Ayudar...:)
Tengo una lista de productos que se
Encuentran en la hoja1, estos productos están en diveras columnas, quisiera que la presionar un botón de formulario estos se manden a una determinada posición de la hoja2, y si vuelvo a seleccionar otro producto de la hoja1 este se inserte justo debajo del que ya se había insertado antes en la hoja2...
Gracias por tu tiempo
Quisiera comprar tu manual,,,
Soy de Campeche, Campeche Mexico
¿Cuánto me saldría el envío?
Ojala me Puedas Ayudar...:)
Tengo una lista de productos que se
Encuentran en la hoja1, estos productos están en diveras columnas, quisiera que la presionar un botón de formulario estos se manden a una determinada posición de la hoja2, y si vuelvo a seleccionar otro producto de la hoja1 este se inserte justo debajo del que ya se había insertado antes en la hoja2...
Gracias por tu tiempo
Quisiera comprar tu manual,,,
Soy de Campeche, Campeche Mexico
¿Cuánto me saldría el envío?
1 Respuesta
Respuesta de Elsa Matilde
1
En la rutina que te envío se encuentran 2 macros: la que encuentra la primer fila libre (hay varias maneras de encontrarla, esta es una de ellas) y la que copia ciertas celdas de la hoja1 en la 2.
Esto te servirá para que lo adaptes a tu proyecto.
Saludos
Elsa
PD) El costo del manual digital '400Macros' es de 30 dólares. En mi página encontrarás las formas de pago y cualquier inquietud enviame un mail a mi correo para más detalles. Gracias
Esto te servirá para que lo adaptes a tu proyecto.
Saludos
Elsa
PD) El costo del manual digital '400Macros' es de 30 dólares. En mi página encontrarás las formas de pago y cualquier inquietud enviame un mail a mi correo para más detalles. Gracias
¿Disculpa Qué Rutinas?
Ahhhhhh, disculpa
Sub CopiandoDatos()
'rutina busca primer fila libre en Hoja2
Dim filalibre As Integer
Sheets("Hoja2").Select
ActiveSheet.Range("A2").Select
'se recorre una col a partir de la celda activa
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
'se incrementa en 1 el valor de la celda anterior
filalibre = ActiveCell.Row
'rutina principal
Sheets("Hoja1").Select
'se copian ciertas celdas en celdas(filalibre,col) de la hoja2
ActiveSheet.Range("A5").Copy Destination:=Sheets("Hoja2").Cells(filalibre, 1)
ActiveSheet.Range("C5").Copy Destination:=Sheets("Hoja2").Cells(filalibre, 3)
'así con todas las celdas a copiar.
End Sub
Esta va en un módulo, luego la asignas a los botones de tu formulario
Sub CopiandoDatos()
'rutina busca primer fila libre en Hoja2
Dim filalibre As Integer
Sheets("Hoja2").Select
ActiveSheet.Range("A2").Select
'se recorre una col a partir de la celda activa
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
'se incrementa en 1 el valor de la celda anterior
filalibre = ActiveCell.Row
'rutina principal
Sheets("Hoja1").Select
'se copian ciertas celdas en celdas(filalibre,col) de la hoja2
ActiveSheet.Range("A5").Copy Destination:=Sheets("Hoja2").Cells(filalibre, 1)
ActiveSheet.Range("C5").Copy Destination:=Sheets("Hoja2").Cells(filalibre, 3)
'así con todas las celdas a copiar.
End Sub
Esta va en un módulo, luego la asignas a los botones de tu formulario
