Buenas gente, mi duda es la siguiente.
Tengo datos en una hoja que quiero pasarlos a otra hoja, el problema es que ninguna de las dos hojas tiene el mismo formato para ingresar los datos.
Lun, 14/03/2011 - 11:45
#1
Pasar datos de una hoja a otra
antes que nada, mira este envío donde se comenta cómo pasar datos de una hoja a otra
Cuando dices distinto formato me imagino que te refieres a que las columnas no están en el mismo orden, o a que datos equivalentes están en celdas distintas en cada hoja, o a que tienes datos en celdas de un formulario y quieres pasarlo a un listado conjunto.
¿puedes adjuntar un ejemplo de los datos para ver cómo están organizados?
------
Ya sé Excel, pero necesito más ahora en pdf
------
Ya sé Excel, pero necesito más.
¿por qué tiene que estar todo en la misma columna?¿cómo vas a distinguir un registro del siguiente?
¿la diferencia entre el total facturado y el iva no es el importe, que también está en la Hoja1?
no entiendo tu hoja2.
en cualquier caso:
A fin de cuentas se tratará de crear un bucle que recorra todas las filas de tu hoja1, y para cada una de ellas copie tres datos en la Hoja2
si por ejemplo en la columna A siempre hay datos, puedes utilizarla para ese bucle
Range("A2").SelectDo Until IsEmpty(ActiveCell)
...
Activecell.Offset(1,0).Select
Loop
------
Ya sé Excel, pero necesito más ahora en pdf
------
Ya sé Excel, pero necesito más.
para elegir un rango, hay un control específico que puedes usar en los formularios, se llama refEdit.
este control es para los formularios de vba, no lo puedes poner en la hoja.
con un textbox, lo único que puedes hacer es utilizar la cadena de texto que proporcionen, que puede ser algo así "A1:B100"
y emplearlo como argumento del rango
Range(eltextodetutextbox)
Por último, para que aumente el número de filas... ¿cómo las estás contando?¿con una variable? ¿ i = i+1 ?
si estás utilizando la celda activa ten cuidado con los cambios de hoja, asegúrate de que la celda activa es la correcta.
------
Ya sé Excel, pero necesito más ahora en pdf
------
Ya sé Excel, pero necesito más.
El metodo me queda en un bulce infitino. Podrias explicarme que esoy haciendo mal si no es molestia?
Private Sub CommandButton1_Click()
Range("A2").Select
Do Until IsEmpty(ActiveCell)
Selection.Copy
Sheets("Hoja2").Select
Range("b2").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Es que dentro del bucle seleccionas siempre la celda B2 de la Hoja2 y pegas ahí, pero no vuelves a la hoja inicial a copiar otra cosa distinta.
el bucle se queda en la Hoja2, selecciona la celda de debajo de la B2, es decir, la B3
copia la B3
selecciona la B2
pega en B2 lo que ha copiado de B3
vuelve a seleccionar B3
y repetimos.
nunca sales de B2 y B3
te vuelvo a decir lo mismo que antes, si trabajas con ActiveCell y ActiveSheet, asegúrate de el programa se está refiriendo realmente a lo que tú crees que se está refiriendo.
------
Ya sé Excel, pero necesito más ahora en pdf
------
Ya sé Excel, pero necesito más.
¿Con una tabla dinámica?
Su ayuda necesito una macros que cumpla dos funciones que transfiera datos a otro hoja y otro libro a la misma vez pero ma informacion va consecutiva en el libro su ayuda x favor