paulocezarpicos

Osvaldo, Minhas sinceras desculpas por tomar seu tempo por falta de habilidade minha, eu estava usando proteção na minha planilha do tipo: "'ActiveSheet.Protect Password:="0". Já resolvi. Muito obrigado, Paulo Cezar.

Osvaldo, Os botões foram inserido via "Controles de Formulário" mesmo e não via "Controles ActiveX".

osvaldo, Não sei o que estou fazendo de errado, mas está dando esse erro: O que estou fazendo de errado???

Galera, Já pesquisei na net algo que me ajudasse no meu projeto e não achei nada parecido. Tenho uma planilha que tem dois botões, um com o nome "Ocultar" e o outro com o nome "Exibir". Gostaria que fosse só um botão, quando clicasse em Ocultar executasse uma macro (tipo Call etc..), e que esse mesmo botão desse a opção de Exibir, aparecendo a opção Exibir (executando outro Call) no mesmo botão. Ficaria legal. Se alguém puder me ajudar, ficaria grato. Paulo Cezar.

Obrigado pela atenção de todos, mas resolvi meu problema com a seguinte formula: =SE(ÉERROS(DIA.DA.SEMANA(H6;1));"";DIA.DA.SEMANA(H6;1)) e =OU(DIA.DA.SEMANA(F$5;2)=6;DIA.DA.SEMANA(F$5;2)=7) em formatação condicional Até a próxima. Paulo Cezar.

Boa dia Galera, Estou precisando a ajuda de vocês pra desenrolar aqui uma planilha que me pediram. Na planilha em anexo, tenho na coluna "P" uma formula que mostra os dias do mês, só que a formula só permite eu arrastar na vertical, mas não permite na horizontal, como devo fazer?? Gostaria também que ao invés de aparecer os dias "sábado", "domingo" ou feriado, que a referida coluna ficasse amarela. De já agradeço a todos pela atenção e ajuda, se for o caso. Paulo Cézar. Exemplo - separar semanas.xlsx

Ok galera, Resolvi de outra maneira. Fiz uma macro classificando do maior pra o menor e coloquei na Change da planilha (aba). Mesmo assim agradeço aos que tentaram me ajudar. Paulo Cezar.

Não amigo. Não é o que bebe, mas o que compra. Quando a água acaba vemos quem é o nome da vez na relação e essa pessoa compra o botijão e na frente do seu nome insere a data, pronto esse passar a ser o ultimo a ter comprado a água.

Boa arde Eder, Quando o participante insere a data na frente do nome é quando realiza a compra.

Eder, Bom Dia. Essa relação como você viu em anexo é um controle pra a compra do café e água aqui da minha equipe. Quando o participante compra o café ou água, nós inserimos a data da compra na coluna seguinte aos nomes, eu queria que quando fosse inserido a referida data o nome do participante fosse copiado e colado no final da lista. Paulo Cézar.

Senhores, Me ajudem. Fiz uma planilha de controle de café e água aqui na empresa que trabalho e já fiz a macro de classificação automática das datas de compra dos produtos, só que gostaria que quando "João" fizesse sua compra, e fosse inserido a data (que já tem a classificação automática) o nome de joão fosse copiado (não é mudado) pro final da lista. Não vou perguntar se é possível, vou perguntar se alguém de vocês poderia me ajudar. De já muito obrigado a todos. Obs.: Arquivo em anexo. Paulo Cézar. Controle de Agua e Café.zip

Meu caro Osvaldo, Sempre você!!!! Eu não sei quantos vezes eu já disse essa frase: Osvaldo, muito obrigado pela ajuda!!!!. Deu certo. O erro era a planilha que tinha proteção automática e a extensão estava xls, então tirei a proteção e acrescentei o "X" na extensão e ficou beleza. Mais uma vez muito abrigado e que JESUS te dê muitos anos de vida e que esteja sempre pronto a nos ajudar (KKKKKK). Um abraço, Paulo Cezar.

Osvaldo, Muito agradecido pela disposição em me ajudar, mas apareceu esse erro ao rodar a macro.

Boa dia Galera. Consegui adaptar a minha necessidade o código abaixo: Sub ImportarDados() Dim wsOrigem As Worksheet Dim wsDestino As Worksheet Workbooks.Open Filename:="C:\Meus Documentos\ELETROBRAS\OPERAÇÃO\TRAFOS\TRAFOS SUBSTITUIDOS\Trafos Substituidos - PICOS - DOSU - 2019 - Geral.xlsm" Set wsOrigem = Workbooks("Trafos Substituidos - PICOS - DOSU - 2019 - Geral.xlsm").Worksheets("dados") Set wsDestino = Workbooks("Transformadores Substituidos - PICOS-Semanal.xlsm").Worksheets("Planilha1") With wsOrigem Worksheets("dados").Activate Range("A7:S30").Copy Destination:=wsDestino.Range("A7:S30") Worksheets("Base TAT").Activate End With Workbooks("Trafos Substituidos - PICOS - DOSU - 2019 - Geral.xlsm").Close SaveChanges:=True MsgBox "Importação de Dados Concluída" End Sub Não estou exportando, que era o que eu realmente queria, mas estou importando e está resolvendo. Tem dois probleminhos que vocês podem me ajudar. Um deles que eu não queria que abrisse a planilha de onde estou importando . Outra coisa que não está dando certo é esse problema de ativação de link que não consigo me livrar (figura abaixo); Se alguem puder me ajudar nesses dois problemas aqui exposto ficaria imensamente grato. Paulo Cezar.

Eder Neumann, Não me leve a mal, nunca utilizei tabela dinâmica, não sei usar. Mesmo assim, muito obrigado pela intenção em me ajudar. Vou aguardar alguém se sensibilizar com minha situação, isto é, minha solicitação. Mais uma vez te agradeço, Paulo Cezar.

Eder Neumann, Não era bem isso que eu queria. A exportação seria para outro arquivo, via VBA, obedecendo o critério na coluna "V" que consta a palavra "OK".

Galera, Tô há varias semanas me batendo pra fazer um código que faça uma exportação de um arquivo pra outro, já experimentei todos os arquivos que encontrei na internet. É o seguinte, tenho uma planilha (em anexo) que digito os dados de todas as substituições de transformadores feitas na minha gerencia e tenho que mandar pra sede as substituições de determinada semana. Eu gostaria que exportasse todas as linhas, da coluna A até coluna S, que constasse na coluna V a palavra "OK". O nome do arquivo de destino é "Transformadores Substituidos - PICOS-Semanal". Ficaria muito grato e de já muito obrigado a quem me atender. Transformadores Substituidos - PLANILHA BASE.zip

Patropi, Eu acho que você ou outra pessoa do fórum já me puxou a orelha quanto a isso, mas por lapso esqueci de fazer isso e prometo me esforçar mais pra lembrar sempre de curtir. Quanto a você Diego, agradeço por ter me ajuda nesse post.

Ok Diego, entendi. Uma ultima pergunta, esse sete após $C6 é referente a que?? =SE(A6=$C$2;VALOR(ESQUERDA($C6;7)&LIN(AA1));"")

Diego, Perfeito, era o que eu estava precisando mesmo. Só que pra mim adaptar à minha planilha teria que entender duas coisas que você citou na sua formula: LIN(AA1) E LIN(AB1). Qual a participação dessas colunas nessa formula?? (como já citei nesse post não tenho costume com essa função INDICE e CORRESP, usava sempre a PROV). Fico no aguardo.

Diego, O que estou precisando é que na coluna "I" seja relacionado os 5 maires tempos, classificando do maior pra o menor de acordo com o mês escolhido. Do jeito que você fez, só falta classificar (na coluna "I") em ordem crescente do maior pra o menor.

Olá Galera, boa tarde. Tô precisando de ajuda nessas funções INDICE e CORREP, é que sempre usei a PROCV. A função até que já desenrolei, só queria que fosse com dois critérios e não estou conseguindo. O primeiro critério é a função MAIOR (na célula G5) e o outro critério eu queria que fosse com o mês (na célula C2). Obs.: Planilha em anexo. Paulo Cezar. Exemplo indice-corresp.zip

Galera, Me ajudem nesse problema que estou enfrentando. Tenho um listbox com 03 checkbox: BB, BRA, CEF e DATA. O problema que não estou conseguindo resolver é que quando marco uma das opções o filtro roda direitinho, mas quando desmarco as referidas opções o listbox zera, isto é, fica em branco e queria que quando desmarcasse o listbox mostrasse todos os registros. Que alguém tenha compaixão kkkkkk Obs.: Planilha em anexo. Paulo Cezar. PLANILHA IEVG - 07.11.2018.zip adicionado 2 minutos depois vixi, já está como concluído.

Osvaldo, Agradeço sua disponibilidade em me ajudar, mas resolvi da seguinte maneira, deletei duas colunas e vou (o listbox só aceita até dez) imprimir direto do listbox, que era o que eu queria. Então peço ao amigo que mude esse tópico para concluído.

Patropi, Me expressei mal, não que eu tenha resolvido, isto é, tenha conseguido imprimir com as 12 colunas, simplesmente deletei duas colunas (desisti). Desculpe o constrangimento (se vocês não conseguiram eu é que não ia conseguir). Paulo Cezar.