[Albino]

boas
jorgerod.

a tua solução depois de efectuar algumas alterações ao código está a funcionar como eu pretendia.
para o caso de te interessar colo aqui a alteração ao código que adaptei para os meus propósitos.

sub svme()

‘saves filename as value of a1 plus the current date

dim newfile as string, fname as string

‘ don’t use “/” in date, invalid syntax
fname = range(“l2″).value

‘change the date format to whatever you’d like, but make sure it’s in quotes
newfile = fname & ” ” & format$(now, “dd-mm-yyyy hh-mm-ss”)

‘ change directory to suit your pc, including user name
chdir _
“c:documents and settingsalbinoambiente de trabalhotemppaulo”

‘[desactivei esta instrução porque o intuito era gravar em pdf e não xls]
‘activeworkbook.saveas filename:=newfile

with activesheet
.exportasfixedformat _
type:=xltypepdf, _
filename:=newfile, _
openafterpublish:=true
end with

end sub

obrigado

[Albino]

boas.

leandro
deu resultado está a funcionar bem.

[Albino]

boas noites

a do leandro é o que eu já tenho

wagner
a tua solução é a que eu procuro, no entanto não assume o nome que se encontra na célula l2, grava o ficheiro onde pretendido mas com o nome (sha) ………pdf

coloco aqui o código todo, pois talvez eu esteja a fazer algo errado.
eu tinha este código adaptado por mim.

sub imagem4_clique() ‘troquei aqui o sub salvar() porque coloquei uma imagem para activar a impressão e atribui-lhe esta macro.

sheets(“folha1”).select
application.dialogs(xldialogprintersetup).show
‘activewindow.selectedsheets.printout copies:=1

dim svinput as string

dim sha as string

‘aqui vc coloca a célula desejada
sha = “l2”

svinput = “c:documents and settingsalbinoambiente de trabalhotemppaulo(sha) ” & format(now, “dd-mm-yyyy hh-mm-ss”) & “.pdf”

with activesheet
.exportasfixedformat _
type:=xltypepdf, _
filename:=svinput, _
openafterpublish:=true
end with

end sub

comenta
obrigado

[Albino]

boas
wagner
obrigado funcionou na perfeição.

já agora uma outra duvida um pouco desfasada do tópico, mas talvez saibas me esclarecer.
É o seguinte num código vba tenho a indicação de gravação de um ficheiro numa determinada pasta com o nome escolhido por mim

“”c:documents and settingsalbinoambiente de trabalhotemppauloextemporânea ” & format(now, “dd-mm-yyyy hh-mm-ss”) & “.pdf”

o ficheiro gravado sairá com o nome “extemporânea 12-12-2011 21:32:14” o que eu pretendia era que esse código fosse buscar o primeiro nome a uma determinada célula, por exemplo em vez de ser “extemporânea” ser o nome que estaria na célula l2 da folha1e tudo o resto igual, ficando portanto “(nome de l2) 12-12-2011 21:32:14”.

obrigado

[Albino]

jorge
esse raciocínio está correcto, mas o que mais me interessa de momento não é o resultado do montante em euros mas sim o nº de horas total.
esse numero tem de ser expresso em 00h,00m.
portanto de momento queria que soma no final em ar22 devolvesse o resultado de 46h,45m
o calculo do pagamento é um extra adicionado para meu controle.

[Albino]

ola jorge

a coisa está difícil.
há uma hipótese que está quase [=tempo(hora(ar18);marred(minuto(ar18);30);0)] (alterei o 30 para 1), não fosse o facto de apresentar um valor não desejado.
aquando da conversão uma das formas aumenta e a outra diminui o tempo.

envio em anexo o ficheiro com as duvidas ilustradas.

AcompanhamentodeDoentesExperi-Lamego_2011-07-07.xlsx

[Albino]

boas.
jorge.

o que eu pretendo é que na célula ar22 sejam somadas todas as horas das células acima (ar12:at21) que no caso seriam 44.30h

se reparares a soma do intervalo (ar17:at21), apresenta valores errados deveria devolver 24.30h e não 00.30h.

em ar21 eu pretendo valores de horas efectivas ou seja nº de horas real e não dias.

se for relevante, pagam ao minuto ou seja se eu fizer 3h.15m pagaram as 3h .15m , mas normalmente arredonda-se sempre para as 1/2 hora, logo será metade do valor/hora.

desculpa lá a maçada.

albino

[Albino]

olá, então já conseguiram ver o meu ficheiro??

albino

[Albino]

boas jorgerod
via a tua solução, mas não se encaixa no meu ficheiro, pelo menos eu não vejo como.
vou tentar enviar o ficheiro novamente

a folha tem de ter mesmo aquela formatação e ter horas de entrada e saida, com soma do total de horas.
AcompanhamentodeDoentesExperi-Lamego.xlsx
AcompanhamentodeDoentesExperi-Lamego.zip

[Albino]

coloquei o ficheiro num zip e em rar,
fiz procurar imagem, apareceu o caminho da mesma e cliquei no zip e a seguir em [image] á frente do “procurar” enviei e nada
.

[Albino]

vamos se é desta

[Albino]

carago então não é só clicar no “seleccionar um arquivo para anexar” ?
procurei o ficheiro e carreguei em enviar
não apareceu nada.
que fiz de errado?

[Albino]

vou tentar
aqui vai

[Albino]

jorgerod
essa formatação já usei e nada.
na célula ar22 aparecem-me valores sem nexo. 595:30:00h, quando deveria aparecer 43.30h
já agora o ficheiro que enviei conseguis-te ver??

[Albino]

boas.
cá estou eu de novo por causa das horas.
em relação á duvida anteriormente colocada, a mesma ficou resolvida em parte.
o problema é o seguinte, quando as horas introduzidas na folha ultrapassam as 24h 00:00h, o excel assume um comportamento esquisito.
na soma dá resultados que não têm nada a ver com o pretendido.
ex: se numa das linhas colocar saída 21:30h e chegada ás 01:30h o resultado esperado está correcto 04:00h, só quando esse resultado vai ser somado ás outras linhas fica tudo sem nexo(digo eu).
de referir que se as horas estiverem todas compreendidas antes das 00:00h a soma é correcta.
vou mandar ficheiro para se possível analisar.

[Autor]

Artigos