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

Macro para inserir linha entre valores de data numa coluna


melop

Pergunta

Olá, 

Escrevi uma macro/módulo em forma de função para copiar a data da célula 'O1' e acrescentar 1 dia a mais a cada nova célula da coluna A a partir da célula 'A9' até que seja atingida a data limite contida na célula 'O6' e também para inserir uma linha ao encontrar certo dia específico de uma data que o usuário digita na célula S2. 

Por algum motivo que desconheço a função não retorna nenhum valor. Por favor, caso desconfiem de algo me comuniquem. 

A função que fiz no módulo da planilha foi:

Public Function IntervaloMes(dDataX As Date) As Boolean



Dim i As Integer
Dim j As Integer
Dim inicioDate As Date
Dim finalDate As Date
Dim refDate As Date
Dim seguinteDate As Date


incioDate = DateValue(dDate)
finalDate = Range("O6").Value
i = 9
refDate = Day(Cells(2, 19))


Do While inicioDate <> finalDate

If Cells(i, 1).Value <> "" Then

seguinteDate = DateAdd("d", 1, inicioDate)
Cells(i + 1, 1).Value = seguinteDate

If Day(seguinteDate) = refDate Then

For j = 1 To 10
Cells(i, j).Value = ""
Next j
End If
Else
seguinteDate = DateAdd("d", 2, inicioDate)
Cells(i + 1, 1).Value = seguinteDate
End If


i = i + 1
inicioDate = seguinteDate
Loop

End Function
Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

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,8k
×
×
  • Criar Novo...