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.