Ir para conteúdo
Fórum Script Brasil

melop

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre melop

melop's Achievements

0

Reputação

  1. 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
×
×
  • Criar Novo...