Luis Mondelo

Revisa que no tengas espacios delante o detrás de los datos tanto en la matriz como en la celda de búsqueda.

Te mando mi solución: consiste en instalar un formato condicional. Marca el rango F6:K6. Entra en formato condicional----nueva regla----opción fórmula y dentro de la cajita de la fórmula introduce esto: =DERECHA($F$6;3)="-h1" Después tienes que...

Te mando mi solución: Cuando tengas los 4 botones dibujados en la hoja tienes que programar su evento click de cada uno de la siguiente manera: Private Sub ToggleButton1_Click() If ToggleButton1.Value = True Then ToggleButton2.Value = False...

Entonces tu nueva macro quedaría así: Sub colores() 'por luismondelo Range("a4:n4").Select For Each celda In Selection If celda.Interior.ColorIndex = 3 Then rojo1 = rojo1 + 1 End If If celda.Interior.ColorIndex = 14 Then verde1 = verde1 + 1 End If If...

Claro que se puede pero dentro de la macro tienes que desproteger y luego proteger, sería algo así: ... ... sheets("hoja1").unprotect password:="contraseña" ... ... ... sheets("hoja1").protect password:="contraseña"

Te mando la solución a tu ejemplo: Tenemos la columna B con datos diversos y entre ellos se repiten y se repiten contenidos. En la columna C tenemos otros datos... Ahora ejecuta esta macro y todo listo! (En mi ejemplo estamos trabajando en una hoja...

Lo que solicitas se consigue con un buscarv, veamos un ejemplo: Nos imaginamos que los datos ocupan el rango A1:C47 (la primera fila pertenece al encabezado) Ahora en la celda E1 escribe el número 4009 En la celda F1 escribe esta fórmula:...

Para copiar unos datos filtrados previamente con el filtro de excel basta con ejecutar esta macro sin necesidad del xltypevisible. En esta macro también guardamos la ruta y el nombre dentro de la celda F1 de la hoja1 para luego guardarlo en la última...

Te mando mi solución: Ejecuta esta macro y todo el problema solucionado. Sub prueba22() 'por luismondelo fila = 2 dato = InputBox("que vendedor buscamos???") If dato = False Then Exit Sub Set busca = Sheets("hoja1").Range("c5:c" &...

Te mando mi propuesta usando solo el evento worksheet_change sin necesidad de llamar a otra macro: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("e4:e100")) Is Nothing Then Range("e4").Select Do While...