Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#61625
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
#61627
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 agradeceu por isso
#61644
De nada!
O botão ainda não está disponível.
Converter número em letra

Bom dia. Importei uma base de dados para o excel,[…]

Função SE + E

Possuo uma base de dados que tem todas as informa&[…]

Formula Procv ou Indice

Preciso organizar os ativos de maiores pesos de ac[…]

A fórmula funcionou, muito obrigada @osva[…]

Experimente: altere Dim EncontraString As Str[…]

Não encontrei nas suas planilhas quaisquer […]

Boa tarde, pessoal! Dúvida, gostaria de sa[…]

Boa tarde, Enviei o anexo em excel.