Ir ao conteúdo
  • Cadastre-se

4hosanaj

Membro Júnior
  • Posts

    10
  • Cadastrado em

  • Última visita

Reputação

0
  1. Bom dia Igor, Altere o primeiro código para esse aí: Private Sub btOK_Click() Static contador As Integer contador = contador + 1 If cdSenha = "BaiBai" Then Inserir_Data_ Call Sistema ElseIf contador >= 3 Then MsgBox "Tentativas Excedidas, Por favor Verifique a Palavra-Chave Correcta!", vbCritical, "Atenção!" Unload UserForm1 Exit Sub Else 'contador = contador + 1 MsgBox "Palavra-Chave Incorrecta, Dispõe de mais " & 3 - contador & " tentativas.", vbCritical, "Atenção!""" Exit Sub End If End Sub
  2. Olá boa tarde!, Eu tenho um código que faz um print da tela do excel e envia o email com os dados necessários porém, o corpo predefinido do meu email preciso que fique todo acima do print e adicionar o livro do excel como anexo do email a enviar. Código usado. Sub Partilhar_Cliente() Sheets("Dashboard").Select ActiveSheet.Range("A1:AA31").Select Application.CutCopyMode = False Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = "[email protected];[email protected];[email protected];[email protected]" .Cc = "[email protected]" .Subject = "Dashboard Dashboard _ Inactivos testes.zip_ Inactivos" .Body = "Boa tarde Estimados," & _ vbLf & "Segue abaixo o link de acesso ao Dashboard com os resultados das chamadas realizadas até ao dia " & Format(Now, "d"" de ""mmmm"" """) & _ vbLf & "" & _ vbLf & "https://onedrive.live.com/?authkey=%21AC8K77-ezzoVrZ0&id=D208CDABF374565E%21160&cid=D208CDABF374565E" .Display End With SendKeys "{END}", True SendKeys "{ENTER}", True SendKeys "^v", True SendKeys "{ENTER}", True ActiveSheet.Range("A1").Select End Sub Planilha em anexo. Dashboard _ Inactivos testes.zip
  3. Pessoal estou com dificuldades em fazer uma alteração no VBA abaixo: Meu objectivo é adicionar mais um critério para além do actual (do jeito que funciona a função =SE(E). Para além da coluna E ou 5 que precisa ser igual a "Depositado" como mostra o meu código, preciso que a coluna A ou 1 seja diferente de vazio "", ou se for possível é claro que tenha alguma validação do valor usado no meu caso uma data qualquer válida desde que siga o formato dd/mm/aaaa. Sub Deposita() ultimaLinha = Folha4.Cells(Rows.Count, "a").End(xlUp).Row For i = 2 To ultimaLinha If Folha4.Cells(i, 5) = "Depositado" Then lin = Folha5.Cells(Rows.Count, "a").End(xlUp).Row + 1 Folha5.Range(Folha5.Cells(lin, 1), Folha5.Cells(lin, 5)).Value = _ Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).Value Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).ClearContents End If Next End Sub adicionado 14 minutos depois Com o código abaixo consegui inserir o segundo critério, quero saber se esxiste algum código para validação validação do valor usado no meu caso uma data qualquer válida desde que siga o formato dd/mm/aaaa, porque com este código qualquer valor ele processa. Sub Deposita() ultimaLinha = Folha4.Cells(Rows.Count, "a").End(xlUp).Row For i = 2 To ultimaLinha If Folha4.Cells(i, 5) = "Depositado" And Folha4.Cells(i, 5) <> "" Then lin = Folha5.Cells(Rows.Count, "a").End(xlUp).Row + 1 Folha5.Range(Folha5.Cells(lin, 1), Folha5.Cells(lin, 5)).Value = _ Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).Value Folha4.Range(Folha4.Cells(i, 1), Folha4.Cells(i, 5)).ClearContents End If Next End Sub
  4. @Valdir Alvarenga Partilha ai a pasta de trabalho como exemplo, a linkagem precisa ser feita em VBA e não hyperlinks.
  5. Boa tarde @Edson Luiz Branco Funcionou perfeitamente, é justamente esse detalhe que eu precisava. Abraços.
  6. @Edson Luiz Branco Ainda assim não funciona, envio em anexo o ficheiro com o código inicial funcionando (mover os dados de uma folha para outra), e se possível efectuar por favor a alteração do códico para o efeito pretendido. Desde já agradeço a atenção ao assunto. Nota: Envio Zipado por que não aceita carregar livro com permissão para macros. Processamento MCI.zip
  7. @Lorenna.Escobar Insira $ entre a referência da coluna e linha (Ex. A$2), assim ele move as coluna e tranca as linhas.
  8. @Arthur Luiz Alves Costa Confere se satisfaz. Planilha notas.xlsx
  9. @CasaDoHardware alterei a linha mas, ainda assim continua substituindo as informações antigas. Eu quero que ela ignore as linhas com informações e cole nas vazias.
  10. Pessoal eu estou com uma situação delicada, Tenho um livro do excel com duas planilhas para processamento de facturas, na Folha1 insiro os dados digitalizados e depois uso uma macro para copiar estes dados para a folha2 por critério. Tenho uma segunda macro que limpa os dados copiados e reorganiza a infomação na Folha1 para não existirem linhas vazias. O problema é que os dados da Folha2 já copiados anteriormente são sempre substituídos pelos novos da Folha1 e eu preciso de um código que apenas cole nas linhas vazias para poder ter um histórico. Abixo a macro que usei: Sub Digitalização3() ultimaLinha = Folha1.Cells(Rows.Count, "a").End(xlUp).Row lin = 2 For i = 2 To ultimaLinha If Folha1.Cells(i, 5) = "Feito" Then Folha2.Cells(lin, 1) = Folha1.Cells(i, 1) Folha2.Cells(lin, 2) = Folha1.Cells(i, 2) Folha2.Cells(lin, 3) = Folha1.Cells(i, 3) Folha2.Cells(lin, 4) = Folha1.Cells(i, 4) Folha2.Cells(lin, 5) = Folha1.Cells(i, 5) lin = lin + 1 End If If Folha1.Cells(i, 5) = "Feito" Then Folha1.Cells(i, 1).ClearContents Folha1.Cells(i, 2).ClearContents Folha1.Cells(i, 3).ClearContents Folha1.Cells(i, 4).ClearContents Folha1.Cells(i, 5).ClearContents End If Next End Sub Em anexo envio um ficheiro modelo. Desde já agradeço pela ajuda. Processamento MCI.xlsx

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...