Excel VBA Comando Cells

[Antonio C N Santos]

Ao pesquisar na internet, achei uma macro que pode me ajudar em uma planilha.

Mas sou "cego" em VBA.

Preciso mudar nesta macro, a forma de escrever o comando Cells, para que seja mais genérico e possa atender no que preciso.

O caso é bem simples e está na planilha exemplo.

Alguém pode me dar uma ajuda?

 

https://www.sendspace.com/file/iooel5

 

[Patropi]

Boa noite

 

Experimente substituir o teu codigo por este:

Eu apenas substitui o 10 pela Range("A1")

Sub teste()

    Dim iLinha As Integer
    Dim Qtde As Integer
        
    Qtde = Range("A1") ' define a quantidade de linhas a percorrer na planilha.
        
    For iLinha = 1 To Qtde
                    
        Plan1.Cells(iLinha, 12).Value = "OK"
                
    Next iLinha
    
    MsgBox "Fim"
    
End Sub

Não se esqueça de clicar em Curtir.

 

[]s

[Antonio C N Santos]

Patropi OK,

 

Mas eu solicitei que o valor de ilinha (ilinha=1) viesse de A1.

[Patropi]

Antonio

 

Você testou o código na planilha?

 

Essa linha 1 é onde começa a aplicar o OK e a Qtde é até que linha vai,, que é onde eu informei a célula A!

 

[]s