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
Question
Albano Netto 0
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
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.