Talles, como não é mais possível editar meu post anterior, segue uma dica para as rotinas : "CADASTRAR, APAGAR e ALTERAÇAO", não é necessário colocar todas as linhas referente ao Metodo SmallScroll, é só deixar a linha que quer, assim a rotina fica mais leve, pois executará somente uma instrução em vez de várias, e aproveitei adicionei a Propriedade ScrollArea, a mesma congela a Área determinada, não permitindo que se role a tela pelas barras e nem que se selecione fora da área, veja como ficaria as rotinas :
Sub CADASTRAR()
' CADASTRAR Macro
ActiveSheet.ScrollArea = "" 'Descongela a àrea demarcada
ActiveWindow.ScrollRow = 62
ActiveSheet.ScrollArea = "A62:F81" 'Congela a àrea demarcada
Range("D66").Select
End Sub
Sub APAGAR()
' APAGAR Macro
ActiveSheet.ScrollArea = "" 'Descongela a àrea demarcada
ActiveWindow.ScrollRow = 86
ActiveWindow.SmallScroll Down:=32
ActiveSheet.ScrollArea = "A118:F127" 'Congela a àrea demarcada
Range("A118").Select
End Sub
Sub ALTERAÇAO()
' ALTERAÇAO Macro
ActiveSheet.ScrollArea = "" 'Descongela a àrea demarcada
ActiveWindow.ScrollRow = 1
ActiveSheet.ScrollArea = "A1:F34" 'Congela a àrea demarcada
Range("A1").Select
End Sub
abraços
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 23/06/2011 8:25 pm