none
Copiar e Colar RRS feed

  • Pergunta

  • Srs,

    Tenho uma planilha com +- 3.000 linhas que estão preenchidas da seguinte forma:

    201200000001729
     
     
    201200000001736
     
     
    201200000001737
     
     
    201200000001746
     
     

    Eu preciso preencher as linhas abaixo com as informações da linha imediatamente acima.  Qual Macro utilizo para isto?

    Att,

    Watson Silva

     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     
     

    Watson Silva

    terça-feira, 11 de setembro de 2012 02:56

Respostas

  • Bom dia amigo...

    Executa esse codigo modificando apenas o valor das variaveis (Coluna, LinhaInicial, LinhaFinal)

    Private Sub CopiaAbaixo()

    Dim Coluna As Integer Dim LinhaInicial As Integer ' linha onde comecam os registros Dim LinhaFinal As Integer ' linha onde terminam os registros Dim Linha As Integer ' contador de linha ' coluna onde sera feita a operacao Coluna = 12 ' aqui voce deve colocar a linha onde comecara a operacao LinhaInicial = 5 ' aqui voce deve colocar ate onde a operacao deve ser efetuada LinhaFinal = 10 ' planilha da operacao Set wsPlanilha = Worksheets("Plan1") ' para cada linha no intervalor For Linha = LinhaInicial To LinhaFinal ' se o valor da celula for 0 ele copia o valor da celula de cima If wsPlanilha.Cells(Linha, Coluna).Value = "" Then wsPlanilha.Cells(Linha, Coluna).FillDown End If Next End Sub

    Qualquer duvida Perguntaí...

    Se for util... Votaí... 8D

    terça-feira, 11 de setembro de 2012 14:03
  • Sub Exemplo()
        ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 11 de setembro de 2012 21:33
    Moderador

Todas as Respostas

  • Bom dia amigo...

    Executa esse codigo modificando apenas o valor das variaveis (Coluna, LinhaInicial, LinhaFinal)

    Private Sub CopiaAbaixo()

    Dim Coluna As Integer Dim LinhaInicial As Integer ' linha onde comecam os registros Dim LinhaFinal As Integer ' linha onde terminam os registros Dim Linha As Integer ' contador de linha ' coluna onde sera feita a operacao Coluna = 12 ' aqui voce deve colocar a linha onde comecara a operacao LinhaInicial = 5 ' aqui voce deve colocar ate onde a operacao deve ser efetuada LinhaFinal = 10 ' planilha da operacao Set wsPlanilha = Worksheets("Plan1") ' para cada linha no intervalor For Linha = LinhaInicial To LinhaFinal ' se o valor da celula for 0 ele copia o valor da celula de cima If wsPlanilha.Cells(Linha, Coluna).Value = "" Then wsPlanilha.Cells(Linha, Coluna).FillDown End If Next End Sub

    Qualquer duvida Perguntaí...

    Se for util... Votaí... 8D

    terça-feira, 11 de setembro de 2012 14:03
  • Prezado Gildson,

    Obrigado pela dica.  Vou testar.

    Att,

    WS!


    Watson Silva

    terça-feira, 11 de setembro de 2012 18:28
  • Ok.... Fico no aguardo... Qualquer duvida perguntaí... 8)
    terça-feira, 11 de setembro de 2012 18:40
  • Gildson,

    Está dando erro de compílação neste trecho:

     If BBPlanilha.Cells(Linha, Coluna).Value = " " Then


    Watson Silva

    terça-feira, 11 de setembro de 2012 18:42
  • Seguinte cara...

    Posta todo o codigo alterado pq deve ter sido qndo vc alterou alguma Variavel ou ate mesmo a forma que vc declarou o objeto da Plan... deve ter ficado algo faltando algo....

    Obs: Coloca tambem....

    1 - Os valores que voce definiu para as variaveis ( Coluna, LinhaInicial, LinhaFinal, Linha )

    2 - Nome da Planilha do Objeto ( BBPlanilha )

    Postai que vou verificar e te retorno na hora... 8)



    • Editado Gildson Silva terça-feira, 11 de setembro de 2012 20:44
    terça-feira, 11 de setembro de 2012 20:21
  • Sub Exemplo()
        ActiveSheet.UsedRange.Columns(1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 11 de setembro de 2012 21:33
    Moderador