EXCELer Tudo sobre EXCEL em Português
Respostas criadas no fórum
-
Artigos
-
noel,
julgo que a tua fórmula contém um erro, porque estás a dizer que a célula é absoluta, quando deverá ser relativa, ou seja, em vez de teres a fórmula =cont.se($d$2:$d$17000;$d$2)=1, deverás tê-la assim: =cont.se($d$2:$d$17000;d2)=1
para melhor explicação, reenvio-te a tua planilha com a alteração já feita. de qualquer modo, lê o que diz o seguinte link:
fica bem e diz qq coisa.
PROCV_1_1.xlsmboas, noel
julgo que, melhor do que função procv, é a utilização das funções Índice e corresp.
assim, por exemplo, em vez de utilizares em e9 a fórmula =procv($d9;base.dados.antiga!$a$2:$g$16980;2;falso), poderás utilizar a seguinte:
=Índice(base.dados.antiga!$a$2:$g$16980;corresp(d9;base.dados.antiga!$a$2:$a$16980;0);2) e assim, sucessivamente,para melhor ilustração, reenvio-te a tua planilha com duas linhas alteradas para as novas fórmulas (linhas 13 e 14).
fica bem e diz qq coisa, ok?
olá maria laura,
supondo que o que pretendes é o seguinte:
então, em c1, colocas a fórmula =data(ano(a1);mÊs(a1)+1;0)-a1+1
em d1, colocas a fórmula =dias360(a1;a2)+2
e em c2, colocas a fórmula =d1-c1
para experimentares se dá resultado, altera as datas de a1 e a2.
fica bem e diz qq coisa, ok?
11-12-201219-22-02.jpgolá dina,
talvez assim: =cont.ses(a4:a12;”fechado”;b4:b12;”*amar*”;c4:c12;”*seg*”)
É claro, adaptando para cada situação… diz qq coisa, ok?
fica bem.
olá luiza,
penso que a formula correcta é uma matriz:
{=mÁximo(se($c$6:$c$20=g6;$d$6:$d$20;””))}
a matriz (chavetas) é obtida com as teclas ctrl+shift+enter
depois, copias de h6 até h10.
segue o teu ficheiro de exemplo, com o que descrevi.
fica bem e depois diz qq coisa, ok?
olá, luiza,
podes anexar aqui um ficheiro-tipo, para podermos trabalhar nele? É que é muito mais fácil trabalharmos sobre algo já existente, do que estarmos nós a construir um modelo experimental.
wagner,
o que interessa, é que o resultado seja o esperado. no mais, é uma questão de economia em termos de código. 🙂
wagner,
eu faria assim:
private sub txtvalor1_afterupdate()
txtvalor1.value = format(txtvalor1.value, "#,##0.00")
txtsubtotal1 = txtquantidade1 * txtvalor1
txtsubtotal1.value = format(txtsubtotal1.value, "#,###0.00")
end subprivate sub txtvalor2_afterupdate()
txtvalor2.value = format(txtvalor2.value, "#,##0.00")
txtsubtotal2 = txtquantidade2 * txtvalor2
txtsubtotal2.value = format(txtsubtotal2.value, "#,###0.00")
end subprivate sub txtvalor3_afterupdate()
txtvalor3.value = format(txtvalor3.value, "#,##0.00")
txtsubtotal3 = txtquantidade3 * txtvalor3
txtsubtotal3.value = format(txtsubtotal3.value, "#,###0.00")
end subprivate sub txtvalor4_afterupdate()
txtvalor4.value = format(txtvalor4.value, "#,##0.00")
txtsubtotal4 = txtquantidade4 * txtvalor4
txtsubtotal4.value = format(txtsubtotal4.value, "#,###0.00")
end subdepois, criaria um rótulo (label) no userform e atribuia-lhe o seguinte código, para output no txttotal:
private sub calcula_click()
dim txttotal as double
dim num(1 to 4) as doubleif me.txtsubtotal1.value = "" then
num(1) = 0
else
num(1) = me.txtsubtotal1.value
end ifif me.txtsubtotal2.value = "" then
num(2) = 0
else
num(2) = me.txtsubtotal2.value
end ifif me.txtsubtotal3.value = "" then
num(3) = 0
else
num(3) = me.txtsubtotal3.value
end ifif me.txtsubtotal4.value = "" then
num(4) = 0
else
num(4) = me.txtsubtotal4.value
end iftxttotal = num(1) + num(2) + num(3) + num(4)
me.txttotal.value = format(txttotal, "#,##0.00")
end sub
envio a planilha com isto que testei:
diz qq coisa, ok?
fica bem.
ContasTextBox1.xlsmolá wagner e rasgomes,
wagner:
se fosse eu, não criaria um userform. atribuia ao botão de comando existente na planilha, o seguinte código:
sub marca()dim mynumber as string
dim mydate as date
dim mycol as range
dim myrow as rangeactiveworkbook.sheets(2).activate
mynumber = inputbox("digite o nº de código da coluna a")
mydate = inputbox("digite a data incluída na linha 1")set myrow = columns(1).find(mynumber)
if myrow is nothing then msg = vblf & mynumber
set mycol = rows(1).find(mydate)
if mycol is nothing then msg = msg & vblf & mydate
if msg = "" then
intersect(myrow.entirerow, mycol.entirecolumn).activateactivecell.formular1c1 = "x"
else
msgbox "não existe" & msg
end ifend sub
mas, há sempre um mas… as datas teriam que ser devidamente digitadas como tal e não através de fórmula (como está na planilha). ao colocar data em cada célula da linha 1 onde se pretende ter data, a pesquisa é muito mais simples.podes experimentar o código que coloquei?
rasgomes: estás a falar de excel puro e duro ou vba? há muita coisa boa, mesmo escrita em português, para as duas vertentes.
boas, marlon,
experimenta, em a4: =se(e(ou(a1=”teste1″;a1=”teste3″);mÊs(a2)=10);a3;””)
depois, é só copiares para as células onde pretendes ter resultado.
fica bem e diz qq coisa, ok?
olá, luís!
bom, uma das hipóteses, é com a utilização da formatação condicional.
em primeiro lugar, marcas as linhas que pretendes vincular à formatação condicional. no exemplo, são as primeiras 10 linhas:
depois, cria uma nova regra em formatação condicional, como é descrito na imagem seguinte:
a regra ficará assim, como é representado na imagem seguinte:
para finalizar, sempre que preenchas na coluna a cada célula com o valor 1 (no exemplo, como foi referido, até à linha 10), a linha ficará colorida, como podes ver na imagem seguinte:
espero que tenha respondido à tua questão.
wagner,
talvez antes do segmento:
vdata = dtpicker1.value.
se colocares este:
dtpicker1.value= date
pode ser que dê resultado.
wagner,
vê a planilha. o código, tem lá uma nota minha. vê se concordas.
fica bem.
