jorgerod

Respostas criadas no fórum

A visualizar 15 artigos - de 76 a 90 (de um total de 487)

← 1 2 3 … 5 6 7 … 31 32 33 →

Autor

Artigos
4 de Setembro de 2013 às 15:09 em resposta a: Impedir alteração de linha #2248

jorgerod
Administrador

albino,

sem ter experimentado, tenta:

set cbb = cbr.controls.add(msocontrolbutton)
with cbb
.caption = “procurar”
.font.name = “times new roman”
.font.size = 14
.onaction = “procurar_click”
.style = msobuttoncaption
.visible = true
end with

se der resultado, faz o mesmo para o desfazer.

diz depois qq coisa, ok?

um abraço

3 de Setembro de 2013 às 20:46 em resposta a: Impedir alteração de linha #2245

jorgerod
Administrador

albino,

quanto à questão dos botões de comando, porque não utilizar um toolbar apropriado?

então, aqui vai:

código para colocares em “este livro” (thisworkbook):

option explicit

private sub workbook_activate()
call showtoolbar(true)
end sub

private sub workbook_beforeclose(cancel as boolean)
call deletetoolbar
end sub

private sub workbook_deactivate()
call showtoolbar(false)
end sub

private sub workbook_open()
call createtoolbar
end sub

código para colocares num módulo:

option explicit

public const strtoolbar = “my toolbar”

sub createtoolbar()
dim cbr as commandbar
dim cbb as commandbarbutton

on error resume next

commandbars(strtoolbar).delete

on error goto errhandler

set cbr = commandbars.add(strtoolbar)
with cbr
.position = msobartop
.visible = true
end with

set cbb = cbr.controls.add(msocontrolbutton)
with cbb
.caption = “procurar”
.onaction = “procurar_click”
.style = msobuttoncaption
.visible = true
end with

set cbb = cbr.controls.add(msocontrolbutton)
with cbb
.caption = “desfazer”
.onaction = “desfazer_click”
.style = msobuttoncaption
.visible = true
end with

set cbb = cbr.controls.add(msocontrolbutton)
with cbb
.caption = “red”
.onaction = “red”
.style = msobuttoncaption
.visible = true
end with

exithandler:
set cbb = nothing
set cbr = nothing
exit sub

errhandler:
msgbox err.description, vbexclamation
resume exithandler
end sub

sub deletetoolbar()
on error resume next
commandbars(strtoolbar).delete
end sub

sub showtoolbar(f as boolean)
on error resume next
commandbars(strtoolbar).visible = f
end sub

sub red()
‘
‘ red macro
‘ macro recorded 11/01/2007 by samsung
‘

‘
msgbox “teste”
end sub

experimenta. vais encontrar este novo toolbar no tabulador “suplementos”.

experimenta e diz qq coisa, ok?

3 de Setembro de 2013 às 18:45 em resposta a: Impedir alteração de linha #2244

jorgerod
Administrador

albino,

por favor verifica o seguinte código:

option compare text

private sub worksheet_change(byval target as excel.range)
dim i as long
activesheet.unprotect password:=””

i = activecell.column
cells(104536, i).end(xlup).offset(1, 0).select

if range(“$l$” & target.row) = “deve” then
cells(target.row, 1).resize(, 11).locked = true
cells(target.row, 12).locked = false
cells(target.row, 13).locked = false
cells(target.row, 14).locked = false
‘cells(target.row, 11).locked = false
‘cells(target.row, 12).locked = false
end if

if target.column = 12 and range(“$l$” & target.row) = “pago” then

range(“$m$” & target.row).value = date

elseif range(“$m$” & target.row).value “” then

cells(target.row, 1).resize(, 13).locked = true ‘bloqueia as cols a-m da linha activa

else

end if

activesheet.protect password:=””, drawingobjects:=true, contents:=true, scenarios:=true

end sub

como te referi antes, da 1ª vez que utilizes a folha e antes de iniciares a execução do código, deves desproteger a folha e clicar no canto superior esquerdo da mesma, para “marcares” toda a folha. depois, clicas com o botão direito do rato e escolhes “formatar células”. vais a protecção e desmarcas a flag “protegida”. a partir daqui, acho que o código já funcionará como pretendes.

1 de Setembro de 2013 às 21:53 em resposta a: Impedir alteração de linha #2242

jorgerod
Administrador

albino,

por favor coloca, ok? talvez seja mais fácil compreender 🙂 e tentar resolver…;)

30 de Agosto de 2013 às 18:05 em resposta a: Impedir alteração de linha #2240

jorgerod
Administrador

boas, albino,

verifica o código que te envio em anexo e altera para de acordo com o que pretendes, em termos de colunas.

atenção: antes de iniciares a execução do código, deves desproteger a folha e clicar no canto superior esquerdo da mesma, para “marcares” toda a folha. depois, clicas com o botão direito do rato e escolhes “formatar células”. vais a protecção e desmarcas a flag “protegida”. a partir daqui, acho que o código já funcionará como pretendes.

experimenta e depois diz qq coisa, ok?

cumprimentos.
CartaUtentes_A.xlsm

24 de Agosto de 2013 às 21:35 em resposta a: Impedir alteração de linha #2237

jorgerod
Administrador

albino,

experimenta:

option compare text

private sub worksheet_change(byval target as excel.range)

activesheet.unprotect password:=””

if target.column = 8 and range(“$h$” & target.row) = “pago” then

range(“$i$” & target.row).value = date

elseif range(“$i$” & target.row).value “” then

cells(target.row, 1).resize(, 9).locked = true ‘bloqueia as cols a-i da linha activa

else
cells(target.row, 1).resize(, 9).locked = false

end if

activesheet.protect password:=””, drawingobjects:=true, contents:=true, scenarios:=true

end sub

fica bem e diz qq coisa, ok?

23 de Agosto de 2013 às 2:30 em resposta a: Impedir alteração de linha #2235

jorgerod
Administrador

albino,

por qualquer razão, não me deixa “sacar” o ficheiro. podes coloca-lo zipado?

23 de Agosto de 2013 às 1:38 em resposta a: Impedir alteração de linha #2233

jorgerod
Administrador

albino,

manda-me a folha de exemplo, ok?

22 de Agosto de 2013 às 23:34 em resposta a: Impedir alteração de linha #2231

jorgerod
Administrador

boas, albino,

tenta adaptar o seguinte código:

private sub worksheet_change(byval target as excel.range)

activesheet.unprotect password:=”xpto”
if ucase(cells(target.row, 16)) = “x” then
cells(target.row, 1).resize(, 16).locked = true ‘bloqueia as cols a-o da linha activa
else
cells(target.row, 1).resize(, 16).locked = false
end if

activesheet.protect password:=”xpto”, drawingobjects:=true, contents:=true, scenarios:=true
end sub

fica bem e diz qq coisa.

22 de Agosto de 2013 às 23:07 em resposta a: Retornar maior data #1350

jorgerod
Administrador

🙂

ainda bem que resolveu 🙂

fica bem.

22 de Agosto de 2013 às 22:32 em resposta a: Retornar maior data #2228

jorgerod
Administrador

boas, igor,

talvez com esta fórmula matricial:

(atenção – alterei o nome da planilha de 1 para teste…)

=mÁximo((teste!$a$3:$a$12=c3)*(teste!$e$3:$e$12=”inadimplente”)*(teste!$c$3:$c$12)), carregando em ctrl + shift + enter, para ficar assim:

{=mÁximo((teste!$a$3:$a$12=c3)*(teste!$e$3:$e$12=”inadimplente”)*(teste!$c$3:$c$12))}

a célula que conterá a fórmula, deverá ser formatada como data.

anexo o teu ficheiro, com a fórmula integrada.

fica bem e diz qq coisa, ok?
CpiadeMaiorData2.xlsx

21 de Agosto de 2013 às 19:42 em resposta a: MEMORIA INSUFICIENTE #1348

jorgerod
Administrador

wagner,

lê o que se encontra em: http://www.decisionmodels.com/memlimitsc.htm#

pode ser que te ajude.

fica bem

20 de Agosto de 2013 às 20:20 em resposta a: Soma com critérios : atendente e nomes repetidos #1344

jorgerod
Administrador

🙂

sempre ao dispor!!!!!

20 de Agosto de 2013 às 3:03 em resposta a: Digitar um código.. #1346

jorgerod
Administrador

leo,

É só utilizares a função procv na plan1. assim, se colocares o código em a1, vai aparecer o correspondente àquilo que pretendes.

envio-te o ficheiro, para veres se é isto que queres.

fica bem e diz qualquer coisa, ok?
PlanilhaTeste.xlsx

20 de Agosto de 2013 às 2:39 em resposta a: Soma com critérios : atendente e nomes repetidos #2226

jorgerod
Administrador

boas,

estive a ver o que o wagner fez (e bem)…

resolvi, então, procurar uma outra potencial solução, sem “gambiarras” 😉

então, partindo do princípio que o range da coluna c não pode conter células em branco, uma vez que não fará sentido, pois é para colocar lá o nome do cliente, acho que a seguinte fórmula, como matriz, poderá resolver a situação:

=soma(se(c2=$b$5:$b$24;1/(contar.se.s($b$5:$b$24;c2;$c$5:$c$24;$c$5:$c$24));0))

como matriz que é, a fórmula deverá ser inserida com ctrl + shift + enter, para ficar assim:

{=soma(se(c2=$b$5:$b$24;1/(contar.se.s($b$5:$b$24;c2;$c$5:$c$24;$c$5:$c$24));0))}

espero que sirva. diz qualquer coisa, ok?
SomacriteriosAtendente_A.xlsx
Autor

Artigos

A visualizar 15 artigos - de 76 a 90 (de um total de 487)

← 1 2 3 … 5 6 7 … 31 32 33 →