Osmarbg

Este comando funciona até fechar o excel e depois abrir novamente, pois ele cria outra pasta e volta a não clicar novamente.

Meu Exel parou de clicar com o direito do mouse. Pedi ajuda aqui em outro tópico, me orientaram a colocar o código abaixo. Eu coloquei e resolveu, mas agora voltou a não clicar com o direito novamente. Uso o Excel o dia todo no trabalho e esta função está fazendo muita falta, se alguém puder me ajudar a resolver este problema, ficarei grato. o código que usei e funcionou apenas um dia foi este. Sub ResetaBotãoDireito() Application.CommandBars("Cell").Enabled = True Application.CommandBars("Row").Enabled = True Application.CommandBars("Column").Enabled = True End Sub

Perfeito meu amigo. simples e direto, voltou a funcionar, muito obrigado.

Sim, foi o que expliquei, testei o primeiro e o segundo, ambos não funcionaram no meu PC.

É um tópico grande, tudo que está ali eu coloquei, mas não funcionou. eEtou usando o windows 10 e o office 2019. Não sei se é por isso. O que acho estranho é que as planilhas novas sem nem um código é que não clicam mais com o direito. A que está com o código funciona tudo.

Eu já tinha visto este tópico ontem, e não funcionou pra mim.

Boa tarde. Não consigo mais clicar com o direito do mouse no excel Isso aconteceu depois que coloquei um código BVA para ocultar a faixa de opções a barra de planilhas e a de fórmula e outro para mostrar novamente através de link. o problema é que o mouse parou em qualquer planilha que utilizo, mesmo em branco e funciona normal na planilha que contém o código. será que tem como criar algum código para o mouse voltar a funcionar com o lado direito? segue abaixo os códigos que estou utilizando. Sub Sair() Dim barras On Error Resume Next For Each barras In Application.CommandBars barras.Enabled = True Next Application.DisplayStatusBar = True Application.DisplayFormulaBar = True Application.DisplayFullScreen = False ActiveWindow.DisplayHeadings = True ActiveWindow.DisplayHorizontalScrollBar = True ActiveWindow.DisplayVerticalScrollBar = True ActiveWindow.DisplayWorkbookTabs = True ActiveWindow.DisplayWorkbookTabs = False End Sub Sub Entrar() Dim barras, nTela, Cont On Error Resume Next For Each barras In Application.CommandBars barras.Enabled = False Next Application.DisplayFullScreen = True ActiveWindow.DisplayHeadings = False Application.DisplayFormulaBar = False ActiveWindow.DisplayHorizontalScrollBar = False ActiveWindow.DisplayVerticalScrollBar = False ActiveWindow.DisplayWorkbookTabs = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayStatusBar = False End Sub

Boa noite tenho estes dois códigos em esta pasta de trabalho e eles funcionam perfeitamente, mas precisei inserir o terceiro código mas ele dá erro por ter uma linha em ambos os códigos que estão com o mesmo nome. os dois abaixo são os que já estavam na planilha e funcionam perfeito Option Explicit Private Sub Workbook_Open() ActiveWindow.DisplayWorkbookTabs = False ' Oculta o Diiplay c/ os nomes das abas, ao abrir End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim LR As Long, X As String If Target.Count > 1 Then Exit Sub If Target.Column = 10 And Target.Value = "A" Then X = "Itau - Alimenta" If Target.Column = 10 And Target.Value = "G" Then X = "BRADESCO - Golden" If X <> vbNullString Then With Sheets(X) LR = .Cells(4501, 1).End(3).Row On Error GoTo res Application.EnableEvents = False .Cells(LR + 1, 1).Resize(, 5).Value = Cells(Target.Row, 2).Resize(, 5).Value .Cells(LR + 1, = Cells(Target.Row, 9) .Cells(LR + 1, 10).Resize(, 2).Value = Cells(Target.Row, 11).Resize(, 2).Value res: Application.EnableEvents = True End With End If End Sub MAS QUANDO COLOCO ESTE ABAIXO, DÁ ERRO, PORQUE AMBOS POSSUEM O MESMO NOME ENTEI COLOCAR um ponto EM UM DELES MAS NÃO RESOLVEU. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim UL As Long If Sh.Name = "Itau - Alimenta" Or Target.Count > 1 Then Exit Sub If Target.Column <> 10 Or Target.Value <> "C" Then Exit Sub Application.ScreenUpdating = False With Sheets("Itau - Alimenta") UL = .Cells(4500, 1).End(xlUp).Row Cells(Target.Row, 2).Resize(, 5).Copy .Cells(UL + 1, 1) Cells(Target.Row, 8).Resize(, 5).Copy .Cells(UL + 1, 7) End With End Sub Alguém poderia me ajudar a corrigir este erro?

Muito agradecido amigo, funcionou perfeitamente, era isso mesmo que eu precisava, valeu mesmo.

Boa tarde amigo, eu colei o código na aba Itaú Alimenta, mas quando digito a letra C na coluna J nas abas de 01 a 31 as linhas não são copiadas para Itaú Alimenta. estou fazendo algo errado? precisa habilitar algo antes de executar?

Mais uma vez eu agradeço pela sua ajuda, eu escrevi fórmula, porque meu conhecimento é pequeno, eu fiz outra planilha com todas as abas, olhei o link que me mandou, mas nem em sonho consigo fazer, pelo menos por enquanto, um dia eu vou aprender. segue a planilha anexa. Se puder me ajudar, vai ser de grande valia para o meu trabalho no financeiro da empresa que atuo. seria colocando a letra c na coluna J de todas as planilhas de 01 a 31 a linha inteira ir para a aba Itaú Alimenta. Itau - Alimenta.xlsx

Desculpe, é que pensei que depois que a fórmula estivesse pronta eu conseguiria dar sequência sozinho, mas não deu.

Boa noite, deu certo em parte, onde eu criei dia 1, na verdade depois da fórmula pronta eu vou criar novas abas, do dia 2 até dia 31, e quando eu crio a aba 2 ele já não copia mais. Ou seja, se eu for fazer um lançamento no dia 1 ou no dia 2 ou no dia 20, ele sempre levar para a aba Itaú Alimenta. Se for possível após digitar a letra c ele transferir com enter melhor, mas se não der pode ficar assim mesmo.

Boa tarde, preciso criar uma fórmula na planilha onde na aba dia 1 e na coluna J, toda vês que eu escrever a letra C, a linha inteira seja copiada para a última linha livre da planilha ITAÚ Alimenta vou deixar a planilha no anexo. se alguém puder me ajudar, ficarei grato. Pasta22.xls

Fazendo a configuração do filtro de e-mail com mais atenção, deu certo, muito obrigado, agora os anexos estão chegando com as extensões corretas.

os dois Utilizamos o kasperski security cloud, mas no meu PC, está tudo em ordem, apenas o dele que altera as extensões. eu entrei remoto no dele mas o que está habilitado são só as extensões perigosas, ou seja não resolveu. O problema continua.

Toda vez que envio um e-mail para uma pessoa específica ocorre o seguinte: se eu envio um arquivo do excel com a extensão .xlsm quando a pessoa recebe ele fica com a extensão .xls_ o mesmo ocorre quando envio uma foto no formato .png a pessoa recebe com a extensão .pn_ ou seja a última letra da extensão some e aparece o underline no lugar, com isso o arquivo não abre. a pessoa é obrigada a copiar o anexo colar na área de trabalho e renomear a extensão para abrir o arquivo. Tanto eu como ele estamos usando o windows 10 e o office 2019 Pensei que fosse um problema do office, então a pessoa removeu o office e instalou outro, mas ficou igual. se alguém puder me ajudar, fico grato.

Toda vez que envio um e-mail para uma pessoa específica ocorre o seguinte: se eu envio um arquivo do excel com a extensão .xlsm quando a pessoa recebe ele fica com a extensão .xls_ o mesmo ocorre quando envio uma foto no formato .png a pessoa recebe com a extensão .pn_ ou seja a última letra da extensão some e aparece o underline no lugar, com isso o arquivo não abre. a pessoa é obrigada a copiar o anexo colar na área de trabalho e renomear a extensão para abrir o arquivo. Tanto eu como ele estamos usando o windows 10 e o office 2019 Pensei que fosse um problema do office, então a pessoa removeu o office e instalou outro, mas ficou igual. penso que pode ser vírus, mas não sei ao certo. se alguém puder me ajudar, fico grato.

Obrigado Osvaldo, resolvido. muito grato

Boa noite. estou precisando de ajuda com uma fórmula, agradeço se alguém puder me ajudar. Tenho esta situação, não gostaria de criar mais nem uma coluna tenho o valor unitário X a quantidade, que é o peso menos 4% de desconto e o resultado e igual 1.171,84 até ai tudo bem, só que este resultado precisa ser positivo e no caso está dando negativo como fazer para o resultado ser positivo? segue anexo uma planilha de exemplo dúvidas em fórmula do excel.xlsx

Boa tarde a todos, eu tenho um TVBOX modelo MXQPRO 4K que estava com a versão do android 7.01, eu tentei voltar a sua versão para a 6.0, mas não abri o aparelho para ver o modelo da placa e acabei colocando uma versão imconpatível com a minha placa e deu erro na atualização, com isso ele ficou travado e não liga mais. obs. ao ligar ele aparece a luz azul, mas um pouco mais fraca do que quando estava funcionando. quando coloco no pc pelo cabo USB ele acende a luz azul e dá sinal de ter reconhecido, mas não aceita o resset para nova atualização. abri o aparelho e vi que o modelo da placa é R329Q_V3.0 2017.09.12 Já baixei a versão correta para ele mas não consigo instalar. tem pessoas dizendo que precisa dar um curto na placa de memória mas eu não encontrei nada com o modelo da minha placa para poder saber o pino certo a dar o curto. será que alguém consegue me ajudar?

Obrigado Décio, deu certo. Me ajudou muito.

Bom dia Décio, é isso mesmo que preciso, mas mandei uma de teste para eu poder desenvolver a minha, mas não vejo como foi criada as fórmulas para eu poder copiar na planilha que vou criar. se puder mandar como foi feito me ajudará muito.

Bom dia a todos. preciso criar u ma planilha conforme abaixo, se alguém puder me ajudar fico muito grato. O que preciso é o seguinte: Segue anexo uma planilha de exemplo Em baixo do dia se eu escrever a letra F (esta letra automáticamente fica vermelha Se eu escrever a letra P (esta letra automaticvamente fica Preta Se eu escrever a letra N(esta letra automaticvamente fica verde Se eu escrever a letra A (esta letra fique automaticamente Roxa Planilha teste.xlsx

Legal, agora funcionou, só tem mais um detalhe, depois que fica em duas linhas n ão consigo centralizar quando eu formato o estílo do título para centralizado, ele centraliza apenas uma das linhas. Tem como ficar as duas linhas centralizadas? adicionado 10 minutos depois Consegui, a questão de centralizar estava ligado ao parágrafo, Obrigado Douglas estava quebrando a cabeça com esto a uma semana. estou fazendo livros em epub mas formato ele no word primeiro, isso vai me ajudar muito nos títulos Valeu mesmo.