Este fórum está sendo desativado

[Abel]

Bom dia, gostaria de saber como faço isso:

OBS: VALOR DA CÉLULA É IGUAL A P30

VALOR DA CÉLULA = RANGE("A1").VALUE
sheets("PLAN1").ScrollArea = "A1:VALOR DA CÉLULA"

NÃO DAR CERTO DESSA FORMA, TEM ALGUMA OUTRA FORMA DE FAZER ISSO?

[Foxtri]

Boa tarde
Veja se era isso.

Sub Macro1()
Dim XP As String, Y As String
XP = Evaluate("=LEFT(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&""0123456789""))-1)")
Y = Evaluate("=MID(A1,MIN(FIND({0,1,2,3,4,5,6,7,8,9},A1&""0123456789"")),5)")
X = Range(XP & "1").Column
Worksheets("Plan1").ScrollArea = Range(Cells(1, 1), Cells(Y, X)).Address
End Sub

Até
Foxtri

[osvaldomp]

Código: Selecionar todos

"A1:" & VALOR_DA_CÉLULA  

[Sc00by22]

Você pode fazer das seguintes formas:

Sem variável

Sheets("PLAN1").ScrollArea = "A1:" & Range("A1").Value

Ou com

VALOR_DA_CÉLULA = RANGE("A1").VALUE
Sheets("PLAN1").ScrollArea = "A1:" & VALOR_DA_CÉLULA

Lembrando que variáveis não pode espaços, precisa usar o _

Se quiser pode declarar ela antes colocando Dim VALOR_DA_CÉLULA As String na primeira linha, mas mesmo sem declarar funciona