Dante Amor

Si tu libro está cerrado puedes anexar una rutina para abrir tu libro, por ejemplo: Sub Verifica_Libro() nombre_archivo = "archivo.xlsm" 'Aquí pon el nombre de tu archivo con todo y extensión ' abierto = False For Each archivo In...

Te anexo una macro, pon tus datos en la columna A, en la columna D te pondrá los únicos y en la E el conteo. Sub Contar_Cup() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row Columns("A").Copy Range("D1") ActiveSheet.Range("D1:D" &...

Para entender o asimilar una función, en ocasiones es preciso separar la instrucción en cuestión, y hacer pruebas de manera independiente. Por ejemplo: Sub Manejo_Top() For i = 1 To 5 arriba = Range("A" & i).Top MsgBox "El top de la fila " & i & " es...

Después de proteger la hoja Agrega esta línea ActiveSheet.EnableSelection = xlUnlockedCells Prueba y me comentas. Si es lo que necesitas, no olvides valorar la respuesta.

Te anexo la macro actualizada Sub Semaforo() 'Por.Dante Amor fecha = Range("I16").Value 'Celda con la fecha fila = 22 'fila inicial de la tabla ult_col = "N" 'última columna de la tabla Do While True If Cells(fila, "A") = "" Then Exit Do If...

Esta línea: archivos = Dir() Debe ir después de esta línea: Contador = contador + 1 Es por eso que que empieza en el archivo 2, ya que lee el primer archivo, pero cuando pones la línea archivos = Dir() pasa al archivo 2. Te anexo la macro con los...

Te anexo una macro, en la columna C te va poner el mensaje en el par de celdas que coincidente Sub Revisar_Duplicados() 'Por.Dante Amor Columns("C").ClearContents fin = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To fin c1 = Cells(i, "A") c2 =...

La macro que pusiste hace otras cosas, mejor explica con detalle, qué libros quieres seleccionar, es decir, todos los de alguna carpeta, tomar la celda b4 de la hoja 3 de cada libro y exactamente en dónde hay que ponerla. Con gusto te preparo la macro.

Siempre debes de hacer referencia al nuevo libro, te anexo un ejemplo: Private Sub CommandButton1_Click() 'copiar datos del libro1 a un libro nuevo Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets(1) 'crea un nuevo libro Set...

Revisa el uso de la fórmula BuscarV https://www.todoexpertos.com/preguntas/5ti8svt3s9iopox9/como-utilizar-la-formula-buscarv Existen varios ejemplos en este foro para que lo puedas adaptar a tu consulta Cómo utilizar la fórmula buscarv También puedes...