none
Erro na macro VBA e não consigo achar RRS feed

  • Pergunta

  • Sub RELATÓRIO_AGENDAMENTO()
       Worksheets("RELAGENDAMENTO").Range("B7:I1000").ClearContents
        lin = 7
        linha = 2

        cdDataIni = InputBox("Digite a data Inicial")
        cdDataFim = InputBox("Digite a data Final")


        Do Until Worksheets("AGENDAMENTO").Cells(lin, 1) = ""
            If Worksheets("AGENDAMENTO").Cells(lin, 8) >= CDate(cdDataIni) And Worksheets("AGENDAMENTO").Cells(lin, 8) <= CDate(cdDataFim) Then
                Worksheets("RELAGENDAMENTO").Cells(linha, 2) = Cdate("AGENDAMENTO").Cells(lin, 8)
                Worksheets("RELAGENDAMENTO").Cells(linha, 3) = Worksheets("AGENDAMENTO").Cells(lin, 2)
                Worksheets("RELAGENDAMENTO").Cells(linha, 4) = Worksheets("AGENDAMENTO").Cells(lin, 3)
                Worksheets("RELAGENDAMENTO").Cells(linha, 5) = Worksheets("AGENDAMENTO").Cells(lin, 4)
                Worksheets("RELAGENDAMENTO").Cells(linha, 6) = Worksheets("AGENDAMENTO").Cells(lin, 5)
                Worksheets("RELAGENDAMENTO").Cells(linha, 7) = Worksheets("AGENDAMENTO").Cells(lin, 9)
                Worksheets("RELAGENDAMENTO").Cells(linha, 8) = Worksheets("AGENDAMENTO").Cells(lin, 6)
                Worksheets("RELAGENDAMENTO").Cells(linha, 9) = Worksheets("AGENDAMENTO").Cells(lin, 7)
                linha = linha + 1
            End If
            lin = lin + 1
        Loop
        MsgBox "PROCESSO CONCLUÍDO - DE: " & cdDataIni & " ATÉ: " & cdDataFim
    End Sub

                    NÃO CONSIGO ACHAR O ERRO PARA ESSA MACRO QUE SERIA UM RELATÓRIO COM CRITÉRIO POR DATA, CASO ALGUÉM PUDER ME AJUDAR FICAREI GRATO.

    quarta-feira, 30 de agosto de 2017 16:47

Todas as Respostas

  • Boa tarde, André.

    Mas o que está acontecendo? Poderia explicar melhor?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quarta-feira, 30 de agosto de 2017 20:17
    Moderador
  • Bom dia Filipe, não esta gerando o relatório na guia RELAGENDAMENTO, ele abre para digitar a data de inicio e final e logo em seguida da como concluído e no local determinado não aparece nada. Mostra o erra nesse linha

    Worksheets("AGENDAMENTO").Cells(lin, 8) <= CDate(cdDataFim) Then

    quinta-feira, 31 de agosto de 2017 12:50
  • E qual o erro que ele está acusando?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    quinta-feira, 31 de agosto de 2017 20:38
    Moderador
  • Erro de compilação

    Erro de Sintaxe

    sexta-feira, 1 de setembro de 2017 12:38