-
Total de itens
2 -
Registro em
-
Última visita
Posts postados por Albano Netto
-
-
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
IF com condição de data
em VBA
Postado
@Alyson Ronnan MartinsNão resolveu, as datas estão agrupadas, e o excel tá fazendo o meu if só até fazer o primeiro else, que é adicionar a linha, depois que ele coloca a primeira linha ele começa a colocar depois de todas as datas, independente de ser igual a anterior.