Henrique _Ram

Deu certo! Valeu João.Neto e pessoal!

Talvez eu não esteja expressando bem minha dúvida. O que quero é que eu coloque um valor x (por exemplo, 14), execute a macro e ela pinte x células à direita. A seguinte linha faz com que se "pule" x células à direita: ActiveCell.Offset(0, ActiveCell) O que não consigo é que sejam pintadas todas as células entre o intervalo. Por exemplo: a macro como está pinta a 14º célula à direita, mas não pinta a 1ª, 2ª... 13ª. E é isso que eu preciso. Grato,

A questão é que eu quero que a área selecionada varie conforme o número que eu insira na célula ativa. Por exemplo: em determinado momento eu quero colorir 14 células, em outro, posso querer 5. No entanto, o número que a célula "pula" eu consigo delimitar pela activecell. Agora o intervalo que colore, não. Att

Olá, Quero colorir um intervalo de células no Excel, no entanto, o intervalo consta na célula ativa. O problema é que da maneira que coloco, é colorido apenas a célula de destino, não todo o intervalo. Por exemplo: quero colorir um intervalo de 14 células. Com a programação abaixo, colore apenas a décima quarta célula, no entanto, quero todo o intervalo. Sub Colorir() ' ' Colorir Macro ' Macro gravada em 19/12/2010 por Henrique ' ' Atalho do teclado: Ctrl+d ' ActiveCell.Offset(0, ActiveCell).Range("a1").Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With End Sub Atenciosamente,