Tor Cheer

Vaya ejecutando el código paso a paso y vea los valores que traen las variables, y vea si existe la 3a columna de esa manera podría encontrar el error. También si puede compartir una imagen de sus datos donde se busca y la macro que funciona y la que...

Puede brindar más información. ¿El dato a buscar tiene una o más condiciones?, ¿Una vez encontrado se copiara en una hoja nueva?, ¿El dato a buscar esta repetido? ¿Se copiaran todos los datos del registro encontrado?, si muestra una imagen de sus...

Con esta macro pude cambiar el color Sub CambiarColor() Cells(5, 7).CurrentRegion.Select With Selection.Font If Cells(1, 1).Value = 1 Then .Color = vbWhite TintAndShade = 0 Else .Color = vbBlack .TintAndShade = 0 End If End With Range("A1").Select End Sub

Con esta macro que es parecida a su anterior pregunta. Considere lo siguiente: Si el valor de la celda tiene diferente al numero 1 la forma la dejará transparente, si quiere que unicamente sea el numero 1 la macro le funcionara, en caso de que se...

Puede compartir una imagen de sus datos, su formulario y la macro que ya tiene para intentar completar lo que le hace falta

Con esta macro guarda la hoja1 con el nombre de la hoja1 en la misma ubicación del archivo con formato .xls como esta en el código Sub GuardarHoja() Dim Nombre As String Nombre = ThisWorkbook.Path & "\" & Sheets("Hoja1").Name & ".xlsx"...

EM se te extrañara muchísimo porque aportas mucho a la comunidad, pero si es necesario deseo que todo este bien con los tuyos, un saludo fraterno para ti. A tu regreso seras bienvenida!

Intente con esta macro Sub CambiaColor() With Range("E5").Interior clr = Range("E5").Interior.Color If .ColorIndex <> xlColorIndexNone Then ActiveSheet.Shapes(1).Select Selection.Interior.Color = clr End If End With End Sub

Puede compartir un imagen de sus datos para darle una respuesta más cercana a lo que necesita

Esta macro ordena con 2 criterios, actualiza el rango de a partir de que celda empiezan sus datos, y hasta que celda finalizan sus datos y el nombre de la hoja, ojala pueda adaptarlo a sus datos. Cualquier cosa comenta. Sub Ordenar1()...