Marcos Vela

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

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

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