Ir ao conteúdo
  • Cadastre-se

LaerteB

Membro Pleno
  • Total de itens

    129
  • Registro em

  • Última visita

Reputação

65

Informações gerais

  • Cidade e Estado
    São Paulo/SP
  • Sexo
    Masculino

Meu PC

  • Processador
    AMD FX-8320E
  • Cooler
    Zalman CNPS10x FLEX / FAN COOLER EXCALIBUR 120MM R4-EXBB-20PK-R0
  • Placa de vídeo
    RX 580 OC 8GB GDDR5 256 BIT Phatom Gaming ASRock
  • Placa-mãe
    M5A97 EVO - Rev. 1.xx
  • Memória
    KINGSTON HIPERX FURY 16GB (2x8GB) 1866Mhz DDR3 CL10
  • HDs
    1 - HD WD BLACK 1TB / 1 - HD SEAGATE SURVEILLANCE 3TB
  • SSDs
    1 - SSD Samsung 860EVO 500GB
  • Fonte
    CORSAIR TX 750 W
  • Mouse
    LOGITECH MX518 HERO 16K - Legendary
  • Caixas de som
    EDIFIER R1600TIII
  • Monitor
    AOC 24' Gamer Sniper G2460VQ6
  • Browser
    FIREFOX
  1. Boa tarde, @Aline Ramos Borges O código informado pelo amigo @osvaldomp é excelente , mas gostaria de dar minha contribuição (eu sei que este código abaixo não é "enxuto" como do "expert" @osvaldomp , mas funciona direitinho), já tinha este comigo e estava adaptando para este "Tópico", quando fui responder, já havia uma resposta (que é ótimo, sempre aprendemos com isso).. Abaixo os códigos que podem ser colocados em um módulo: Sub geraPDF() Dim guia1 As Range Dim guia2 As Range Dim linh As Long Application.ScreenUpdating = True Appli
  2. Bom dia, @josequali Altere o trecho do seu código que se encontra no módulo, por este que descrevo abaixo: Sub Status() Dim x As Date Dim a As Date Dim y As Integer Dim ultlin As Long Sheets("Plan1").Select ultlin = ActiveSheet.ListObjects("dados").DataBodyRange.Rows.End(xlDown).Row For y = 3 To ultlin Observe que foi incluído a linha "ultlin" e a variável dela, e foi alterado o "for" tirando o número "7" depois do "To" e incluindo o "ultlin" (foi colocado o nome da tabela do seu arquivo exemplo, mas altere para no nome da tabela que se encontra no
  3. Bom dia, @josequali Verifiquei e realmente estava trocado alguns sinais , por esse motivo não estavam funcionando "execução, atrasado recuperável e cronograma comprometido", também alterei e retirei um pequeno trecho de uma linha... agora estão funcionando de acordo .. Abaixo o código correto, é só copiar e colar no módulo substituindo o código anterior: Sub Status() Dim x As Date Dim a As Date Dim y As Integer Sheets("Plan1").Select For y = 3 To 7 x = Cells(y, 22) a = Date If Cells(y, 21) = "" And CDate(a) = Cells(y, 22) _ Or C
  4. Boa tarde, @josequali Desculpe a demora muita correria... Abaixo o código que soluciona a sua última questão, referente ao post #18: Sub Status() Dim x As Date Dim a As Date Dim y As Integer Sheets("Plan1").Select For y = 3 To 7 x = Cells(y, 22) a = Date If Cells(y, 21) = "" And CDate(a) = Cells(y, 22) _ Or Cells(y, 22) = "" And Cells(y, 70) = "" Then Cells(y, 73) = "Não iniciado" ElseIf Cells(y, 21) <> "" And CDate(a) = Cells(y, 22) _ And Cells(y, 70) = "" Then Cells(y, 73) = "Em execução" End If If CDate(x) - CDate(a) &
  5. Bom dia, @sezcarv Bem vindo ao Fórum , como você é novo por aqui, não deve ter lido as regras... desta forma por gentileza ler as regras deste Fórum para ficar ciente ... Antes de qualquer coisa leia o texto abaixo: "Como todos aqui, temos compromissos e não temos muito tempo para criar um arquivo do zero, pois ajudamos somente no nosso tempo livre... é muito importante você anexar uma planilha de exemplo com dados (fictícios) e que não seja o projeto inteiro ; explicando com as informações necessárias para alcançar o seu objetivo, desta forma pod
  6. Boa tarde, @josequali Eu acho que entendi o porque não estava funcionando de acordo... eu alterei pequenos trechos, primeiro tirei a ligação da Célula "Z1" que continha uma fórmula informando sempre a data atual, por um trecho de código que faz a mesma coisa... Segundo coloquei a função "CDate", desta forma agora colocará tranquilamente se for de 3 a mais anos referente a diferença entre as datas.... Terceiro o porque não estava funcionando quando era alterado algum dado nas células; é que não deviam existir as linhas que se e
  7. Bom dia, josequali O nosso amigo @Midori já inseriu uma forma de solucionar a sua dúvida, mas estou também colaborando com uma outra solução, verifique e veja se satisfaz o que solicitou; segue o código abaixo é copiar e colar no seu formulário: Private Sub UserForm_Initialize() '************************************************* Application.ScreenUpdating = False Application.EnableEvents = False Dim a As Integer Dim enderc As String Dim y As Long Dim ult As Long ult = Sheets("Planilha1").ListObjects("dados").Range.Rows.Count For a = 2 To ult If P
  8. Boa tarde, josequali Pode me informar melhor o que está ocorrendo, pois modifiquei as datas das células da coluna "J" e automaticamente ele altera a Coluna "K" corretamente... o código que te passei está funcionando perfeitamente bem sem erros.. qual o problema, não estou entendendo, qual seria?? Estou colocando o arquivo exemplo em anexo que estou utilizando e está funcionando tranquilamente, verifique. Aguardando o seu Feed Back ... se foi útil, não esqueça de clicar na "mãozinha" LaerteB formula lista mestra vencimento solucao1 LB
  9. Boa noite, josequali Desculpe somente responder agora é que eu estava muito atarefado aqui ... Fiquei muito feliz que você chegou a solução via fórmula ; mas fiquei impelido de terminar uma solução via VBA com a execução de se a data de hoje for maior que 3 anos (não tinha inserido nos post anteriores). Abaixo o código que faz a mesma coisa que a sua fórmula, não precisando mais das fórmulas nas células da Coluna "K" (colar em um módulo): Sub Anovencido() Dim lin As String Dim x As Integer Dim i As Integer Sheets("Plan1").Select lin
  10. Boa tarde, josequali Para o seu caso acima, podemos fazer o seguinte, copie e cole este código abaixo em um módulo (exclua o outro código que te informei no post #5): Sub Anovencido() Dim lin As String Sheets("Plan1").Select lin = 3 Do Until Cells(lin, 10) = "" If Year(Cells(lin, 10)) < Year(Cells(1, 26)) And Cells(lin, 10).Value < Cells(1, 26).Value Then Cells(lin, 11) = "Vencido e Obsoleto" ElseIf Year(Cells(lin, 10)) = Year(Cells(1, 26)) And Cells(lin, 10).Value < Cells(1, 26).Value Then Cells(lin, 11) = "Vencido" ElseIf Year(Cell
  11. Boa tarde, josequali Eu criei um código VBA para este caso em específico (pode ser feito com fórmula também), mas achei melhor assim ... Abaixo copie e cole este código em um modulo: Sub Anovencido() Dim lin As String Sheets("Plan1").Select lin = 3 Do Until Cells(lin, 10) = "" If Year(Cells(lin, 10)) < Year(Cells(1, 26)) Then Cells(lin, 11) = "Obsoleto" End If lin = lin + 1 Loop End Sub Depois no VBE Clique na Plan1 (Microsoft Excel Objetos) e cole este código abaixo: Private Sub Worksheet_Change(ByVal Target As Range) Cal
  12. Bom dia, josequali Espero que seja isso que queria; veja a fórmula abaixo se resolve a sua dúvida: =SE(J3<HOJE();"Vencido";"A Vencer") Qualquer coisa estamos aqui para ajudá-lo Aguardando sua resposta e seu Feed Back ... se foi útil, não esqueça de clicar na "mãozinha" LaerteB
  13. Boa tarde, Brenno Colodetti Algumas humildes sugestões que me ajudaram a entregar os valores corretos, veja abaixo: Tente configurar o teu modem/roteador e os PCs para trabalharem a 1Gb/s, pode ser que os cabos que utiliza não "entreguem" o "valor" maior que 100Mb/s, ou podem estarem rompidos (desta forma pode degradar sua performance); também tem a possibilidade de algum dispositivo que esteja conectado no cabo não estar informando o correto, é que as placas da Realtek (se for o seu caso), muitas vezes, não são boas na configuração de seus drivers..
  14. Bom dia, josequali Amigo, agora consegui resolver este seu "problema"; testei em minha máquina virtual e com algumas alterações foi enviado com sucesso .. Agora vamos as informações e o código com suas alterações; primeiro eu testei com meu Browser principal (no meu caso é o Firefox, e não tem problema se o seu é o Chrome da no mesmo), não precisa estar aberto o Browser; 2º Quando clicar no botão "Whatsapp" do seu "form" ele abrirá o seu Browser e logo em seguida a URL do "web.whatsapp", mas tu terás que inserir o código QR dele (a
  15. Boa tarde, josequali Copie e cole este código abaixo no seu arquivo exemplo: Private Sub UserForm_Initialize() Sheets("Plan1").Select Range("A1").Select Selection.Formula = "=Login_win()" Call SendKeys("~", True) End Sub Verifique se era o que queria .. OBS: não esqueça de sempre colocar os códigos dentro do "<>" que se encontra no menu acima da sua resposta, como no exemplo da imagem que anexei. Aguardando sua resposta e seu Feed Back ... se foi útil, não esqueça de clicar na "mãozinha" LaerteB

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...

GRÁTIS: ebook Redes Wi-Fi

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!