Marcos Vela

Por qué no usas la función contar. Si =contar.si(rango, creterio "fecha").

No he probado como se comporta la macro, pero por que no pruebas cambiando el "do White - loop" por un "While - wend", do While primero ejecuta y después analiza, y While primero analiza y después ejecuta. Espero te sirva, si no me dices y lo...

No soy Dante Amor, pero si lo que necesitas es restar fechas creo que te puedo ayudar. Existe una fórmula llamada dateadd, Por ejemplo pones fecha2 = dateadd("d", -15, range("w"&fila)) Y ya fecha2 la puedes mandar donde gustes.

Luis que tal, he probado tu macro y por lo menos a mi no me trabaja lento, pero si deseas optimizarla un poco puedes hacer mas directas algunas instrucciones en lugar de seleccionarlas y luego darles la acción. Te dejo el ejemplo de como quedaría Sub...

Primero que todo un saludo. Imagino que lo que deseas es una macro para saludar de acuerdo a la hora. De ser así te recomiendo lo siguiente: Modulo 1 Sub Auto_Open() Dim hora as double Dim saludo as string Hora = (now - int(now)) * 24 Select case...

If cliente = Cells(i, "B").Value Then codigo = Cells(i, "D").Value End Next Cells(ultimafila, 5).Value = codigo End Sub En la última macro, en esta parte del código que he citado, realmente debe ir el "End", si lo colocas no sirve de nada el Next que...

Creo tener la respuesta. Te explico: a cada textbox le debes asociar una label en la cual se escribirá el "*" o el "ok". Para que cuando inicie la userform siempre aparezca esto debes usar el evento "activate". Quedaría así Private Sub...

El código es muy sencillo, quedaría de la siguiente manera: If weekday(Date, vbMonday) = 6 then Macro1 Else Macro2 End if

No entendí muy bien que es lo que deseas, pero si lo que quieres es bloquear y desbloquear una hoja puedes usar lo siguiente : Para bloquear la hoja Sheets("hojaabloquear"). Protect "contraseña" Para desbloquear la hoja Sheets("hojaadesbloquear")....

La manera más fácil que se me ocurre es la siguiente estructura: En el libro x poner el código: sheets("hojax"). Range("rangox"). Copy Workbooks ("libroy.ext").sheets("hojay").range("rangox").pastespecial El ext hace referencia a la extensión con la...