Loop de uma coluna selecionada

[Guest --Bruno --]

Tenho o seguinte script:

For i = 2 To 366

Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range("$F$2:$F$182"), _

ActiveSheet.Range("$C$2:$E$182"), False, False, , "", False, False, _

False, False, , False

Range("B17:B20").Select

Selection.Copy

ActiveSheet.Next.Select

ActiveSheet.Next.Select

Range("B" & i).Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

ActiveSheet.Previous.Select

Next

Logo no começo do script onde aparece ActiveSheet.Range("$F$2:$F$182"), gostaria que todo loop deslocasse a seleção inteira: ActiveSheet.Range("$G$2:$G$182"),ActiveSheet.Range("$H$2:$H$182"),......até a coluna NG.

Aguardo uma ajuda.

Obrigado.

Bruno

[Sonnel]

O que faz exatamente essa rotina?

[João.Neto]

Demorou, mas o código chegou :D ... (em vermelho):

Dim rngA As Variant

Dim intCount As Integer

intCount = 6 'coluna 6, ou seja, coluna F

For i = 2 To 366

rngA = Cells(2, intCount).Address

rngB = Cells(182, intCount).Address

Application.Run "ATPVBAEN.XLAM!Regress", ActiveSheet.Range(rngA & ":" & rngB), _

ActiveSheet.Range("$C$2:$E$182"), False, False, , "", False, False, _

False, False, , False

Range("B17:B20").Select

Selection.Copy

ActiveSheet.Next.Select

ActiveSheet.Next.Select

Range("B" & i).Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

ActiveSheet.Previous.Select

intCount = intCount + 1

Next

... espero que tenha ajudado... B)