Dante Amor

Prueba si lo siguiente es lo que necesitas: Sub Auto_Open() Dim wbPath As String, a1Path As String Dim ruta As String ' wbPath = ThisWorkbook.Path & "\" a1Path = Sheets("Hoja1").Range("A1").Value If Right(a1Path, 1) <> "\" Then a1Path = a1Path & "\"...

¿Y qué necesitas? En tu ejemplo, el código 0328740, no está en la imagen del libro1. ¿Qué debe hacer la macro en caso de que no exista? ¿Qué debe hacer la macro si el código SÍ existe?

Cambia Dim wx As Long Por Dim wx As Double Al momento del error qué valores tienes en las celdas "K"i y "L"i: wx = (h3.Cells(i, "K") / h3.Cells(i, "L"))

¿Y cómo sabes que el empleado1 y el empleado2 pertenecen a la gerencia de sistemas?

Puedes hacerlo con fórmula. En la hoja May, pon la siguiente fórmula en M2 y la copias hacia abajo =SI.ERROR(BUSCARV(L2;InfoRecursos!$A$2:$B$3000;2;0);"") Si lo quieres con macro, entonces: Sub Macro1() Dim lr As Long Dim nombre As String With...

Pon el siguiente código dentro del userform. Cambia "Hoja1" por el nombre de la hoja donde tienes los datos. Dim sh As Worksheet ' Private Sub ComboBox1_Change() Dim col As Long, lr As Long ComboBox2.Clear If ComboBox1.ListIndex = -1 Then Exit Sub...

H o l a y bienvenido a TodoExpertos. Puedes sacar los 3 mejores con una tabla dinámica. Revisa los ejemplos en las siguientes respuestas: ¿Cómo sacar el top de los más repetidos? Como hacer un filtro con ranking Si no es lo que necesitas, entonces...

Prueba lo siguiente: Sub copiar_celdas_diferentes_pegar_otro_libro() Dim archivo As String Dim fso As Object Dim wb2 As Workbook Dim sh1 As Worksheet, sh2 As Worksheet Dim f As Range ' Application.DisplayAlerts = False Application.ScreenUpdating =...

Podrías explicar con un ejemplo qué quieres depurar. Sería genial si lo puedes explicar utilizando una imagen donde se puedan ver los datos de tu hoja. Si son datos confidenciales, cámbialos por datos genéricos. Cómo subir una imagen: Lo que debe...

Al parecer alguna biblioteca o módulo de excel se borró o se modificó. Si entras al Botón de Office. Opciones de excel. Complementos. En la parte inferior presiona el botón que dice "Ir...". En la siguiente ventana, desmarca todos los Complementos y...