Este fórum está sendo desativado

[marcoafdamasceno]

Pessoal, bom dia.

Sou iniciando nesta área de VBA e ao executar a macro abaixo sempre é apresentado o seguinte erro, tempo de execução 1004 - o método range do objeto global falhou, tentei alguma possíveis soluções encontradas no google, mas sem sucesso.
Conseguiriam me ajudar?


Union(Range( _
"O17:O46,P17:P47,Q17:Q48,R17:R49,S17:S50,T17:T51,U17:U52,V17:V53,W17:W54,X17:X55,Y17:Y56,Z17:Z57,AA17:AA58,AB17:AB59,AC17:AC60,AD17:AD61,AE17:AE62,AF17:AF63,AG17:AG64,AH17:AH65,AI17:AI66,AJ17:AJ67,AK17:AK68,AL17:AL69,AM17:AM70,AN17:AN71,AO17:AO72,AP17:AP73,AQ17:AQ74,AR17:AR75,AS17:AS76,AT17:AT77,AU17:AU78,AV17:AV79,AW17:AW80,AX17:AX81,AY17:AY82" _
), Range( _
"AZ17:AZ83,BA17:BA84,BB17:BB85,BC17:BC86,BD17:BD87,BE17:BE88,BF17:BF89,BG17:BG90,BH17:BH91,BI17:BI92,BJ17:BJ93,BK17:BK94,BL17:BL95,BM17:BM96,BN17:BN97,BO17:BO98,BP17:BP99,BQ17:BQ100,BR17:BR101,BS17:BS102,BT17:BT103,BU17:BU104,BV17:BV105,BW17:BW106,BX17:BX107,BY17:BY108,BZ17:BZ109,CA17:CA110,CB17:CB111,CC17:CC112,CD17:CD113,CE17:CE114,CF17:CF115" _
)).Select
Selection.ClearContents
Selection.End(xlToRight).Select

[AfonsoMira]

Olá tudo bem?
Então vou tentar lhe explicar, o erro está a ser causado, pelo excesso de carateres dentro do range. O limite de caracteres para definir um range é de 255 carateres. No seu caso tem 345.

O que pode fazer é dividir ainda mais os ranges e unir tudo com o UNION.
Vou deixar aqui:

Código: Selecionar todos

Union(Range("O17:O46,P17:P47,Q17:Q48,R17:R49,S17:S50,T17:T51,U17:U52,V17:V53,W17:W54,X17:X55,Y17:Y56,Z17:Z57,AA17:AA58,AB17:AB59,AC17:AC60,AD17:AD61,AE17:AE62,AF17:AF63,AG17:AG64"), _
Range("AH17:AH65,AI17:AI66,AJ17:AJ67,AK17:AK68,AL17:AL69,AM17:AM70,AN17:AN71,AO17:AO72,AP17:AP73,AQ17:AQ74,AR17:AR75,AS17:AS76,AT17:AT77,AU17:AU78,AV17:AV79,AW17:AW80,AX17:AX81,AY17:AY82"), _
Range("BR17:BR101,BS17:BS102,BT17:BT103,BU17:BU104,BV17:BV105,BW17:BW106,BX17:BX107,BY17:BY108,BZ17:BZ109,CA17:CA110,CB17:CB111,CC17:CC112,CD17:CD113,CE17:CE114,CF17:CF115,AZ17:AZ83"), _
Range("BA17:BA84,BB17:BB85,BC17:BC86,BD17:BD87,BE17:BE88,BF17:BF89,BG17:BG90,BH17:BH91,BI17:BI92,BJ17:BJ93,BK17:BK94,BL17:BL95,BM17:BM96,BN17:BN97,BO17:BO98,BP17:BP99,BQ17:BQ100")).Select

Selection.ClearContents
Selection.End(xlToRight).Select

[marcoafdamasceno]

@AfonsoMira muito obrigado pela ajuda.

[marcoafdamasceno]

Como altero o post para resolvido?
Não encontrei o local para isto.

[AfonsoMira]

De nada!
O botão ainda não está disponível.