codigo para pasar datos a un libro excel

[carnero]

alguien me puede ayudar con esto porfavor:
estoy haciendo una macro en excel y tengo que pasar datos de un libro a otro por cada fila segun unos criterios y no se como se hace para tomar ciertas celdas, por cada fila y pegarlas en otro libro. Despues volver al libro inicial y repetir la operacion.
aqui un ejemplo

en el Libro1 tengo datos los cuales tengo que filtrar (son 2 tipos de datos "A" y "B"), entonces si tengo que el primer dato es del tipo "A" lo tengo que copiar en un libro nuevo que tendra el nombre de la celda "Ai" (i = variable), que se guarda en una carpeta espesifica del tipo "A" y pegar ciertas celdas, segun el formato que corresponda al Tipo A.
Lo mismo se aplica al Tipo B.

muchas graciasssssssssss

[Heimish2000]

¿Que es lo que no sabes hacer?

Coges el valor en una variable auxiliar, haces un if y dependiendo del valor haces unas cosas u otras.

[carnero]

lo que no se hacer. es tomar los datos del libro 1 y copiarlos en el libro 2 y despues volver al libro 1

me entiendeS?

[Heimish2000]

Si no me equivoco hay una instrucción para saber que libro es el activo y otra para cambiarlo (no me se las instrucciones de memoria, pero estoy casi seguro que existen).

[patob]

Sheets("Hoja1").select -- Esto es para seleccionar la Hoja1, dentro de las comillas pones la hoja que queres ir

Range("A1").select -- Esto es para seleccionar la celda que quieras

Siempre que quieras hacer referencia a una celde recuerda antes poner en que hoja esta la celda.

Cualquier otra duda a las ordenes.
saludos

[carnero]

Iniciado por patob

Sheets("Hoja1").select -- Esto es para seleccionar la Hoja1, dentro de las comillas pones la hoja que queres ir

Range("A1").select -- Esto es para seleccionar la celda que quieras

Siempre que quieras hacer referencia a una celde recuerda antes poner en que hoja esta la celda.

Cualquier otra duda a las ordenes.
saludos

y para pasar a otro libro y volver al primero?

[patob]

Iniciado por carnero

y para pasar a otro libro y volver al primero?

Para pasar de libro a libro, tenes que hacerlo con un recordset.
Te recomiendo que mires el ejemplo aca que esta claro y facil de entender
http://www.xltoday.net/vba_ejemplos_excelaexcel.asp

Saludos.

[carnero]

Iniciado por patob

Para pasar de libro a libro, tenes que hacerlo con un recordset.
Te recomiendo que mires el ejemplo aca que esta claro y facil de entender
http://www.xltoday.net/vba_ejemplos_excelaexcel.asp

Saludos.

esto no lo puedo agregar a una macro ?

[hugo180486]

Código vb:

No necesariamente con un recordset, si estas usando VBA puedes intentar esto, checalo sacale el provecho que puedas...
 
Comenta porfavor si te sirvio.
 
Sub Pasar()
    
    Dim oEsteLibro  As Excel.Workbook
    Dim oOtroLibro  As Excel.Workbook
    Dim i           As Long
    
    '// Asignamos este libro a un objeto para su mejor manipulacion
    Set oEsteLibro = ThisWorkbook
    
    '// Agregamos otro libro
    Set oOtroLibro = Workbooks.Add
    
    '// Ponemos valores para pasarlos al otro libro
    For i = 1 To 20
        With oEsteLibro.Worksheets(1)
            .Cells(i, 1) = Chr$(i + 100)
        End With
    Next
    
    '// Ahora si lo pasamos a l otro libro
    For i = 1 To 20
        With oEsteLibro.Worksheets(1)
            .Cells(i, 1) = oOtroLibro.Worksheets(1).Cells(i, 1)
        End With
    Next
    
    '// Desactivar mensajes de Excel
    '// En este caso si el archivo existe que lo sobreescriba
    Application.DisplayAlerts = False
    '// Guardamos y cerramos el otro libro
    oOtroLibro.SaveAs Environ("USERPROFILE") & "\OtroLibro.xls"
    oOtroLibro.Close False
        Application.DisplayAlerts = True
    MsgBox "Ruta dondse se guardo: " & Environ("ALLUSERSPROFILE") & "\OtroLibro.xls"
    
    Set oEsteLibro = Nothing
    Set oOtroLibro = Nothing
    
End Sub
 

[AMG_web_headache]

Aunque este foro tiene más de 800 años, voy a colocar la respuesta, ya que a pesar de eso, tiene muchas visitas.
Supuestos:
1) Libro 1 y Libro 2 están abiertos
2) Conocemos el nombre de Libro 2. Se llama "milibro2"
3) el libro activo (desde donde se corre la macro) es el libro 1
4) Conocemos la cantidad de Datos y son 20
5) todos los datos están en la columna A, a partir de la fila 2
6) Conocemos los nombres de las hojas: son "hoja1-libro1" y "hoja1-libro2"

Código
Public Const CANTIDAD_DATOS=20
libro1=ActiveWorkbook.Name
libro2="milibro2"
hoja1_l1="hoja1-libro1"
hoja1_l2="hoja1-libro2"

For i=1 to CANTIDAD_DATOS
Workbooks(libro2).Sheets(hoja1_l2).cells(i+1,1)=Wo rkbooks(libro1).sheets(hoja1_l1).cells(i+1,1)

Next i

Estos supuestos se pueden modificar y habría que cambiar el código. Por ejemplo si no sabemos cuantos datos son, pero sabemos que estan en el libro1 en la primera columna, y cuando se acaban los datos, viene una celda en blanco, entonces habría que eliminar la instruccion Public Const..... y colocar un código como este al comienzo

while Workbooks(libro1).sheets(hoja1_l1).cells(i+1,1)<>" "
i=i+1
wend
cantidad_datos=i