Andy Machin

¿No es opción hacerlo con una fórmula? Así ni siquiera tienes que darle al botón Calcular, se actualizarían automáticamente según vas cambiando datos: =SI(D3>=Configuracion!$G$3,"APROBADO","DESAPROBADO") Pondrías esa formula en F3 para empezar, y...

Honestamente no comprendo el procedimiento. Tal vez sea mejor que compartas el libro (puedes sustituir cualquier información sensible con información ficticia). O esperamos la respuesta de otro experto.

Hay una discrepancia aquí: Set Celda = Sheets("FACTURA").Range("B6").Value For Each Celda In Rango Así es como yo lo haría: Private Sub CommandButton4_Click() Dim Categoria As String Dim ultimafilabloque As Long Dim Celda As Range Dim Rango As Range...

Cuando quiera dar un mensaje de agradecimiento use la opción de Agradecimiento, no use "Pedir más información" porque se queda abierta la pregunta, y en realidad ya ha sido respondida. También me parece justo que si valora a todos los que...

Lo puedo hacer con una macro, así: Sub Henry() Dim rCell As Range, rRng As Range Set rRng = Range("A1:A3") For Each rCell In rRng.Cells If DateDiff("h", Format(rCell.Value, "hh:mm AM/PM"), Format(Now, "hh:mm AM/PM")) = 0 Then rCell.Font.Bold = True...

Tu código está mal escrito. Lo adapté un poco, pruébalo: Sub btn_Buscar() Application.ScreenUpdating = False Dim Sht1 As Worksheet, Sht2 As Worksheet Dim rCell As Range, rRng As Range Dim uF1 As Integer, uF2 As Integer Dim result As Variant Set Sht1...

Haz el MsgBox vbYesNo y pregunta si tiene una clave de Admin. Si dice SI, abre inputbox o un formulario pidiendo la clave, si es correcta, da el acceso. ¿No te sirve así?

Si te refieres solo a los datos, si se puede. Si con "cualquier cambio" te refieres a cualquier cosa como el color de una celda, el tamaño de una columna, y ese tipo de cosas visuales no (o al menos yo no se como se hace). Para igualar los datos lo...

Llama a esta macro en el evento Change del ComboBox Sub filterByPositivos() Dim pacientes As Worksheet: Set pacientes = Sheets("Pacientes") Dim uF As Integer Dim diagnostico As String, condicion As String uF = pacientes.Range("A" &...

¿Cuál es el resultado que esperas obtener? Creo que lo que quieres es sumar cantidad de horas, y recibir en el resultado pues eso, una cantidad de horas, no un horario. ¿Correcto? ¿Por qué usas VBA? Puedes sumar horas con la formula =SUM() Pero...