Jump to content

Juan Carlos torres ruiz

Members
  • Content Count

    23
  • Joined

  • Last visited

About Juan Carlos torres ruiz

  • Rank
    Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Muchas gracias , ya no da ese error. Estoy duplicando la macro para que rellene mas hojas del archivo y me encuentro que que los datos de la celda h3 en la hoja ot2 se copia lo mismo que en la hoja ot1 . Sub MetodoAbrirLibro() Dim rngCopy As Range, rngOT1 As Range, cel As Range, adres$ Dim wbOr As Workbook, wbDes As Workbook Application.ScreenUpdating = False Set wbOr = ThisWorkbook Set wbDes = Workbooks.Open("C:\Users\jctorres\Desktop\pruebas partes automaticos\C2020-0138_Carga_Horas (1)2.xls") With wbOr.Sheets("EPYC") .Range("A8:F78").Copy wbDes.Sheets("Personal").Range("
  2. Toda la razón que tienes. Ahora que he pasado la macro al archivo original , me aparece este error, y por mas que le doy vueltas no consigo ver el falloPARTE DE TRABAJOS EE-IIjctorres.xlsm
  3. Buenas , muchas gracias, me da un error con las celdas combinadas el resto lo hace perfecto. te adjunto los archivos. Gracias de buevo. Sl2 C2020-0138_Carga_Horas (1)2.xls PARTE DE TRABAJOS EE-IIjctorres.xlsm
  4. Buenos días Podríais ayudarme a refinar esta macro que realice con la grabadora. Gracias Sub MetodoAbrirLibro() Workbooks.Open "C:\Users\jctorres\Desktop\pruebas partes automaticos\C2020-0138_Carga_Horas (1)2.xls" Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("A8:f78").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("Personal").Range("A8:f78").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("F2").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate
×
×
  • Create New...

Important Information

Privacy Policy