Alyson Ronnan Martins

Opa Luiz Gustavo boa noite. Tenta da uma olhada no site do Avelino: http://www.usandoaccess.com.br/dicas/desabilitando-ribbon-access.asp O artigo é em access mais creio que possa ser usado em word (já usei em excel) Mais precisa ter um pouco de conhecimento em vba

Bom dia Ricardo. Tenta usar: vbModal depois de show. frm_login.Show vbmodal

Manda uma foto do formulário para tentar entender.

Manda o comando SQL que esta usando para darmos uma olhada.

Envia a planiha novamente. Vou okhar o erro no PC.

Bom dia Aninha. Olha se assim você direciona o local: Dim LocalArquivo as string With Application.FileDialog(msoFileDialogFolderPicker) .Title = "Selecione a pasta" .Show LocalArquivo = .SelectedItens(1) End With

Bom dia Bruna. Tenta colocar dentro do ".Body" depois do texto inicial. Seria bom usar um "for "para pesquisar os vencendo ou vencidos.

A parte em vermelho esta fácil porque no seu poste inicial finha o código. Ficando assim: Set intervalo: Range("A10:N100000") olha sé já resolve essa parte.

Boa notie @Kelvin Correa Para mim já aconteceu isso algumas veses então você deveria usar dessa maneira: Sub InitializeMatrix(Var1, Var2, Var3, Var4) On Error GoTo ErrorHandler . . . Exit Sub ErrorHandler: . . . 'Essa é aparte importante err.clear Resume Next End Sub Esse é um exemplo da microsoft, a unica coisa que mudei foi o err.clear para retirar erros existentes

Nem eu entendi agora kkkkk

Boa noite @aninha_27. Eu uso sempres esse código para criar copia de abas especificas: Sheets("Planilha2").Select Sheets("Planilha2").Copy ActiveWorkbook.SaveAs Filename:="C:\Users\kira\Documents\Teste.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close Aguardamos

Boa noite. Tenta da seguinte maneira: Dim Meses As String, Anos As String Dim MesAno As String Meses = Format(Month(Date), "00") Anos = Year(Date) MesAno = Meses & "." & Anos Windows("Livro Imposto " & MesAno & ".xlsx").Activate Assim a planilha olha para o ano e o mês.

Juro que li agora e não entendi nada kkkkk Tenta explicar de outra maneira para ver se entendo. Se puder dar algum exemplo ajuda.

Boa noite. Vi que na foto tem um o programa outlook aberto então vou passar o código com base que o computador usar outlook. Não conhece alguma maneira de fazer esse código rodar sozinho. Porém você pode fazer de duas maneiras: ¹Código ao abrir a planilha ²Código dentro de um botão A ideia de todos os códigos é que você esta autorizando a planilha a fazer envio dos e-mails caso contrário seus e-mails serão considerados spam. Segue o código para enviar email: Public Sub Enviar() Dim MyOlapp As Object, MeuItem As Object Set MyOlapp = CreateObject("Outlook.Application") Set MeuItem = MyOlapp.CreateItem(0) Dim pergunta, arquivo As String 'Dim caminho '--> Caso de anexo With MeuItem .sentOnbehalfofName = "prencha seu e-mail de envio no outlook" .To = "Destinatario" '.CC = ("emailr") & vbCrLf & ("") '--> Caso de cópia .Subject = "CONTROLE FINANCEIRO" .Body = "Segue em anexo o relatório atualizado." '.Attachments.Add (caminho) '--> Caso de anexo .importance = 2 '.Display .Send End With Application.DisplayAlerts = True Set OutMail = Nothing Set OutApp = Nothing End Sub Preenche manual e testa.

Boa notie. Vou mandar varias mensagens mais porque estou olhando o código ponto a ponto (preguiçoso mesmo kkkk) 1 - Assim que entrei notei que quase todas as "sheets" = planilhas/abas estão e para seu código funcionar precisa re-exibir as abas: Sheets("Serviços").Visible = True Sheets("Serviços").Select A linha antes de select é para re-exibir "Serviços". 2 - Eu notei quando abrir que tinha um código que ficou incompleto, apesar de não testar ele eu só coloquei aqui como informação.

Bom dia Bruna. Pesquisou sobre código que envia email pelo outlook?

Ela esta bloqueada? Manda uma parte da sua planilha para agente do forum dar uma olhada e te ajudae melhor.

Qual variável esta usando? String, Long ou Intiger(acho que e assim)

Bom dia, Bookman. Marques as linhas para o vba passar cada linha do código por vez. Assim você vai ver a linha que gera o erro.(não entendi aonde o erro esta acontecendo) Aguardo.

Como pensa em usar a ideia de "aleatório". Um contexto pode ajudar mais a desenvolver uma ideia para ti.

Bom dia. Tem como mandar uma foto mostrando e o que esta fazendo errado?

Bom dia Wilker. Qual seria a ideia para chamar esse "evento"?

Bom dia Douglas. Já tentou colocar um evento para depois qur o formulário abrir?

Bom dia já usou o For para ele passar linha? Assim você pode personalizar os dados que sejam similares.

Eu não sei o que pode astar acontecendo. Mais já vi algo parecido em excel aonde ele apresenta um erro por alguns "dim" não estarem sendo declaradas. Outra coisa que pode causar isso é segurança da rede, seu banco esta no pc ou na rede? Se estiver na rede coloca na sua maquina para ver se funciona.