UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

fredynixon


Cordial saludo

realmente soy nuevo en macros , aki dando mis primeros pasos tengo un problemilla por solucionar , sabre agradecer al que me ayude .
 tendo 2 libros y necesito copiar informacion del libro2 al libro 1 , pero el libro 1 ejecuta automaticamente un formulario y hasta que no lo cierre no me permite copiar la informacion del libro2 , esto lo quiero hacer automatico desde una macro que se ejecuta desde el libro 2, el formulario se llama frmMenu
no se si soy claro .
tengo este macro si desactivo las lineas de inicio automatico del formulario del libro 1 me funciona sin problema

Sub trasladar()
'
' trasladar Macro
    Dim n As Long
    Dim f As Integer
    Dim UltLinea As Long
   
    Windows("PROCESOS ACTUALES.xlsm").Activate
    Sheets("OLEANO").Activate
    f = Cells(Rows.Count, 3).End(xlUp).Row
    Cells(Rows.Count, 3).End(xlUp).Select
    Range(Cells(f, 3), Cells(f, 7)).Select
    Selection.Copy
    Workbooks.Open("Z:\factura.xlsm").Unprotect "luzmila"
     
    Worksheets("FAC-PENDIENTE").Activate
    Range("B1").End(xlDown)(xlDropDown).Activate
    'ActiveSheet.PasteSpecial Paste:=xlPasteValues
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Workbooks("factura.xlsm").Close Savechanges:=True
    Windows("PROCESOS ACTUALES.xlsm").Activate
End Sub

de antemano muchas gracias

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.