Elsa Matilde

No alcanza con dejar las opciones de orden a la hora de proteger (?) Así que deberás incluir las instrucciones para desproteger, ordenar y volver a proteger con las mismas condiciones que ya las tendrás. Ej: Private Sub ORDENAR_Click()...

Se hace interminable, porque controlás siempre la misma celda. Si Cells(r, 57) = "AI" entonces ya no tomará ninguno de los otros valores,... no hace falta consultar. Podrías colocar a continuación de cada Delete : Goto sigo Por ej: If UCase(Cells(r,...

Te respondo solo para que no te quedes esperando en vano... te equivocaste de categoría, aquí estamos en Software/Excel. Debieras finalizar aquí y buscar la categoría correspondiente aquí.

La macro 'luce' bien, pero qué significa: '... pero funciona del 100...' Lo que le haría falta es darle un límite para que no te revise hasta la última fila de la hoja (dependiendo de la versión Excel puede llegar hasta + de 1 millón). Quedo atenta a...

Para no intentar con algo no seguro, mejor aclarame x favor si SOLO habrá un cuadro de verificación o varios en distintas ubicaciones. Los cuadros se colocan 'por encima' de las celdas aunque te esfuerces en dejarla justo en su lugar. Pero tiene la...

Tu rutina, para dejar un mensaje en celda adyacente quedaría así: Private Sub Worksheet_Change(ByVal Target As Range) Rango = "B1:B50" If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then Target.Offset(0,1) = "PAGADO" End If End Sub...

Ya descargué tu libro y te prepararé una solución 'sin macros'. Dejame un correo tuyo o escribime al mío solicitando el libro resuelto. (Podes copiar el correo que aparece en mi sitio que dejo al pie)

Ejecutá nuevamente el proceso y cuando se detenga con el error, presioná el botón DEPURAR para que te lleve al Editor y puedas indicarnos en qué línea se detuvo. Ese error, tal como se menciona, tiene que ver con que estás enviando datos de otro tipo...

Si en lugar de texto, necesitas evaluar que sean valores sería así: If Target.Value >= 3 Then macro1 else 'aquí los menores a 3 macro2 End if Si esto resuelve tu problema, no olvides finalizar la consulta. Sino solicita aclaraciones y seguimos...

Podes utilizar la instrucción: Set busco = sheets("tu_hoja").Range("col a buscar").Find(textbox1,lookin:=xlvalue,lookat:xlwhole) 'si lo encontró if busco is nothing then 'busco la 1º fila libre libre = sheets("tu...