Search the Community

Olá pessoal, tudo bem? Tenho uma planilha com macros para tratamento de dados e está habilitada para macros, porém, acontece um bug que ela simplesmente some com todos os códigos e não deixa salvar a plan. Aparecendo os erros abaixo e quando dou atl+F11 os módulos estão em branco. Já aconteceram 3x com planilhas diferentes. Ela funciona por um período e do Nada acontece esse erro. uso ela todos os dias para atualizar as bases de dados. Alguém já passou por um problema semelhante? Vlw, pessoal.

Olá, Para quem puder me auxiliar, estou tentando montar uma macro e acionar por um botão para que faça o seguinte: • Pegar as informações de uma tabela simples e transpor os dados como nos exemplos. • Como essa tabela é dinâmica o número de colunas pode variar assim como as linhas. • A intenção é que cada cabeçalho da coluna entre novamente como título das linhas que estão na sequência. Tabela Original Tabela com dados transpostos Alguém pode me sugerir como fazer isso? Desde já, grato.

Boa noite, estou iniciando no mundo do VBA no Excel e ainda não sei como realizar uma operação automática: A ideia é: assim que eu colar um conjunto de dados (cada dado com um conteúdo/nome padrão [001, 002... 009...] correspondente com a coluna A) da coluna hipotética X, eu quero que a célula exatamente à direita de cada dado respectivo copiado na coluna X vá pra uma posição exata na coluna B: Coluna A Coluna B Coluna X Direita de X 001. 002. Valor Z 002. Valor Z 004. Valor C 003. 009. Valor M 004. Valor C 005 ... 008 009. Valor M OBS: os nomes colados na coluna X sempre terão alguma correspondência com os nomes da coluna A (sempre serão códigos fixos) Alguém poderia me explicar como conseguir realizar esse processo? Muito obg!

Bom dia, sei que a função Floor(Day(Minute(ano_inicial / 38) / 2 + 56) & "/5" & "/" & ano_inicial, 7) - 34 funciona na plhanilha mas quando tento executar ela no excel da erro de #VALOR!, não sei resolver. Public Function pascoa(ByVal data_inicial As Date, ByVal data_final As Date) As Date ano_inicial = Year(data_inicial) pascoa = WorksheetFunction.Floor(Day(Minute(ano_inicial / 38) / 2 + 56) & "/5" & "/" & ano_inicial, 7) - 34 End Function

Bom dia, estou tentando fazer uma function que pega como parâmetro duas datas e retorna os dias uteis desse período, entretanto não consigo entender o que estou fazendo de errado 'retorna os dias uteis Public Function DiasUteis(ByVal data_inicial As Date, ByVal data_final As Date) As Integer Ano_inicial = Year(data_inicial) Ano_final = Year(data_final) Aux = 0 Corridos = WorksheetFunction.NetworkDays(data_inicial, data_final) Feriados = 0 While Aux <= Ano_final If Aux = 0 Then Aux = Ano_inicial End If pascoa = WorksheetFunction.Floor(Day(Minute(Aux / 38) / 2 + 56) & "/5" & "/" & Aux, 7) - 34 pascoa = CDate(pascoa) Carnaval1 = CDate(pascoa - 48) Calnaval2 = CDate(canaval1 + 1) Paixao = CDate(pascoa - 2) Corpo = CDate(pascoa + 60) tiradentes = WorksheetFunction.Date(Aux, 4, 21) confraternizacao = WorksheetFunction.Date(Aux, 1, 1) Trabalho = WorksheetFunction.Date(Aux, 5, 1) Independencia = WorksheetFunction.Date(Aux, 9, 7) Senhora = WorksheetFunction.Date(Aux, 10, 12) Finados = WorksheetFunction.Date(Aux, 11, 2) proclamacao = WorksheetFunction.Date(Aux, 11, 15) Natal = WorksheetFunction.Date(Aux, 12, 25) If pascoa > data_inicial Then If pascoa < data_final Then Feriados = Feriados + 1 End If End If If pascoa > data_inicial Then If pascoa < data_final Then Feriados = Feriados + 1 End If End If If Carnaval1 > data_inicial Then If Carnaval1 < data_final Then Feriados = Feriados + 1 End If End If If Carnaval2 > data_inicial Then If Carnaval2 < data_final Then Feriados = Feriados + 1 End If End If If Paixao > data_inicial Then If Paixao < data_final Then Feriados = Feriados + 1 End If End If If Corpo > data_inicial Then If Corpo < data_final Then Feriados = Feriados + 1 End If End If If tiradentes > data_inicial Then If tiradentes < data_final Then Feriados = Feriados + 1 End If End If If confraternizacao > data_inicial Then If confraternizacao < data_final Then Feriados = Feriados + 1 End If End If If Trabalho > data_inicial Then If Trabalho < data_final Then Feriados = Feriados + 1 End If End If If Independencia > data_inicial Then If Independencia < data_final Then Feriados = Feriados + 1 End If End If If Senhora > data_inicial Then If Senhora < data_final Then Feriados = Feriados + 1 End If End If If Natal > data_inicial Then If Natal < data_final Then Feriados = Feriados + 1 End If End If If Finados > data_inicial Then If Finados < data_final Then Feriados = Feriados + 1 End If End If If proclamacao > data_inicial Then If proclamacao < data_final Then Feriados = Feriados + 1 End If End If Aux = Aux + 1 Wend Corridos = Corridos - Feriados DiasUteis = Corridos End Function

Bom dia , Eu baixei essa planilha da internet, porém está bloqueada para modificações, é possível desbloquear?Desbloqueando eu conseguiria de modificar para que ao clicar em "vendas" e "confirmar venda" fosse gerado um recibo enviado via e-mail e quando eu clicar em "consulta" fosse possível excluir registro apenas se o tipo de usuário for "Administrador" ( não será possível quando for "usuário padrão" - Na aba cadastro) ou esconder o botão consulta para que eu pudesse acessa-lo apenas com um atalho. Gostaria tambem de verificar a tabela de produtos para que eu pudesse alterar a ordem na inserção de produtos novos.Link com a planilhahttps://www.sendspace.com/file/9j3tc4

Boa tarde! Preciso de ajuda para terminar uma planilha. Ao qual ela deve: Comparar a célula E2 a coluna coluna E5:E20 Caso a célula seja igual, ela cola o numero da F2 na primeira vazia da mesma linha, a partir do Primeiro Semestre E depois cole suscetivamente. Obrigado desde já:

Amigos, Após vasculhar a internet, não encontrei a solução do meu problema. Utilizo o Excel 2007 e a referência Microsoft Internet Controls está ativada. Estou tentando fazer o login no site: www.v2smv.com.br utilizando o seguinte código: Sub Logar() Dim ie As New InternetExplorer Set ie = CreateObject("InternetExplorer.application") With ie .Visible = True .Navigate ("http://v2smv.com.br") While .Busy Or .ReadyState <> 4: DoEvents: Wend .Document.getElementById("txtLogin").Focus .Document.getElementById("txtLogin").Value = "usuario" .Document.getElementById("txtPassword").Focus .Document.getElementById("txtPassword").Value = "senha" End With End Sub Ao chegar no comando Focus, apresenta o erro 2110 abaixo: Retirando essa parte do focus, a macro roda, mas não preenche os campos do formulário. Outro ponto é que não consigo achar o id do botão ok para dar o comando click Sabem o que pode estar acontecendo? Abraços.