(Resolvido) Colorir intervalo de células no Excel

[Henrique _Ram]

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,

[raphael_suporte]

você só está selecionando uma célula... tente usar "Range(A1:B15).select" por exemplo

[Henrique _Ram]

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

[raphael_suporte]

Pelo que eu entendi, o valor do "Range" não pode ser full, porem sua Macro terá que pintar esse valor selecionado. Vou tentar executar um teste aqui e coloco se eu conseguir

[raphael_suporte]

foi mais fácil do que eu pensei.. basta remover a linha que seleciona o Range

ActiveCell.Offset(0, ActiveCell).Range("a1").Select

deixando o código assim:

Sub Colorir()
'
' Colorir Macro
' Macro gravada em 19/12/2010 por Henrique
'
' Atalho do teclado: Ctrl+d
'

    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

[Henrique _Ram]

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,

[raphael_suporte]

ainda não consegui ter o resultado esperado, mas talvez você consiga usando o union ou um loop.

to tentando, qualquer novidade posto aqui

[João.Neto]

Tenta isso:

Sub Colorir()
'
' Colorir Macro
' Macro gravada em 19/12/2010 por Henrique
'
' Atalho do teclado: Ctrl+d
'
    ActiveCell.Resize(1, ActiveCell).Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

[Henrique _Ram]

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