[jorgerod]

fransil,

vais a adixcionar ficheiro, procuras o dito e depois de o teres no campo à vista, clicas em inserir. há-de aparecer no corpo do texto um texto mais ou menos como este:

“attachment:nomedoficheiro.xlsx attachment”

se assim for, quando enviares a mensagem (submit) (que não pode ser proveniente do item resposta rápida, mas sim do item responder), o ficheiro também virá. mas atenção, se o formato for xlsm ou coisa do género, é melhor zipá-lo primeiro, senão não aceita o envio (se não estou em erro)…

[jorgerod]

não veio… 🙁

[jorgerod]

fransil,

não enviaste o ficheiro…

[jorgerod]

boas, albino,

se bem te recordas, isto já remonta ao longínquo ano de 2006 (novembro, se não me engano)… :cheer:

bom, o código é este eu se segue. É só adaptares. se conseguires e vais conseguir, podes depois colocares o teu material aqui para os vindouros, que achas? ah…. se quiseres, posso aqui colocar o ficheiro, claro…

um abraço.

jrod

código:

private sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)
set rng1 = activecell ‘clicar duplamente sempre numa célula da coluna a,
‘para que a função offset() possa indicar o número da célula pretendida
set rng2 = rng1.offset(0, 2)
set rng3 = rng1.offset(0, 5)
set rng4 = rng1.offset(0, 10)

rng3.copy destination:=worksheets(“factura”).range(“f6:j6”) ‘ este range é porque são merged cells
rng2.copy destination:=worksheets(“factura”).range(“f10:j10”) ‘ igualmente
rng4.copy
worksheets(“factura”).range(“h14”).pastespecial (xlvalues) ‘não altera a formatação no destino

range(“a1”).select ‘ esta selecção de a1, é apenas para desactivar a activecell
end sub

[jorgerod]

guimarães, podes enviar um projecto de planilha, na qual coloques o que pretendes? acho que ficaria um pouco mais perceptivel o que pretendes.

fica bem.

[jorgerod]

boas, albino,

experimenta:

sub pesquisar_click()
dim myname

with sheets(2)

.autofiltermode = false

range(“a2:m700″).select
myname = inputbox(prompt:=”digite o número da factura para filtro ou carregue em ok para remover filtro”, title:=”filtra por numero da factura”)

if myname = “” then
selection.autofilter
range(“a1”).select
else
.range(“c2”).autofilter field:=3, criteria1:=myname, operator:=xland

.activate

range(“a1”).select
end if
end with

end sub

diz qq coisa, ok?

se resultar, o aparecimento dos dados na folha 1, é semelhante aquela folha chamada “infantário”, não sei se te lembras, o que fizemos há uns anos… 🙂

se não te lembrares, diz, pq eu acho que ainda tenho o código que transporta a informação para os campos pretendidos… 😉

[jorgerod]

albino,

se o que te interessa é encontrares , na filtragem, os registos que tenham o item “devolvida”, penso que, numa primeira fase, se poderá fazer o seguinte:

sub pesquisar_click()

with sheets(2)

.autofiltermode = false

.range(“m2″).autofilter field:=13, criteria1:=”devolvida”
.activate
end with

end sub

diz qq coisa, ok?

[jorgerod]

albino,

quanto ao problema do botão, acho que está resolvido. experimenta com este código:

private sub commandbutton1_click()

sheets(“folha1”).select
range(“az2:bm2”).copy

with sheets(“folha2”)
.range(“a” & .rows.count).end(xlup).offset(1, 0).pastespecial xlpastevalues
end with

sheets(“folha1”).select
range(“e2,r2,ac2,e5,e7,e9,m7,m9,u7,u9,ac7,g11,l11”).select
selection.clearcontents

sheets(“folha1”).range(“e2:l2”).select
end sub

quanto ao resto, vou ver, ok?

diz qq coisa.

[jorgerod]

boas, albino,

coloca aqui a planilha com as duas hipóteses, para se poder verificar melhor quais serão as diferenças, ok?

[jorgerod]

devolvo-te o ficheiro, com as alterações, que se limitaram à alteração da coluna “a”, para a coluna “b”. e resultou.

experimenta novamente, agora com o código como está.

diz qq coisa, ok?
Livro1.xlsm

[jorgerod]

fogaceiro,

experimenta este código simples, mas eficaz, com necessária adaptação:

sub numbersonly()
dim i, lastrow
lastrow = range(“a” & rows.count).end(xlup).row
for i = 1 to lastrow
for j = 1 to len(cells(i, “a”))
if isnumeric(mid(cells(i, “a”), j, 1)) then
newval = newval & mid(cells(i, “a”), j, 1)
end if
next j
cells(i, “a”).value = newval
newval = “”
next i
end sub

fica bem e diz qq coisa, ok? se tiveres dúvidas em como efectuar a adaptação, coloca aqui uma planilha com exemplo. 🙂

[jorgerod]

fixe, wagner!!!! ainda bem!!!

um abraço.

[jorgerod]

olá wagner,

talvez alterar nas propriedades do textbox, os itens enterkeybehavior property e multiline, de false para true:
11-02-201314-17-26.jpg

[jorgerod]

obrigado wagner, por continuares a partilhar com todos a tua experiÊncia !!!!! 🙂

[jorgerod]

mário,

para valores negativos, é só adaptar noutra célula, a fórmula anterior, ou seja:

={mÁximo(se(c2:c16>=g4; se(c2:c16<=g5;se(d2:d16<0;d2:d16))))}

claro, como array que é , é obrigatória a utilização das teclas ctrl + shift + enter., para dar as {}

fica bem e diz qq coisa, ok? 🙂

[Autor]

Artigos