Este fórum está sendo desativado

[henriqueguazzelli]

Olá, estou atualizando uma seleção e o nome dela, para essa seleção vir a preencher um combobox de outro formulário posteriormente. Meu problema está na hora de fazer referencia a range desejada. Meu código para isso foi o seguinte.

Dim lrow As Long
lrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

Dim iRange2 As Range
Dim Celulas As Range
Set iRange2 = ("A2:Alrow")
For Each Celulas In Range(iRange2)
ws("MPs").Cells(iRange2).Select
Next Celulas
Application.Goto Reference:="MPs"

[osvaldomp]

Código: Selecionar todos

Sub teste()
 Dim lrow As Long, iRange2 As Range, Celulas As Range
  lrow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
  Set iRange2 = Range("A2:A" & lrow)
  For Each Celulas In iRange2
   'ws("MPs").Cells(iRange2).Select
  Next Celulas
  'Application.Goto Reference:="MPs"
End Sub

#
ou

Código: Selecionar todos

Sub testeV2()
 Dim c As Range
  For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   'ws("MPs").Cells(iRange2).Select
  Next c
  'Application.Goto Reference:="MPs"
End Sub

[henriqueguazzelli]

Muito obrigado pelo tempo dedicado, forte abraço