Remove From My Forums

Como preencher células do Excel?

Pergunta
0

Entrar para Votar

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

Responder

|

Citação

Respostas

Entrar para Votar

Entrar para Votar

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