none
como usar Cells com .value RRS feed

  • Pergunta

  • Caros estou tentando simplificar uma rotina , pois são vários blocos de programação e o que os difere é a linha de teste , porem quando uso Range(cells(i,x)).value  acusa "erro em tempo de execução 1004: erro de definição de aplicativo ou deficição de objeto"

    'variavel que determinará a primeira linha da célula de teste 
    i = 8

    ' variavel que derteminará a coluna

    Medicao = Cells(i, 11)
    Do
    If Medicao <> "" Then

    LINHA = Range("N22")
    COLUNA = Cells(i, 14)

    ActiveWorkbook.Sheets("Vol fat").Cells(LINHA, COLUNA).Value = Range(cells(i,12)).Value  

    >>Só aceita se for Range("L8").value

    ActiveWorkbook.Sheets("Val fat").Cells(LINHA, COLUNA).Value = Range(cells(i,15)).Value

    ActiveWorkbook.Sheets("Vol med").Cells(LINHA, COLUNA).Value = Range(cells(i,19)).Value

    ActiveWorkbook.Sheets("DC").Cells(LINHA, COLUNA).Value = Range(cells(i,20)).Value

    ActiveWorkbook.Sheets("DV").Cells(LINHA, COLUNA).Value = Range(cells(i,13)).Value

    ActiveWorkbook.Sheets("Pagamento").Cells(LINHA, COLUNA).Value = Range(cells(i,17)).Value

    Else

    End If

    i = i + 1 ' acrescenta mais 1 no numero da linha

    Medicao= cells(i,11)

    Loop While i <= 20 ' repetir até que a linha seja superior a 20

    Att Leandro Felipe


    sexta-feira, 6 de novembro de 2015 17:42

Respostas

  • Leandro, vc não precisa do 'Range', pode usar simplesmente:

    ActiveWorkbook.Sheets("Vol fat").Cells(LINHA, COLUNA).Value = ActiveSheet.Cells(i, 12).Value
    Claro, se a fonte não for a aba ativa, qualifique-a no lugar de 'ActiveSheet'.


    Filipe Magno

    sábado, 7 de novembro de 2015 01:11