Andy Machin

Todoexpertos me ha notificado que has hecho esta pregunta para mí. Rafael Cruz te dio la respuesta correcta. CountIf es el método más usado, no es el único pero hace lo que necesitas. PD: Mirando tu código de insertar los datos en la hoja, te diría...

No estoy en casa hoy hasta la noche y no tengo acceso a una PC, pero te dejare una idea por si otro experto te puede responder antes. Te había dicho que usando Transpose lo podías hacer, pero pensándolo bien, lo mejor es que coloques el rango a...

Te hice la macro. Para que funcione, es necesario que al seleccionar la hoja del combobox, se active dicha hoja, ya que no se como está hecho tu combobox, hice el código basado en la hoja activa (ActiveSheet) así que asegúrate de que se active la...

Si lo que quieres es que se abra la ventana de "Guardar Como" para que te deje elegir una carpeta, pero quieres que ya aparezca una ruta predefinida para ahorrar tiempo y el nombre predefinido, en vez de usar ActiveWorkbook. SaveAs usarías...

¿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...

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í?