locked
Preechimento de dados para usar depois em planilha dinamica RRS feed

  • Pergunta

  • Olá pessoas, Bom dia.

    Estou com um pequeno problema envolvendo uma planilha de pouco mais de 68 mil linhas, coisa básica.

    Essa é a planilha: <iframe src="http://r.office.microsoft.com/r/rlidExcelEmbed?su=-9035111120114048878&Fi=SD829CD64E6B6BA092!251&AllowInteractivity=False" width="402" height="346" frameborder="0" scrolling="no"></iframe>

    As colunas em cinza é como eu preciso que a coisa fique para depois eu usar o Pivot Table para preparar meu relatório, o problema é que esse formato que o meu sistema exporta não está me ajudando a criar uma formula que preencha esses espaços em brancos depois do ID de conta.

    Em um outro relatório, eu consegui contornor o mesmo tipo de problema usa =SE, mas a disposição das informações eram diferentes e isso já não está funcionando aqui, alguem sugestão de como posso resolver o problema?

    Explicando melhor, no exemplo vocês conseguem ver o meu output do meu sistema e como eu preciso que fique, limpar linhas em branco não é problema, tarefa simples, o relatório contem mais informações, cada item tem um valor, e algun deles eu irei descartar, o que também não é um problema, a primeira linha de cada ID de Local também será descartada, tudo resolvido com filtragem, essa parte é super tranquila, só não consigui mesmo um jeito de colocar o ID de Conta em todas as linhas de Item para as mais de 68000 linhas da minha planilha para eu conseguir montar uma planilha pivot como a incluída lá?

    Então essa é a minha pergunta, tem como fazer isso antes da virada do ano?

    Agradeço pelo tempo dispensado na leitura e vizualização do meu exemplo.

    Estevao

    segunda-feira, 9 de maio de 2011 14:41

Todas as Respostas

  • Pelo que entendi, seria algo como mostrado abaixo:

    Sub MontaDados()
      
      Dim r As Long
      Dim ws As Worksheet
      Dim rLast As Long
      
      Set ws = ActiveSheet
      
      With ws
        rLast = .Cells(.Rows.Count, "A").End(xlUp).Row
        
        'Povoa coluna de ID
        For r = 2 To rLast
          If .Cells(r, "C") = vbNullString Then
            .Cells(r, "C") = .Cells(r, "C").Offset(-1)
          End If
        Next r
        
        'Apaga linhas em branco
        For r = rLast To 2 Step -1
          If WorksheetFunction.CountA(.Rows(r)) = 0 Then .Rows(r).Delete
        Next r
        
        'Talvez precise dessa linha
        .Rows(2).Delete
      
      End With
      
      
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br
    quarta-feira, 1 de junho de 2011 17:12