Jump to content
Fórum Script Brasil
  • 0

IF com condição de data


Question

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 to post
Share on other sites

2 answers to this question

Recommended Posts

  • 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 to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148955
    • Total Posts
      645010
×
×
  • Create New...