Alyson Ronnan Martins

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.

Bom dia Natan, você esta executando formula para pegar esse valor ou pensa fazer isso em macro?

Boa tarde.Eu faço muitos trabalhos em excel mais agora preciso fazer isso em access (o que mais gosto).Eu tenho uma tabela:Artigo | Folhas2530 | 84Eu quero agrupar de 24 em 24:Artigo | Folhas2530 | 242530 | 242530 | 242530 | 12 (a ultima colocar o que sobra)Como ficaria fazendo isso em Access? Tentei de varias maneiras colocar em consulta mais não estou conseguindo.

Consegui da seguinte maneira: Dim A As Double Dim B As Double Dim C As Double Dim D As Double If IsNumeric(TextBox1.Value) Then A = CDbl(TextBox1.Value) Else A = 0 End If If IsNumeric(TextBox2.Value) Then B = CDbl(TextBox2.Value) Else B = 0 End If If IsNumeric(TextBox3.Value) Then C = CDbl(TextBox3.Value) Else C = 0 End If If IsNumeric(TextBox4.Value) Then D = CDbl(TextBox4.Value) Else D = 0 End If TextBox5.Value = A + B + C + D

Ele gera algum erro ou simplesmente para? Se o código for executado em VBA para salvar da para marcar a linha no VBA em vermelho (f9).ai me fala o que aconteceu.

Manda uma foto do seu projeto para imaginar aonde isso vai acontecer. Tem sim como fazer o calculo dependo do critério.

O seu valor tem virgula? Se sim tenta trocar por ponto e olha se funciona.

Resolvido então?

Não entendi também.

já tentou trocar textbox1.text para textbox1.value?