EXCELer Tudo sobre EXCEL em Português
Respostas criadas no fórum
-
Artigos
-
boas jorge,
como sempre: certíssimo! só estranho é que o “object library” seja o “ref edit control”…
boas festas aí pelos all garves!
saudações
paulo mónicacomo não consegui inserir a imagem, a janela de erro, para além de “compile error”, indica também “can’t find project or library”.
o código vba para o qual sou remetido é:
—————————————
option explicit
—————————————
sub auto_open ()
call abrir
end sub
—————————————
sub abrir ()
dim mes
dim anomes = month (date)
ano = year (date)
range(“f3”).value = mes
range(“f2”).value = ano
…..
…..
—————————————–jorge,
sim, existe!
ainda no contexto do ficheiro da associação”, a cada novo associado, é necessário efectuar 10 procedimentos, alguns deles no ficheiro xls e outros a nível de notificações escritas em word para várias pessoas/assuntos.
como resumi todas numa msgbox, se ela for automaticamente impressa quando se regista um novo associado, ninguém se esquece do que tem que ser feito.
a alternativa é fazer um print screen, colar por ex no paint e imprimir, mas se houvesse uma forma de imprimir a msgbox, evitava-se muito “trabalho”.ps: se tiveres hipótese, dá uma vista de olhos no post “control de optionbuttons em userforms“.
saudações.
paulo mónicaboas noites pessoal!
alguém tem uma solução para esta questão? :unsure: :unsure: :unsure:
saudações
paulo mónicafunciona na perfeição!!! :woohoo: :woohoo: :woohoo:
só são necessárias umas adaptações que, para quem estiver interessado neste post, estão indicadas no ficheiro anexo como notas iniciais. o restante é o código original do grande mvp ken puls, que pode ser adaptado mediante a necessidade de cada um!saudações excelerianas
paulo mónica [file name=imprimir_pdf_directo.zip size=866]https://www.exceler.org/media/kunena/attachments/legacy/files/imprimir_pdf_directo.zip[/file]
Imprimir_PDF_DIRECTO.zipobrigado jorge,
o comportamento continua a ser o mesmo, aliás se a célula seleccionada não corresponder à linha 67 ou coluna g, pura e simplesmente não há acção nenhuma!
no entanto contornei o problema utilizando inputbox’s “type:=1” para indicar o nº de vezes que o código é repetido e “type:=8” para selecionar o “range” pretendido.gracias.
paulo mónica.
ps: não me esqueci de te enviar os userforms com condições para não correr o código se checkboxes, optionbuttons e textboxes não estiverem preenchidas. brevemente envio-te isso para o teu mail.boas jorge,
consegues arranjar uma solução para a questão abaixo? :s :s :s :silly: :silly: :silly:
saudações.
paulo mónicaboa! :woohoo:
acertaste na “mouche”. como é hábito! só havia uma pequena troca de “true’s” e “false’s”.
ps: qual a diferença de utilizar o me. ou não?e para quem interessar, fica aqui o código adaptado que combina optionbutton’s e textboxes e mais em baixo checkbox’s e textbox’s:
——————————————————-
private sub optionbutton1_change()
if me.optionbutton1 = true then
me.textbox1.enabled = true
me.textbox1.visible = true
else
me.textbox1.enabled = false
me.textbox1.visible = false
end if
end sub
——————————————————
private sub checkbox1_click()
if me.checkbox1 = false then
me.textbox1.enabled = false
me.textbox1.visible = false
else
me.textbox1.enabled = true
me.textbox1.visible = true
end if
end sub
——————————————————-saudações
paulo mónicaboas jorge,
não, porque dei o exemplo da linha 67, mas pode ser a 79, 91, etc., mediante para que associado se está a emitir recibos!
dei a linha 67 só como exemplo. :blush:repetição do post anterior:
“solução da macro ser repetida o nº de vezes do inum resolvi, adicionando vnum = vnum – 1.
o problema agora está descrito a azul abaixo…
——————————————————————–
sub linha_pro_lado()
dim vnum, linhas as long, lin as string
vnum = range(“a66”).value
lin = activecell.row
for linhas = 7 to 18 ‘se não estiver na coluna g (7) a macro começa a ser executada na coluna onde estiver!!
if vnum 0 then
msgbox “valor – ” & activecell.value
activecell.offset(1, 0).select
vnum = vnum – 1
end if
next
end sub
———————————————————————
sub coluna_pra_baixo()
dim vnum, linhas as long, col as string
vnum = range(“a66”).value
col = activecell.column
for linhas = 67 to 78 ‘se não estiver na linha 67 a macro começa a ser executada na linha onde estiver!!
if vnum 0 then
msgbox “valor – ” & activecell.value
activecell.offset(0, 1).select
vnum = vnum – 1
end if
next
end sub
———————————————————————“:blush: :blush: :blush:
nada está errado!!!
o problema está no facto de que só depois desta condição é que há instrução para “mostrar” o userform recibos e poder activar ou não os optionbutton’s a e/ou f.
moral da história, só vou poder utilizar esta condição depois de dar a instrução “recibos.show”…hoje, isto está mesmo mal…
:angry: :angry: :angry:p. mónica
solução da macro ser repetida o nº de vezes do inum resolvi, adicionando vnum = vnum – 1.
o problema agora está descrito a azul abaixo…
——————————————————————–
sub linha_pro_lado()
dim vnum, linhas as long, lin as string
vnum = range(“a66”).value
lin = activecell.row
for linhas = 7 to 18 ‘se não estiver na coluna g (7) a macro começa a ser executada na coluna onde estiver!!
if vnum 0 then
msgbox “valor – ” & activecell.value
activecell.offset(1, 0).select
vnum = vnum – 1
end if
next
end sub
———————————————————————
sub coluna_pra_baixo()
dim vnum, linhas as long, col as string
vnum = range(“a66”).value
col = activecell.column
for linhas = 67 to 78 ‘se não estiver na linha 67 a macro começa a ser executada na linha onde estiver!!
if vnum 0 then
msgbox “valor – ” & activecell.value
activecell.offset(0, 1).select
vnum = vnum – 1
end if
next
end sub
———————————————————————:silly: :silly: :silly: :silly: Óbvio!
o único problema é que a macro é corrida tantas vezes quantas linhas ou colunas estão definidas e não o nº de vezes determinado no vnum (“a66”), como é que limito o número de vezes que a macro é executada ao valor vnum?
gracias
p.mónica
