Ir para conteúdo
Fórum Script Brasil
  • 0

IF com condição de data


Albano Netto

Pergunta

Pessoal, estou com um problema em uma programação de VBA, sou iniciante e não estou conseguindo realizar um IF com data. A situação é que, tenho várias datas em uma coluna, e preciso que adicione uma linha abaixo de uma célula que possua valor de data diferente (para separar as datas iguais). O que acontece é que, a programação que eu fiz o excel faz a primeira linha depois das datas iguais, e depois disso começa a colocar linha em baixo de todas as próximas células. Segue o pedaço da programação que fiz:

Dim linha As Integer

linha = 3

Dim linha1 As Date

linha1 = Range("A" & linha)

    While Range("A" & linha).Select And ActiveCell <> ""
    
        If Range("A" & linha + 1) <= linha1 Then
            
            linha = linha + 1
            
        Else: Range("A" & linha + 1 & ":" & "C" & linha + 1).Select
        
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        
        linha = linha + 2
        
        End If
    Wend
 

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

@Albano Netto bom dia.

Eu já encontrei vários problemas usando data então comecei a colocar ela como "Double"

Então recomendo o seguinte:

Dim linha1 As Date
'Para
Dim linha1 as Double

E toda vez que for pegar o valor de uma planilha coloca .Valeu

linha1 = Range("A" & linha)
'Para
linha1 = Range("A" & linha).Value

Else tem mais locais aonde você pega o valor.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...