Dante Amor

1. Los libros están todos es una carpeta que se llama Parte Diario ¿Cuál es el nombre completo de la ruta y carpeta? 2. La hoja que deseo consolidar de cada libro contiene las siglas "PD" y puede tener filas y columnas ocultas que NO DESEO...

Asumiendo que tus datos empiezan en la celda A2 Prueba la siguiente macro: Sub EmpresaMes() 'Por Dante Amor Dim dic As Object Dim c As Range Dim a As String, cad As String Set dic = CreateObject("Scripting.Dictionary") For Each c In Range("A2",...

Pon tus marcas en la columna L y los modelos en la columna M: Prueba con la siguiente macro, si tus datos empiezan en la celda A5, los resultados en B y C. Sub Marca_Model() 'Por Dante Amor Dim a As Variant, b As Variant Dim i As Long, j As Long a =...

Pon aquí tus códigos, tal vez alguien te los convierta sin costo.

Puedes describirlo con un ejemplo. Nota: Una cosa que debes tener en cuenta cuando haces una pregunta en un foro ... las personas a las que solicitas ayuda no saben absolutamente nada acerca de tus datos, absolutamente nada sobre cómo están en el...

Marcas la opción "Permitir eliminar filas" para que tengas acceso a la función eliminar filas, pero para poder eliminar una fila, todas las celdas de esa fila deberán tener desmarcada la opción Bloqueada. Pero si las celdas tienen desmarcada la...

Ejecuta la macro proteger para hacerlo con todas las hojas del libro. También te pongo la macro des_proteger, en caso de que la necesites, para desproteger todas las hojas. Sub proteger() Dim sh As Worksheet For Each sh In Sheets sh.Protect...

Te refieres a esto: Workbooks.Open archivo, UpdateLinks:=0

Si las fechas están ordenadas de menor a mayor. Pon la siguiente fórmula en H2 y copia hacia abajo: =SI(C2=BUSCAR(2,1/($F$2:$F$99=F2),$C$2:$C$99),"Last day","") Según tu imagen los datos están ordenados por Nombre y después por Fecha. Si es así,...

Prueba así: WINDOWS(Range("B2"). Value). Activate