Luis Mondelo

Tomo tu asunto para ayudarte, Un momento

Entonces supongo que en la celda A15 tienes escrito el path completo de esa carpeta incluida la contrabarra del final, si fuera así, la macro queda así: (Por lo que veo en la celda A6 está el nombre del archivo) Sub savepdf() ' ' savepdf Macro '...

He podido apreciar que anteriormente a esta pregunta formulaste otra y no te molestaste en cerrarla, eso no está bien... Si quieres que te ayude mándame el archivo con los datos de ejemplo y POR FAVOR, recuerda finalizar las consultas

Si me mandas un archivo excel con el ejemplo de datos te podré ayudar mejor [email protected]

Ok, tomo tu encargo y luego te lo mando

En el siguiente enlace te dejo tu archivo con la solución http://share.cx.com/z9Lqg8 No olvides finalizar la consulta

Te mando mi solución, ejecuta esta macro en tu archivo y todo listo Sub ejemplo() 'por luismondelo Range("a65000").End(xlUp).Offset(1, 0).Value = "end" Range("a3").Select Do While ActiveCell.Value <> "end" contarsi =...

Esta es la fórmula que tienes que escribir en la celda G70 y luego la arrastras a todas las demás, hacia arriba y hacia abajo =si(y(e70="";f70="");"";g70+e70-f70)

Te mando la solución. Me supongo que los datos están desde F1 a F10. Escribe esta fórmula en la celda E1 y luego arrastrala hacia abajo. =SI(Y(F1=1;CONTAR.SI($F$1:F1;1)=1);"si";"")

Te mando mi solución con esta macro: Sub ejemplo() 'por luismondelo tope = Range("ah19").Value if tope = "" then msgbox "no han nada anotado en la celda AH19" exit sub end if For Each celda In Range("b2:p" & tope) celda.Value =...