none
Como preencher células do Excel? RRS feed

  • Pergunta

  • Essa macro só funciona enquanto não há dado na célula. Quando há dado, dá erro na linha do if.

    Gostaria que a macro preenchesse todo o intervalo mencionado dentro dela.

    Sub gerar()

    col = 1


    While col < 20
    lin = 0
    While lin < 20
    lin = lin + 1
    If Not Cells(lin, col) Then

    Cells(lin, col) = "x"

    End If

     


    Wend

    col = col + 1

    Wend

    End Sub

    sábado, 24 de novembro de 2012 10:26

Respostas

  • Sub gerar()
        Dim col As Long
        Dim lin As Long
    
        col = 1
        
        While col < 20
            lin = 0
            While lin < 20
                lin = lin + 1
                
                If Cells(lin, col) <> "" Then
                    Cells(lin, col) = "x"
                End If
            Wend
            col = col + 1
        Wend
    End Sub


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

    • Marcado como Resposta diniabr2012 sábado, 24 de novembro de 2012 16:34
    sábado, 24 de novembro de 2012 13:27
    Moderador