ENTRAR EN EL FOROHACK ANTIGUO (Muchos temas viejos y de menor nivel)
17:36:03 11/04/2021
¿No estas registrado?
Login: Clave:
2 Usuarios en línea: 0 registrados, 2 invitados.
Conéctate y verás los usuarios en línea
Tema: Programacion en Excel
    Responder
Todos Los Foros -> Programación en General -> Programacion en Excel
Autor Mensaje (Ver Versión para Imprimir)
chronotraveler
Usuario novato

Mensajes: 3
Registrad@:
06/07/2009
Estado: Desconectad@
Programacion en Excel

Hola que tal!! Bueno, les comento lo que pretendo hacer:
   Intento hacer, que mediante una macro, se pasen datos de varios libros de excel al libro en el que se ejecuta la macro.

   Es decir, que la informacion que se encuentra en la celda C12 del libro ubicado en: C:\Documents and Settings\servidor\Mis documentos\Abril 2011\01 de abril 2011.xlsx, se pase a la primera hoja de un libro ubicado en: C:\Documents and Settings\servidor\Mis documentos\reporte mensual\abril2011.xlsx, en la segunda hoja del libro llamado abril2011.xlsx, se pase la informacion de la celda C12 del libreo ubicado en: C:\Documents and Settings\servidor\Mis documentos\Abril 2011\02 de abril 2011.xlsx y asi sucesivamente

   Ademas, crear un cuadro de texto en donde se coloque el nombre del mes que se necesita, es decir, si en el cuadro de texto coloco "enero", la macro busque en la carpeta de enero los datos solicitados, si se coloca marzo, busque en la carpeta de marzo los datos solicitados, y asi sucesivamente.

   Les agradezco su atencion y la ayuda que puedan brindarme.

Mensaje Editado el 22:42:41 23/06/2011

Hola, que tal, solo para informarles que ya consegui lo que buscaba, o casi, el codigo seria algo asi:

CITA

Sub valor_celda()
Dim mes, libro_fuente, libro_destino As String
On Error Resume Next
mes = InputBox("Escribe el nombre del mes a buscar", "Buscar mes")
libro_fuente = "E:\RESPALDOS CENTRAL\RESPALDOS 2011\ARCHIVO DE REPORTES\REPORTE DIARIO\VE\" & mes & " 2011 VE\" & mes & " 01 DE 2011 VE" & ".xlsx"
libro_destino = ThisWorkbook.Name
Application.ScreenUpdating = False
Workbooks.Open(libro_fuente).Worksheets(1).Range("Q19:T19").Select
Selection.Copy
Workbooks(libro_destino).Worksheets(1).Range("A1").PasteSpecial
Application.Workbooks(libro_fuente).Close
Application.ScreenUpdating = True
Application.CutCopyMode = False
If Err.Number = 1004 Then
      MsgBox ("El archivo no existe")
End If
End Sub


Sin embargo, aun tengo alguno problemas, para comenzar, si en el inputbox que tiene asignada la variable "mes" escribo mal el nombre del mes, no me muestra el mensaje de que "el archivo no existe", ademas, el libro fuente, no se cierra despues de copiar los datos.

Les agradecere mucho si pueden ayudarme
20/06/2011 20:30:02 


REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)

Copyright ForoHack.com