Marcos Vela

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

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

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

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

Deja ver si entiendo, tienes actualmente un libro con las macros que ejecuta acciones en otro libro. ¿Es así?

Puedes dar más información de favor, no entiendo muy bien que quieres. Ahí estas copiando de la celda"a" a la "m"

Porque no pruebas cambiando la estructura del borrado. Sugiero que pongas una string directamente. Así: Sheets("planilla").Range("B8:AO5000).ClearContents