Página 1 de 1

Mudar Range("A1: C20") para Range(Cells(1,1),Cells(20,3))

Enviado: 19 Set 2016 às 07:39
por cyberlacs75
Amigos gostaria de usar o Range ao invés de passar posicionamento A1:E10 eu preciso controlar o posicionamento com variáveis Range(Cells(lin, col): Cells(lin,col))

Ou exite outra possibilidade de eu capturar A1, A2, B34, D19 ... X99 com o Cells(lin,col), por exemplo
lin = 1
col = 1
posicao = Cells(lin, col)

variável posição com valor A1

Fico no aguardo

Re: Mudar Range("A1: C20") para Range(Cells(1,1),Cells(20,3)

Enviado: 19 Set 2016 às 09:13
por alexandrevba
Bom dia!!

Eu não entendi muito bem o que deseja, mas veja as fontes e exemplos...
Código: Selecionar todos
'Fontes:
'http://www.excel-easy.com/vba/range-object.html
'http://www.homeandlearn.org/the_cells_property.html
Sub TesteI()
Dim Copyrange As String
Startrow = 1
Lastrow = 11
    Let Copyrange = "A" & Startrow & ":" & "D" & Lastrow
    Range(Copyrange).Select
End Sub
Código: Selecionar todos
Sub TesteII()
   For iLin = 1 To 5
        For iCol = 1 To 5
            Cells(iLin, iCol) = "Linha " & iLin & "   Coluna " & iCol
        Next iCol
   Next iLin
End Sub
Att