Boa tarde!!
Sua dúvida está vaga, explique melhor e com detalhes, ou poste seu arquivo modelo!!
Sub AleVBA_14266()
With ActiveWindow
.ScrollColumn = ActiveCell.Column
.ScrollRow = Range("A1:A100").Value
End With
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 23/01/2015 9:41 am