como puedo cargar informacion de otro libro de excel a otro

[a83]

me explico estoy trabajandocon macros en excel 2003 y necesito cargar informacion que esta en otro excel de que manera puedo hacer esto gracias por la ayuda

[Monimo]

Iniciado por a83

me explico estoy trabajandocon macros en excel 2003 y necesito cargar informacion que esta en otro excel de que manera puedo hacer esto gracias por la ayuda

mm tu explicación es muy pobre. si solo quieres leer unas celdas, basta con abrirlo desde codigo hacer referencia a las celdas y listo, o puedes copiar toda una hoja a tu libro, o no se bien que es lo que quieras hacer.

[a83]

mira ,

lo que necesito es lo siguiente;

tengo varios archivos en excel que estan en la misma carpeta donde tengo el archivo donde estoy creando la macro bien.

bueno ahora tengo que configurar un boton para que me traiga los datos de de uno de los libros que tengo en esa carpeta me entiendes ese archivo se actulisa todo los dias lo que quiero hacer es traer esa informacion a mi informe oficial lo podemos llamar

[Monimo]

Iniciado por a83

mira ,

lo que necesito es lo siguiente;

tengo varios archivos en excel que estan en la misma carpeta donde tengo el archivo donde estoy creando la macro bien.

bueno ahora tengo que configurar un boton para que me traiga los datos de de uno de los libros que tengo en esa carpeta me entiendes ese archivo se actulisa todo los dias lo que quiero hacer es traer esa informacion a mi informe oficial lo podemos llamar

Bueno sigues sin explicarte, pero aqui te dejo codigo para copiar una hoja entera , moverla o para solo leer los datos dependiendo donde esten. .


este metodo te despliega la ventana para que elijas la ubicacion y el archivo a abrir.

Sub openfile()
sFilename = Application.GetOpenFilename
If sFilename <> "False" Or sFilename <> "False.xls" Then
'abrimos archivo
Workbooks.Open (sFilename)
Else
MsgBox ("Ha elegido cancelar el archivo. Inténtelo de nuevo")
Exit Sub
End If
End Sub


para hacerlo automatico sin que se despliegue esa ventana :

Workbooks.Open ("Ruta del archivo con nombre y extensión")



Una vez abierto solo haces referencia a los datos. Como no se si es a todas las hojas o a todas las celdas de ese libro pues solo es replicar las lineas de codigo.
celda_inicial=1

Do While Range("A" & celdainicial).Value <> ""
celdainicial = celdainicial + 1
loop

celda_final=celda_inicial

Con esto obtienes la final y la inicial haces lo mismo para las columnas y obtienes los datos. Si lo que quieres es sacar toda la hoja:


windows("elwrkbkque abriste anteriormente").activate
ActiveSheet.Move After:=Workbooks(el libro a donde quieres actualizar).Sheets(1)

[a83]

jajajaj que bien


Mira lo que neceito es trater los del archivo calculo1.xls de las seldas A5 hasta la AK5 esto datos los tengo que incorporar alarchivo info1.xls columa B10 en adelante

me gusto esa forma en la cual buscas el archivo excelente

[Monimo]

Dim sFileName As String
Dim wmacro As String
Dim worigen As String
Dim wdestino As String



Private Sub CommandButton1_Click()
wmacro = ActiveWorkbook.Name

openfile
'ActiveWorkbook.Name
worigen = ActiveWorkbook.Name
'wdestino = "info1.xls"

MsgBox ("Elija Ahora el archivo destino")
openfile
wdestino = ActiveWorkbook.Name
'activamos la celda desde donde se actualiza, esto para conocer el numero de renglon y columna
Range("B10").Activate
rt = ActiveCell.Row 'renglon
ct = ActiveCell.Column 'columna

For i2 = 1 To 37
rt2 = rt
For i = 1 To 5
Workbooks(worigen).Activate
' guardamos en una variable temporal el valor q esta en la celda q actualmente recorremos
temp = Cells(i, i2).Value
'seleccionamos el libro donde pondremos los datos
Workbooks(wdestino).Activate
'lo asignamos a variables para irle sumando conforma nos movemos en la hoja
Cells(rt2, ct + i2).Value = temp 'a la columna le sumamos el valor de i2 pues asi se movera conforme a la columna q vaya leyendo.
'se movera 5 renglones abajo. en la columna q debe ir
rt2 = rt2 + 1

Next

Next



End Sub

Sub openfile()
sFileName = Application.GetOpenFilename
If sFileName <> "False" Or sFileName <> "False.xls" Then
'abrimos archivo
Workbooks.Open (sFileName)
Else
MsgBox ("Ha elegido cancelar el archivo. Inténtelo de nuevo")
Exit Sub
End If
End Sub

[a83]

que es esto?


me dejas con la boca en plop

[Monimo]

Pues es el código q te hace lo que quieres hacer... de pasar unos datos a otro, Pruebalo si quieres en una macro nueva crea un userform y pega ese código...con un boton y ve si es lo que necesitas

[a83]

mira me muestra el encabesado pero

me tira esta informacion que no entiendo que es

Código PHP:

  SliceSpec=Version=1,CubeID={5C828FA3-0FED-47D3-86F5-BA82B6538A08},RowIDs={8A177FB8-CEEB-4389-875E-9CD29CD3B6FB},ColIDs={494570C7-7D4E-4825-B1C9-B4348A1141CE},SliceIDs={9BF954B9-CBAB-4D86-B6B8-B88580979F49}{C47B623F-8D59-4CB2-B14D-7A579698E597}{B1D3D5C5-8FA8-4F7B-8925-2239FDDF73EB}{F14CD027-B1EA-48B7-85FB-ED310B0FE309},SliceItemIDs={AD58272F-8E7C-4354-8719-6B61A3FABD06}{1CB53845-C6E4-47E2-BF88-B0D363947C09}{4C52B36C-204E-489F-8876-81E587049308}{85DADA33-14C4-4991-AF94-DA6608EB53A2}             
    Profit and Loss Summary         
    [Chile Inter] [FINAL] [Combined] [Budget]  
   

[Monimo]

Donde te sale eso?

[a83]

me sale cuando carga la informacion que trae a la hoja nueva quiere decri donde traspaso la informacion


y cuandole digo cancelar que no traiga ningun dato me sale arror1004 en tiempo de ejecucion no se puede hallar "falso.xls

[Monimo]

Me parece que no es un documento "normal " de excel a eso me refería cuando decía q tu explicación era muy pobre, probablemente sea un documento q se exporta de algun reporteador o algo asi...esas líneas de código no me son para nada familiares, parecieran de Java inclusive no se si te salen en una ventana de error o en la hoja del documento....

[a83]

Iniciado por Monimo

Me parece que no es un documento "normal " de excel a eso me refería cuando decía q tu explicación era muy pobre, probablemente sea un documento q se exporta de algun reporteador o algo asi...esas líneas de código no me son para nada familiares, parecieran de Java inclusive no se si te salen en una ventana de error o en la hoja del documento....

tienes un mail donde enviarte un pantallaso de lo que te estoy explicado

[a83]

salen desde el documento esos codigos pero me muestra el encavesado de la informacion pero los numeros no me los muestras los que estan debajo del encavesado

[a83]

monimo,


si funciono el problema era que la tabla trae unos campos ocultos Hora la duda por que me toma ese dato si le estamos indicando que recoja el dato que esta en la fila d8 Ej y las filas ocultas estan antes de esta

[Monimo]

Iniciado por a83

tienes un mail donde enviarte un pantallaso de lo que te estoy explicado

Primero quita estas lineas (color naranja)sí el archivo destino es el mismo que a macro y agrega la de color azul:

Private Sub CommandButton1_Click()
wmacro = ActiveWorkbook.Name

worigen=wmacro

este primer openfile es para elegir el archivo donde se encuentran los datos que quieres copiar
openfile 'QUITAR
'ActiveWorkbook.Name 'QUITAR
worigen = ActiveWorkbook.Name 'QUITAR
'wdestino = "info1.xls" 'QUITAR


este segundo openfile es para elegir el archivo donde los vas a escribir.
MsgBox ("Elija Ahora el archivo destino")
openfile
wdestino = ActiveWorkbook.Name
'activamos la celda desde donde se actualiza, esto para conocer el numero de renglon y columna
Range("B10").Activate
rt = ActiveCell.Row 'renglon
ct = ActiveCell.Column 'columna

For i2 = 1 To 37
rt2 = rt
For i = 1 To 5
Workbooks(worigen).Activate
' guardamos en una variable temporal el valor q esta en la celda q actualmente recorremos
temp = Cells(i, i2).Value
'seleccionamos el libro donde pondremos los datos
Workbooks(wdestino).Activate
'lo asignamos a variables para irle sumando conforma nos movemos en la hoja
Cells(rt2, ct + i2).Value = temp 'a la columna le sumamos el valor de i2 pues asi se movera conforme a la columna q vaya leyendo.
'se movera 5 renglones abajo. en la columna q debe ir
rt2 = rt2 + 1

Next

Next

End Sub


Ahora sí fijate en el ciclo for de i2. i2 empieza en el 1 o sea q jala datos de la primera columna en adelante....si se debe de traer de la columna d8 debes empezar el conteo en 4 y terminar en 41

asi:

For i2 = 4 To 41

segun yo asi dejara de traerte el encabezado.

[a83]

Consulta maestra,

como puedo selecionar algunas seldas solamente no todas y que me las muestre en forma vertical?


te agradesco por tu ayuda

[a83]

Consulta maestra,

como puedo selecionar algunas seldas solamente no todas y que me las muestre en forma vertical?


te agradesco por tu ayuda

[Monimo]

Iniciado por a83

Consulta maestra,

como puedo selecionar algunas seldas solamente no todas y que me las muestre en forma vertical?


te agradesco por tu ayuda

Pues depende de las celdas, si te fijas todo se maneja por coordenadas range("A1") ES CELLS(1,1) que es la primara fila ala primera columna.. de ahi puedes jugar con patrones sumandole o restandole o simplemente hacer referencia siempre alas mismas celdas y su valor.

[a83]

mmm pero eso lo deveria trabajar despues de este
for

Código PHP:

  For i2 = 3 To 41  
rt2 = rt  
For i = 1 To 5  
   

estoy un poco enredado con esto

[a83]

seria algo mas menos de esta forma lo que tume dices

Código PHP:

  If HtaBuscar > 0 Then  
 
 a   = "([Octubre. Xls]! Hoja1! AL8)"                               
 
            If HtaBuscar = a Then  
            Hoja1. Cells(ii, 9). Value = Hoja1. Cells(ii, 9). Value + Hoja1. Cells(i, 31). Value * 19 los multiplica por   
            Hoja1. Cells(ii, 24). Value = ""                          
            Hoja1. Cells(ii, 24). Value = Hoja1. Cells(i, 19). Value                With Hoja1. Cells(ii, 24). Interior  
           . ColorIndex = 6  
           . Pattern = xlSolid  
    End With  
        End If  
        End If  
     Next  
   

[Monimo]

Iniciado por a83

mmm pero eso lo deveria trabajar despues de este
for

Código PHP:

  For i2 = 3 To 41  
rt2 = rt  
For i = 1 To 5  
   

estoy un poco enredado con esto

si vas a seleccionar celdas dispersas que no sigan un patron, como "cada 5 celdas que seleccione otra" o "celdas de la columna 4 a la 8 saltandose un renglon" No puedes utilizar el ciclo for. Tendrías que decirle línea por línea las celdas que vayas a elegir.

por ejemplo:

de mi hoja origen quiero copiar las celdas a1,b5,c2 en las celdas de mi hoja destino b2,c5,g6

sería así:

workbooks(worigen).activate
celda1=range("a1").value
workbooks(wdestino).activate
range("b2").value=celda1
workbooks(worigen).activate
celda1=range("b5").value
workbooks(wdestino).activate
range("c5").value=celda1
workbooks(worigen).activate
celda1=range("c2").value
workbooks(wdestino.activate
range("g6").value=celda1

[a83]

el codigo quedaria de esta manera.

Código PHP:

  Private Sub CommandButton1_Click() 
wmacro = ActiveWorkbook.Name 
 
openfile 
'ActiveWorkbook.Name 
worigen = ActiveWorkbook.Name 
'wdestino = "info1.xls" 
 
MsgBox ("Elija Ahora el archivo destino") 
openfile 
 
Workbooks(worigen).Activate 
celda1 = Range("f5").Value 
Workbooks(wdestino).Activate como lo  ago  para   asignar la  hoja  de  destino me  envia un error 13  en tiempo  de  ehecucion 
Range("b2").Value = celda1 
Workbooks(worigen).Activate 
celda1 = Range("b5").Value 
Workbooks(wdestino).Activate 
Range("c5").Value = celda1 
Workbooks(worigen).Activate 
celda1 = Range("c2").Value 
Workbooks(wdestino).Activate 
Range("g6").Value = celda1 
End Sub  
   

[a83]

gracias por la ayuda eh solucionado mi reporte

ahora tengo la ultima consulta como se puede sumar esto ej que sume toda la fila y entrege un resultado independiente si en la fia hay numero o nop ( y la cantidad de datos que tenga este reguistro