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
  5. Perfecto , le estoy acomodando las tablas en que lo tenga lo comparto. gracias
  6. Exactamente eso necesito. Solo que en vez de en el botón calcular en el de añadir
  7. Buenos días a todos Pueden indicarme como preparar una macro para que me devuelva la coincidencia de un resultado y este lo múltiple por un factor según el dato seleccionado. Me explico: En el combobox 3 selecciono “EMBRIDADO” y en el combobox 4 selecciono “1”, la selección del combobox 3 tendría que buscarla en la columna A filas de la 13 a la 19 y la selección del combobox 4 lo buscaría en la fila 13 de la columna B a la S. El resultado sería de “0.6”. Este resultado se tendría que multiplicar según lo seleccionado en el combobox 5, si en el combobox 5 seleccionamos “30
  8. Buenos días Tengo una duda de si se puede hacer un multiplicación con vba solo cuando aparezcan unos valores determinados. Me explico: En el combobox1 tengo una selección ( montar cabezal) en el combobox2 tengo seleccionado (0.75)y en el combobox3 tengo seleccionado (48). La idea es que la formula actuara solo cuando apareciera esa selección en el combobox1. " montar cabezal = 48*0.75*0.25"-(0.25 es una constante) . Este resultado se mandaría a una columna de un listbox Gracias de antemano
  9. Buenas he estado buscando alguna macro para guardar en un mismo pdf, dos hoja del mismo libro excel y no encontré nada. Puede ser que no se pueda hacer?
  10. Pueden instruirme para realizar una macro para volcar datos de el libro1 al libro2 eliminando los duplicados del libro2 en la columna A.
  11. Buenos días tengo un archivo que relleno una solicitud , me guarda los datos y luego me manda un pdf con la solicitud rellenar. No se por que de repente no me adjunta dicho archivo. Les adjunto el archivo, espero puedan ayudarme. Pruebas_Solicitudes id5500_2019 - copia.xlsm
  12. Buenos dias Tengo una rutina que me guarda los datos de un formulario a dos hojas excel dentro del mismo libro y necesitaría que en esa misma rutina me creara un archivo pdf con el nombre del label "lb_parte" Private Sub Imprimirparte2() Dim final As Long Dim fila As Integer With ThisWorkbook .Sheets("PARTE DE TRABAJO").Range("r2").ClearContents .Sheets("PARTE DE TRABAJO").Range("d2").ClearContents .Sheets("PARTE DE TRABAJO").Range("g2").ClearContents .Sheets("PARTE DE TRABAJO").Range("l2").ClearContents .Sheets("PARTE DE TRABAJ
  13. Al rellenar el frm_parte dejamos el tercer combobox de ejecutores vacios y damos al boton guardar/imprimir los datos del formulario se mandan a un libro llamado parte_tmp , los datos de los combobox de ejecutores van a las celdas b8 , b10 y b12 respectivamente. pero como puedes ver en tercer combobox esta vacio y me sale un 1 cuando deberia ser cero.
×
×
  • Create New...

Important Information

Privacy Policy