Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

módulo muito extenso

Tópicos relacionados a códigos VBA, gravação de macros, etc.
 Resposta
  • Avatar do usuário

módulo muito extenso

Por marcoafdamasceno
-  26 Jan 2021 às 11:02 #61761
Pessoal, tudo bom?

Estou tentando otimizar um processo que atualmente é feito através de uma macro para cada dia da semana... a minha intensão era unificar todas as macros em uma só já que o processo é o mesmo para todos os dias, mas ficou muito extensa e por isso não está sendo processada. Fiz a quebra dela em 2 módulos e deu certo, mas gostaria que ficasse tudo em apenas uma. Teria alguma forma de reduzi-lo ou processar mais de um modulo em apenas uma macro ?
Ao ficou com 1595 linhas.
Avatar do usuário

Re: módulo muito extenso

Por AfonsoMira
Posts Avatar
-  26 Jan 2021 às 11:22 #61762
Boas tarde, consegue disponibilizar a sua macro aqui? Vou ver se consigo dar uma reduzida no número de linhas. :)

Re: módulo muito extenso

Por marcoafdamasceno
-  26 Jan 2021 às 12:14 #61764
Esta é a macro, só que precisei excluir os sheets e processos que se repetem para Sab e Dom porque excedeu as caracteres que podem ser enviadas aqui, mas eles se repetem no mesmo padrão dos demais dias.

Desde já agradeço pela sua ajuda.


Sub ATUALIZAR_TODAS_ESCALAS()

With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False

Sheets("SEG").Select

'Incluindo a régua de 06:20h no cenário:
Range("N17") = Range("JZ17")
Range("O47") = Range("JZ47")
Range("P48") = Range("JZ48")
Range("Q49") = Range("JZ49")
Range("R50") = Range("JZ50")
Range("S51") = Range("JZ51")
Range("T52") = Range("JZ52")
Range("U53") = Range("JZ53")
Range("V54") = Range("JZ54")
Range("W55") = Range("JZ55")
Range("X56") = Range("JZ56")
Range("Y57") = Range("JZ57")
Range("Z58") = Range("JZ58")
Range("AA59") = Range("JZ59")
Range("AB60") = Range("JZ60")
Range("AC61") = Range("JZ61")
Range("AD62") = Range("JZ62")
Range("AE63") = Range("JZ63")
Range("AF64") = Range("JZ64")
Range("AG65") = Range("JZ65")
Range("AH66") = Range("JZ66")
Range("AI67") = Range("JZ67")
Range("AJ68") = Range("JZ68")
Range("AK69") = Range("JZ69")
Range("AL70") = Range("JZ70")
Range("AM71") = Range("JZ71")
Range("AN72") = Range("JZ72")
Range("AO73") = Range("JZ73")
Range("AP74") = Range("JZ74")
Range("AQ75") = Range("JZ75")
Range("AR76") = Range("JZ76")
Range("AS77") = Range("JZ77")
Range("AT78") = Range("JZ78")
Range("AU79") = Range("JZ79")
Range("AV80") = Range("JZ80")
Range("AW81") = Range("JZ81")
Range("AX82") = Range("JZ82")
Range("AY83") = Range("JZ83")
Range("AZ84") = Range("JZ84")
Range("BA85") = Range("JZ85")
Range("BB86") = Range("JZ86")
Range("BC87") = Range("JZ87")
Range("BD88") = Range("JZ88")
Range("BE89") = Range("JZ89")
Range("BF90") = Range("JZ90")
Range("BG91") = Range("JZ91")
Range("BH92") = Range("JZ92")
Range("BI93") = Range("JZ93")
Range("BJ94") = Range("JZ94")
Range("BK95") = Range("JZ95")
Range("BL96") = Range("JZ96")
Range("BM97") = Range("JZ97")
Range("BN98") = Range("JZ98")
Range("BO99") = Range("JZ99")
Range("BP100") = Range("JZ100")
Range("BQ101") = Range("JZ101")
Range("BR102") = Range("JZ102")
Range("BS103") = Range("JZ103")
Range("BT104") = Range("JZ104")
Range("BU105") = Range("JZ105")
Range("BV106") = Range("JZ106")
Range("BW107") = Range("JZ107")
Range("BX108") = Range("JZ108")
Range("BY109") = Range("JZ109")
Range("BZ110") = Range("JZ110")
Range("CA111") = Range("JZ111")
Range("CB112") = Range("JZ112")
Range("CC113") = Range("JZ113")
Range("CD114") = Range("JZ114")
Range("CE115") = Range("JZ115")
Range("CF116") = Range("JZ116")
Range("CG117") = Range("JZ117")
Range("CH118") = Range("JZ118")
Range("CI119") = Range("JZ119")
Range("CJ120") = Range("JZ120")
Range("CK121") = Range("JZ121")
Range("CL122") = Range("JZ122")
Range("CM123") = Range("JZ123")
Range("CN124") = Range("JZ124")
Range("CO125") = Range("JZ125")
Range("CP126") = Range("JZ126")
Range("CQ127") = Range("JZ127")
Range("CR128") = Range("JZ128")
Range("CS129") = Range("JZ129")
Range("CT130") = Range("JZ130")
Range("CU131") = Range("JZ131")
Range("CV132") = Range("JZ132")
Range("CW133") = Range("JZ133")
Range("CX134") = Range("JZ134")
Range("CY135") = Range("JZ135")
Range("CZ136") = Range("JZ136")
Range("DA137") = Range("JZ137")
Range("DB138") = Range("JZ138")
Range("DC139") = Range("JZ139")
Range("DD140") = Range("JZ140")
Range("DE141") = Range("JZ141")
Range("DF142") = Range("JZ142")
Range("DG143") = Range("JZ143")
Range("DJ144") = Range("JZ144")
Range("DI145") = Range("JZ145")
Range("DJ146") = Range("JZ146")
Range("DK147") = Range("JZ147")
Range("DL148") = Range("JZ148")
Range("DM149") = Range("JZ149")
Range("DN150") = Range("JZ150")
Range("DO151") = Range("JZ151")
Range("DP152") = Range("JZ152")
Range("DQ153") = Range("JZ153")
Range("DR154") = Range("JZ154")
Range("DS155") = Range("JZ155")
Range("DT156") = Range("JZ156")
Range("DU157") = Range("JZ157")
Range("DV158") = Range("JZ158")
Range("DW159") = Range("JZ159")
Range("DX160") = Range("JZ160")

'Incluindo a régua de 08:12h no cenário:
Range("DZ53") = Range("KA53")
Range("EA54") = Range("KA54")
Range("EB55") = Range("KA55")
Range("EC56") = Range("KA56")
Range("ED57") = Range("KA57")
Range("EE58") = Range("KA58")
Range("EF59") = Range("KA59")
Range("EG60") = Range("KA60")
Range("EH61") = Range("KA61")
Range("EI62") = Range("KA62")
Range("EJ63") = Range("KA63")
Range("EK64") = Range("KA64")
Range("EL65") = Range("KA65")
Range("EM66") = Range("KA66")
Range("EN67") = Range("KA67")
Range("EO68") = Range("KA68")
Range("EP69") = Range("KA69")
Range("EQ70") = Range("KA70")
Range("ER71") = Range("KA71")
Range("ES72") = Range("KA72")
Range("ET73") = Range("KA73")
Range("EU74") = Range("KA74")
Range("EV75") = Range("KA75")
Range("EW76") = Range("KA76")
Range("EX77") = Range("KA77")
Range("EY78") = Range("KA78")
Range("EZ79") = Range("KA79")
Range("FA80") = Range("KA80")
Range("FB81") = Range("KA81")
Range("FC82") = Range("KA82")
Range("FD83") = Range("KA83")
Range("FE84") = Range("KA84")
Range("FF85") = Range("KA85")
Range("FG86") = Range("KA86")
Range("FH87") = Range("KA87")
Range("FI88") = Range("KA88")
Range("FJ89") = Range("KA89")
Range("FK90") = Range("KA90")
Range("FL91") = Range("KA91")
Range("FM92") = Range("KA92")
Range("FN93") = Range("KA93")
Range("FO94") = Range("KA94")
Range("FP95") = Range("KA95")
Range("FQ96") = Range("KA96")
Range("FR97") = Range("KA97")
Range("FS98") = Range("KA98")
Range("FT99") = Range("KA99")
Range("FU100") = Range("KA100")
Range("FV101") = Range("KA101")
Range("FW102") = Range("KA102")
Range("FX103") = Range("KA103")
Range("FY104") = Range("KA104")
Range("FZ105") = Range("KA105")
Range("GA106") = Range("KA106")
Range("GB107") = Range("KA107")
Range("GC108") = Range("KA108")
Range("GD109") = Range("KA109")
Range("GE110") = Range("KA110")
Range("GF111") = Range("KA111")
Range("GG112") = Range("KA112")
Range("GH113") = Range("KA113")
Range("GI114") = Range("KA114")
Range("GJ115") = Range("KA115")
Range("GK116") = Range("KA116")
Range("GL117") = Range("KA117")
Range("GM118") = Range("KA118")
Range("GN119") = Range("KA119")
Range("GO120") = Range("KA120")
Range("GP121") = Range("KA121")
Range("GQ122") = Range("KA122")
Range("GR123") = Range("KA123")
Range("GS124") = Range("KA124")
Range("GT125") = Range("KA125")
Range("GU126") = Range("KA126")
Range("GV127") = Range("KA127")
Range("GW128") = Range("KA128")
Range("GX129") = Range("KA129")
Range("GY130") = Range("KA130")
Range("GZ131") = Range("KA131")
Range("HA132") = Range("KA132")
Range("HB133") = Range("KA133")
Range("HC134") = Range("KA134")
Range("HD135") = Range("KA135")
Range("HE136") = Range("KA136")
Range("HF137") = Range("KA137")
Range("HG138") = Range("KA138")
Range("HH139") = Range("KA139")
Range("HI140") = Range("KA140")
Range("HJ141") = Range("KA141")
Range("HK142") = Range("KA142")
Range("HL143") = Range("KA143")
Range("HM144") = Range("KA144")
Range("HN145") = Range("KA145")
Range("HO146") = Range("KA146")
Range("HP147") = Range("KA147")
Range("HQ148") = Range("KA148")
Range("HR149") = Range("KA149")
Range("HS150") = Range("KA150")
Range("HT151") = Range("KA151")
Range("HU152") = Range("KA152")
Range("HV153") = Range("KA153")
Range("HW154") = Range("KA154")
Range("HX155") = Range("KA155")
Range("HY156") = Range("KA156")
Range("HZ157") = Range("KA157")
Range("IA158") = Range("KA158")
Range("IB159") = Range("KA159")
Range("IC160") = Range("KA160")


Sheets("TER").Select

'Incluindo a régua de 06:20h no cenário:
Range("N17") = Range("JZ17")
Range("O47") = Range("JZ47")
Range("P48") = Range("JZ48")
Range("Q49") = Range("JZ49")
Range("R50") = Range("JZ50")
Range("S51") = Range("JZ51")
Range("T52") = Range("JZ52")
Range("U53") = Range("JZ53")
Range("V54") = Range("JZ54")
Range("W55") = Range("JZ55")
Range("X56") = Range("JZ56")
Range("Y57") = Range("JZ57")
Range("Z58") = Range("JZ58")
Range("AA59") = Range("JZ59")
Range("AB60") = Range("JZ60")
Range("AC61") = Range("JZ61")
Range("AD62") = Range("JZ62")
Range("AE63") = Range("JZ63")
Range("AF64") = Range("JZ64")
Range("AG65") = Range("JZ65")
Range("AH66") = Range("JZ66")
Range("AI67") = Range("JZ67")
Range("AJ68") = Range("JZ68")
Range("AK69") = Range("JZ69")
Range("AL70") = Range("JZ70")
Range("AM71") = Range("JZ71")
Range("AN72") = Range("JZ72")
Range("AO73") = Range("JZ73")
Range("AP74") = Range("JZ74")
Range("AQ75") = Range("JZ75")
Range("AR76") = Range("JZ76")
Range("AS77") = Range("JZ77")
Range("AT78") = Range("JZ78")
Range("AU79") = Range("JZ79")
Range("AV80") = Range("JZ80")
Range("AW81") = Range("JZ81")
Range("AX82") = Range("JZ82")
Range("AY83") = Range("JZ83")
Range("AZ84") = Range("JZ84")
Range("BA85") = Range("JZ85")
Range("BB86") = Range("JZ86")
Range("BC87") = Range("JZ87")
Range("BD88") = Range("JZ88")
Range("BE89") = Range("JZ89")
Range("BF90") = Range("JZ90")
Range("BG91") = Range("JZ91")
Range("BH92") = Range("JZ92")
Range("BI93") = Range("JZ93")
Range("BJ94") = Range("JZ94")
Range("BK95") = Range("JZ95")
Range("BL96") = Range("JZ96")
Range("BM97") = Range("JZ97")
Range("BN98") = Range("JZ98")
Range("BO99") = Range("JZ99")
Range("BP100") = Range("JZ100")
Range("BQ101") = Range("JZ101")
Range("BR102") = Range("JZ102")
Range("BS103") = Range("JZ103")
Range("BT104") = Range("JZ104")
Range("BU105") = Range("JZ105")
Range("BV106") = Range("JZ106")
Range("BW107") = Range("JZ107")
Range("BX108") = Range("JZ108")
Range("BY109") = Range("JZ109")
Range("BZ110") = Range("JZ110")
Range("CA111") = Range("JZ111")
Range("CB112") = Range("JZ112")
Range("CC113") = Range("JZ113")
Range("CD114") = Range("JZ114")
Range("CE115") = Range("JZ115")
Range("CF116") = Range("JZ116")
Range("CG117") = Range("JZ117")
Range("CH118") = Range("JZ118")
Range("CI119") = Range("JZ119")
Range("CJ120") = Range("JZ120")
Range("CK121") = Range("JZ121")
Range("CL122") = Range("JZ122")
Range("CM123") = Range("JZ123")
Range("CN124") = Range("JZ124")
Range("CO125") = Range("JZ125")
Range("CP126") = Range("JZ126")
Range("CQ127") = Range("JZ127")
Range("CR128") = Range("JZ128")
Range("CS129") = Range("JZ129")
Range("CT130") = Range("JZ130")
Range("CU131") = Range("JZ131")
Range("CV132") = Range("JZ132")
Range("CW133") = Range("JZ133")
Range("CX134") = Range("JZ134")
Range("CY135") = Range("JZ135")
Range("CZ136") = Range("JZ136")
Range("DA137") = Range("JZ137")
Range("DB138") = Range("JZ138")
Range("DC139") = Range("JZ139")
Range("DD140") = Range("JZ140")
Range("DE141") = Range("JZ141")
Range("DF142") = Range("JZ142")
Range("DG143") = Range("JZ143")
Range("DJ144") = Range("JZ144")
Range("DI145") = Range("JZ145")
Range("DJ146") = Range("JZ146")
Range("DK147") = Range("JZ147")
Range("DL148") = Range("JZ148")
Range("DM149") = Range("JZ149")
Range("DN150") = Range("JZ150")
Range("DO151") = Range("JZ151")
Range("DP152") = Range("JZ152")
Range("DQ153") = Range("JZ153")
Range("DR154") = Range("JZ154")
Range("DS155") = Range("JZ155")
Range("DT156") = Range("JZ156")
Range("DU157") = Range("JZ157")
Range("DV158") = Range("JZ158")
Range("DW159") = Range("JZ159")
Range("DX160") = Range("JZ160")

'Incluindo a régua de 08:12h no cenário:
Range("DZ53") = Range("KA53")
Range("EA54") = Range("KA54")
Range("EB55") = Range("KA55")
Range("EC56") = Range("KA56")
Range("ED57") = Range("KA57")
Range("EE58") = Range("KA58")
Range("EF59") = Range("KA59")
Range("EG60") = Range("KA60")
Range("EH61") = Range("KA61")
Range("EI62") = Range("KA62")
Range("EJ63") = Range("KA63")
Range("EK64") = Range("KA64")
Range("EL65") = Range("KA65")
Range("EM66") = Range("KA66")
Range("EN67") = Range("KA67")
Range("EO68") = Range("KA68")
Range("EP69") = Range("KA69")
Range("EQ70") = Range("KA70")
Range("ER71") = Range("KA71")
Range("ES72") = Range("KA72")
Range("ET73") = Range("KA73")
Range("EU74") = Range("KA74")
Range("EV75") = Range("KA75")
Range("EW76") = Range("KA76")
Range("EX77") = Range("KA77")
Range("EY78") = Range("KA78")
Range("EZ79") = Range("KA79")
Range("FA80") = Range("KA80")
Range("FB81") = Range("KA81")
Range("FC82") = Range("KA82")
Range("FD83") = Range("KA83")
Range("FE84") = Range("KA84")
Range("FF85") = Range("KA85")
Range("FG86") = Range("KA86")
Range("FH87") = Range("KA87")
Range("FI88") = Range("KA88")
Range("FJ89") = Range("KA89")
Range("FK90") = Range("KA90")
Range("FL91") = Range("KA91")
Range("FM92") = Range("KA92")
Range("FN93") = Range("KA93")
Range("FO94") = Range("KA94")
Range("FP95") = Range("KA95")
Range("FQ96") = Range("KA96")
Range("FR97") = Range("KA97")
Range("FS98") = Range("KA98")
Range("FT99") = Range("KA99")
Range("FU100") = Range("KA100")
Range("FV101") = Range("KA101")
Range("FW102") = Range("KA102")
Range("FX103") = Range("KA103")
Range("FY104") = Range("KA104")
Range("FZ105") = Range("KA105")
Range("GA106") = Range("KA106")
Range("GB107") = Range("KA107")
Range("GC108") = Range("KA108")
Range("GD109") = Range("KA109")
Range("GE110") = Range("KA110")
Range("GF111") = Range("KA111")
Range("GG112") = Range("KA112")
Range("GH113") = Range("KA113")
Range("GI114") = Range("KA114")
Range("GJ115") = Range("KA115")
Range("GK116") = Range("KA116")
Range("GL117") = Range("KA117")
Range("GM118") = Range("KA118")
Range("GN119") = Range("KA119")
Range("GO120") = Range("KA120")
Range("GP121") = Range("KA121")
Range("GQ122") = Range("KA122")
Range("GR123") = Range("KA123")
Range("GS124") = Range("KA124")
Range("GT125") = Range("KA125")
Range("GU126") = Range("KA126")
Range("GV127") = Range("KA127")
Range("GW128") = Range("KA128")
Range("GX129") = Range("KA129")
Range("GY130") = Range("KA130")
Range("GZ131") = Range("KA131")
Range("HA132") = Range("KA132")
Range("HB133") = Range("KA133")
Range("HC134") = Range("KA134")
Range("HD135") = Range("KA135")
Range("HE136") = Range("KA136")
Range("HF137") = Range("KA137")
Range("HG138") = Range("KA138")
Range("HH139") = Range("KA139")
Range("HI140") = Range("KA140")
Range("HJ141") = Range("KA141")
Range("HK142") = Range("KA142")
Range("HL143") = Range("KA143")
Range("HM144") = Range("KA144")
Range("HN145") = Range("KA145")
Range("HO146") = Range("KA146")
Range("HP147") = Range("KA147")
Range("HQ148") = Range("KA148")
Range("HR149") = Range("KA149")
Range("HS150") = Range("KA150")
Range("HT151") = Range("KA151")
Range("HU152") = Range("KA152")
Range("HV153") = Range("KA153")
Range("HW154") = Range("KA154")
Range("HX155") = Range("KA155")
Range("HY156") = Range("KA156")
Range("HZ157") = Range("KA157")
Range("IA158") = Range("KA158")
Range("IB159") = Range("KA159")
Range("IC160") = Range("KA160")

Sheets("QUA").Select

'Incluindo a régua de 06:20h no cenário:
Range("N17") = Range("JZ17")
Range("O47") = Range("JZ47")
Range("P48") = Range("JZ48")
Range("Q49") = Range("JZ49")
Range("R50") = Range("JZ50")
Range("S51") = Range("JZ51")
Range("T52") = Range("JZ52")
Range("U53") = Range("JZ53")
Range("V54") = Range("JZ54")
Range("W55") = Range("JZ55")
Range("X56") = Range("JZ56")
Range("Y57") = Range("JZ57")
Range("Z58") = Range("JZ58")
Range("AA59") = Range("JZ59")
Range("AB60") = Range("JZ60")
Range("AC61") = Range("JZ61")
Range("AD62") = Range("JZ62")
Range("AE63") = Range("JZ63")
Range("AF64") = Range("JZ64")
Range("AG65") = Range("JZ65")
Range("AH66") = Range("JZ66")
Range("AI67") = Range("JZ67")
Range("AJ68") = Range("JZ68")
Range("AK69") = Range("JZ69")
Range("AL70") = Range("JZ70")
Range("AM71") = Range("JZ71")
Range("AN72") = Range("JZ72")
Range("AO73") = Range("JZ73")
Range("AP74") = Range("JZ74")
Range("AQ75") = Range("JZ75")
Range("AR76") = Range("JZ76")
Range("AS77") = Range("JZ77")
Range("AT78") = Range("JZ78")
Range("AU79") = Range("JZ79")
Range("AV80") = Range("JZ80")
Range("AW81") = Range("JZ81")
Range("AX82") = Range("JZ82")
Range("AY83") = Range("JZ83")
Range("AZ84") = Range("JZ84")
Range("BA85") = Range("JZ85")
Range("BB86") = Range("JZ86")
Range("BC87") = Range("JZ87")
Range("BD88") = Range("JZ88")
Range("BE89") = Range("JZ89")
Range("BF90") = Range("JZ90")
Range("BG91") = Range("JZ91")
Range("BH92") = Range("JZ92")
Range("BI93") = Range("JZ93")
Range("BJ94") = Range("JZ94")
Range("BK95") = Range("JZ95")
Range("BL96") = Range("JZ96")
Range("BM97") = Range("JZ97")
Range("BN98") = Range("JZ98")
Range("BO99") = Range("JZ99")
Range("BP100") = Range("JZ100")
Range("BQ101") = Range("JZ101")
Range("BR102") = Range("JZ102")
Range("BS103") = Range("JZ103")
Range("BT104") = Range("JZ104")
Range("BU105") = Range("JZ105")
Range("BV106") = Range("JZ106")
Range("BW107") = Range("JZ107")
Range("BX108") = Range("JZ108")
Range("BY109") = Range("JZ109")
Range("BZ110") = Range("JZ110")
Range("CA111") = Range("JZ111")
Range("CB112") = Range("JZ112")
Range("CC113") = Range("JZ113")
Range("CD114") = Range("JZ114")
Range("CE115") = Range("JZ115")
Range("CF116") = Range("JZ116")
Range("CG117") = Range("JZ117")
Range("CH118") = Range("JZ118")
Range("CI119") = Range("JZ119")
Range("CJ120") = Range("JZ120")
Range("CK121") = Range("JZ121")
Range("CL122") = Range("JZ122")
Range("CM123") = Range("JZ123")
Range("CN124") = Range("JZ124")
Range("CO125") = Range("JZ125")
Range("CP126") = Range("JZ126")
Range("CQ127") = Range("JZ127")
Range("CR128") = Range("JZ128")
Range("CS129") = Range("JZ129")
Range("CT130") = Range("JZ130")
Range("CU131") = Range("JZ131")
Range("CV132") = Range("JZ132")
Range("CW133") = Range("JZ133")
Range("CX134") = Range("JZ134")
Range("CY135") = Range("JZ135")
Range("CZ136") = Range("JZ136")
Range("DA137") = Range("JZ137")
Range("DB138") = Range("JZ138")
Range("DC139") = Range("JZ139")
Range("DD140") = Range("JZ140")
Range("DE141") = Range("JZ141")
Range("DF142") = Range("JZ142")
Range("DG143") = Range("JZ143")
Range("DJ144") = Range("JZ144")
Range("DI145") = Range("JZ145")
Range("DJ146") = Range("JZ146")
Range("DK147") = Range("JZ147")
Range("DL148") = Range("JZ148")
Range("DM149") = Range("JZ149")
Range("DN150") = Range("JZ150")
Range("DO151") = Range("JZ151")
Range("DP152") = Range("JZ152")
Range("DQ153") = Range("JZ153")
Range("DR154") = Range("JZ154")
Range("DS155") = Range("JZ155")
Range("DT156") = Range("JZ156")
Range("DU157") = Range("JZ157")
Range("DV158") = Range("JZ158")
Range("DW159") = Range("JZ159")
Range("DX160") = Range("JZ160")

'Incluindo a régua de 08:12h no cenário:
Range("DZ53") = Range("KA53")
Range("EA54") = Range("KA54")
Range("EB55") = Range("KA55")
Range("EC56") = Range("KA56")
Range("ED57") = Range("KA57")
Range("EE58") = Range("KA58")
Range("EF59") = Range("KA59")
Range("EG60") = Range("KA60")
Range("EH61") = Range("KA61")
Range("EI62") = Range("KA62")
Range("EJ63") = Range("KA63")
Range("EK64") = Range("KA64")
Range("EL65") = Range("KA65")
Range("EM66") = Range("KA66")
Range("EN67") = Range("KA67")
Range("EO68") = Range("KA68")
Range("EP69") = Range("KA69")
Range("EQ70") = Range("KA70")
Range("ER71") = Range("KA71")
Range("ES72") = Range("KA72")
Range("ET73") = Range("KA73")
Range("EU74") = Range("KA74")
Range("EV75") = Range("KA75")
Range("EW76") = Range("KA76")
Range("EX77") = Range("KA77")
Range("EY78") = Range("KA78")
Range("EZ79") = Range("KA79")
Range("FA80") = Range("KA80")
Range("FB81") = Range("KA81")
Range("FC82") = Range("KA82")
Range("FD83") = Range("KA83")
Range("FE84") = Range("KA84")
Range("FF85") = Range("KA85")
Range("FG86") = Range("KA86")
Range("FH87") = Range("KA87")
Range("FI88") = Range("KA88")
Range("FJ89") = Range("KA89")
Range("FK90") = Range("KA90")
Range("FL91") = Range("KA91")
Range("FM92") = Range("KA92")
Range("FN93") = Range("KA93")
Range("FO94") = Range("KA94")
Range("FP95") = Range("KA95")
Range("FQ96") = Range("KA96")
Range("FR97") = Range("KA97")
Range("FS98") = Range("KA98")
Range("FT99") = Range("KA99")
Range("FU100") = Range("KA100")
Range("FV101") = Range("KA101")
Range("FW102") = Range("KA102")
Range("FX103") = Range("KA103")
Range("FY104") = Range("KA104")
Range("FZ105") = Range("KA105")
Range("GA106") = Range("KA106")
Range("GB107") = Range("KA107")
Range("GC108") = Range("KA108")
Range("GD109") = Range("KA109")
Range("GE110") = Range("KA110")
Range("GF111") = Range("KA111")
Range("GG112") = Range("KA112")
Range("GH113") = Range("KA113")
Range("GI114") = Range("KA114")
Range("GJ115") = Range("KA115")
Range("GK116") = Range("KA116")
Range("GL117") = Range("KA117")
Range("GM118") = Range("KA118")
Range("GN119") = Range("KA119")
Range("GO120") = Range("KA120")
Range("GP121") = Range("KA121")
Range("GQ122") = Range("KA122")
Range("GR123") = Range("KA123")
Range("GS124") = Range("KA124")
Range("GT125") = Range("KA125")
Range("GU126") = Range("KA126")
Range("GV127") = Range("KA127")
Range("GW128") = Range("KA128")
Range("GX129") = Range("KA129")
Range("GY130") = Range("KA130")
Range("GZ131") = Range("KA131")
Range("HA132") = Range("KA132")
Range("HB133") = Range("KA133")
Range("HC134") = Range("KA134")
Range("HD135") = Range("KA135")
Range("HE136") = Range("KA136")
Range("HF137") = Range("KA137")
Range("HG138") = Range("KA138")
Range("HH139") = Range("KA139")
Range("HI140") = Range("KA140")
Range("HJ141") = Range("KA141")
Range("HK142") = Range("KA142")
Range("HL143") = Range("KA143")
Range("HM144") = Range("KA144")
Range("HN145") = Range("KA145")
Range("HO146") = Range("KA146")
Range("HP147") = Range("KA147")
Range("HQ148") = Range("KA148")
Range("HR149") = Range("KA149")
Range("HS150") = Range("KA150")
Range("HT151") = Range("KA151")
Range("HU152") = Range("KA152")
Range("HV153") = Range("KA153")
Range("HW154") = Range("KA154")
Range("HX155") = Range("KA155")
Range("HY156") = Range("KA156")
Range("HZ157") = Range("KA157")
Range("IA158") = Range("KA158")
Range("IB159") = Range("KA159")
Range("IC160") = Range("KA160")


Sheets("QUI").Select

'Incluindo a régua de 06:20h no cenário:
Range("N17") = Range("JZ17")
Range("O47") = Range("JZ47")
Range("P48") = Range("JZ48")
Range("Q49") = Range("JZ49")
Range("R50") = Range("JZ50")
Range("S51") = Range("JZ51")
Range("T52") = Range("JZ52")
Range("U53") = Range("JZ53")
Range("V54") = Range("JZ54")
Range("W55") = Range("JZ55")
Range("X56") = Range("JZ56")
Range("Y57") = Range("JZ57")
Range("Z58") = Range("JZ58")
Range("AA59") = Range("JZ59")
Range("AB60") = Range("JZ60")
Range("AC61") = Range("JZ61")
Range("AD62") = Range("JZ62")
Range("AE63") = Range("JZ63")
Range("AF64") = Range("JZ64")
Range("AG65") = Range("JZ65")
Range("AH66") = Range("JZ66")
Range("AI67") = Range("JZ67")
Range("AJ68") = Range("JZ68")
Range("AK69") = Range("JZ69")
Range("AL70") = Range("JZ70")
Range("AM71") = Range("JZ71")
Range("AN72") = Range("JZ72")
Range("AO73") = Range("JZ73")
Range("AP74") = Range("JZ74")
Range("AQ75") = Range("JZ75")
Range("AR76") = Range("JZ76")
Range("AS77") = Range("JZ77")
Range("AT78") = Range("JZ78")
Range("AU79") = Range("JZ79")
Range("AV80") = Range("JZ80")
Range("AW81") = Range("JZ81")
Range("AX82") = Range("JZ82")
Range("AY83") = Range("JZ83")
Range("AZ84") = Range("JZ84")
Range("BA85") = Range("JZ85")
Range("BB86") = Range("JZ86")
Range("BC87") = Range("JZ87")
Range("BD88") = Range("JZ88")
Range("BE89") = Range("JZ89")
Range("BF90") = Range("JZ90")
Range("BG91") = Range("JZ91")
Range("BH92") = Range("JZ92")
Range("BI93") = Range("JZ93")
Range("BJ94") = Range("JZ94")
Range("BK95") = Range("JZ95")
Range("BL96") = Range("JZ96")
Range("BM97") = Range("JZ97")
Range("BN98") = Range("JZ98")
Range("BO99") = Range("JZ99")
Range("BP100") = Range("JZ100")
Range("BQ101") = Range("JZ101")
Range("BR102") = Range("JZ102")
Range("BS103") = Range("JZ103")
Range("BT104") = Range("JZ104")
Range("BU105") = Range("JZ105")
Range("BV106") = Range("JZ106")
Range("BW107") = Range("JZ107")
Range("BX108") = Range("JZ108")
Range("BY109") = Range("JZ109")
Range("BZ110") = Range("JZ110")
Range("CA111") = Range("JZ111")
Range("CB112") = Range("JZ112")
Range("CC113") = Range("JZ113")
Range("CD114") = Range("JZ114")
Range("CE115") = Range("JZ115")
Range("CF116") = Range("JZ116")
Range("CG117") = Range("JZ117")
Range("CH118") = Range("JZ118")
Range("CI119") = Range("JZ119")
Range("CJ120") = Range("JZ120")
Range("CK121") = Range("JZ121")
Range("CL122") = Range("JZ122")
Range("CM123") = Range("JZ123")
Range("CN124") = Range("JZ124")
Range("CO125") = Range("JZ125")
Range("CP126") = Range("JZ126")
Range("CQ127") = Range("JZ127")
Range("CR128") = Range("JZ128")
Range("CS129") = Range("JZ129")
Range("CT130") = Range("JZ130")
Range("CU131") = Range("JZ131")
Range("CV132") = Range("JZ132")
Range("CW133") = Range("JZ133")
Range("CX134") = Range("JZ134")
Range("CY135") = Range("JZ135")
Range("CZ136") = Range("JZ136")
Range("DA137") = Range("JZ137")
Range("DB138") = Range("JZ138")
Range("DC139") = Range("JZ139")
Range("DD140") = Range("JZ140")
Range("DE141") = Range("JZ141")
Range("DF142") = Range("JZ142")
Range("DG143") = Range("JZ143")
Range("DJ144") = Range("JZ144")
Range("DI145") = Range("JZ145")
Range("DJ146") = Range("JZ146")
Range("DK147") = Range("JZ147")
Range("DL148") = Range("JZ148")
Range("DM149") = Range("JZ149")
Range("DN150") = Range("JZ150")
Range("DO151") = Range("JZ151")
Range("DP152") = Range("JZ152")
Range("DQ153") = Range("JZ153")
Range("DR154") = Range("JZ154")
Range("DS155") = Range("JZ155")
Range("DT156") = Range("JZ156")
Range("DU157") = Range("JZ157")
Range("DV158") = Range("JZ158")
Range("DW159") = Range("JZ159")
Range("DX160") = Range("JZ160")

'Incluindo a régua de 08:12h no cenário:
Range("DZ53") = Range("KA53")
Range("EA54") = Range("KA54")
Range("EB55") = Range("KA55")
Range("EC56") = Range("KA56")
Range("ED57") = Range("KA57")
Range("EE58") = Range("KA58")
Range("EF59") = Range("KA59")
Range("EG60") = Range("KA60")
Range("EH61") = Range("KA61")
Range("EI62") = Range("KA62")
Range("EJ63") = Range("KA63")
Range("EK64") = Range("KA64")
Range("EL65") = Range("KA65")
Range("EM66") = Range("KA66")
Range("EN67") = Range("KA67")
Range("EO68") = Range("KA68")
Range("EP69") = Range("KA69")
Range("EQ70") = Range("KA70")
Range("ER71") = Range("KA71")
Range("ES72") = Range("KA72")
Range("ET73") = Range("KA73")
Range("EU74") = Range("KA74")
Range("EV75") = Range("KA75")
Range("EW76") = Range("KA76")
Range("EX77") = Range("KA77")
Range("EY78") = Range("KA78")
Range("EZ79") = Range("KA79")
Range("FA80") = Range("KA80")
Range("FB81") = Range("KA81")
Range("FC82") = Range("KA82")
Range("FD83") = Range("KA83")
Range("FE84") = Range("KA84")
Range("FF85") = Range("KA85")
Range("FG86") = Range("KA86")
Range("FH87") = Range("KA87")
Range("FI88") = Range("KA88")
Range("FJ89") = Range("KA89")
Range("FK90") = Range("KA90")
Range("FL91") = Range("KA91")
Range("FM92") = Range("KA92")
Range("FN93") = Range("KA93")
Range("FO94") = Range("KA94")
Range("FP95") = Range("KA95")
Range("FQ96") = Range("KA96")
Range("FR97") = Range("KA97")
Range("FS98") = Range("KA98")
Range("FT99") = Range("KA99")
Range("FU100") = Range("KA100")
Range("FV101") = Range("KA101")
Range("FW102") = Range("KA102")
Range("FX103") = Range("KA103")
Range("FY104") = Range("KA104")
Range("FZ105") = Range("KA105")
Range("GA106") = Range("KA106")
Range("GB107") = Range("KA107")
Range("GC108") = Range("KA108")
Range("GD109") = Range("KA109")
Range("GE110") = Range("KA110")
Range("GF111") = Range("KA111")
Range("GG112") = Range("KA112")
Range("GH113") = Range("KA113")
Range("GI114") = Range("KA114")
Range("GJ115") = Range("KA115")
Range("GK116") = Range("KA116")
Range("GL117") = Range("KA117")
Range("GM118") = Range("KA118")
Range("GN119") = Range("KA119")
Range("GO120") = Range("KA120")
Range("GP121") = Range("KA121")
Range("GQ122") = Range("KA122")
Range("GR123") = Range("KA123")
Range("GS124") = Range("KA124")
Range("GT125") = Range("KA125")
Range("GU126") = Range("KA126")
Range("GV127") = Range("KA127")
Range("GW128") = Range("KA128")
Range("GX129") = Range("KA129")
Range("GY130") = Range("KA130")
Range("GZ131") = Range("KA131")
Range("HA132") = Range("KA132")
Range("HB133") = Range("KA133")
Range("HC134") = Range("KA134")
Range("HD135") = Range("KA135")
Range("HE136") = Range("KA136")
Range("HF137") = Range("KA137")
Range("HG138") = Range("KA138")
Range("HH139") = Range("KA139")
Range("HI140") = Range("KA140")
Range("HJ141") = Range("KA141")
Range("HK142") = Range("KA142")
Range("HL143") = Range("KA143")
Range("HM144") = Range("KA144")
Range("HN145") = Range("KA145")
Range("HO146") = Range("KA146")
Range("HP147") = Range("KA147")
Range("HQ148") = Range("KA148")
Range("HR149") = Range("KA149")
Range("HS150") = Range("KA150")
Range("HT151") = Range("KA151")
Range("HU152") = Range("KA152")
Range("HV153") = Range("KA153")
Range("HW154") = Range("KA154")
Range("HX155") = Range("KA155")
Range("HY156") = Range("KA156")
Range("HZ157") = Range("KA157")
Range("IA158") = Range("KA158")
Range("IB159") = Range("KA159")
Range("IC160") = Range("KA160")


Sheets("SEX").Select

'Incluindo a régua de 06:20h no cenário:
Range("N17") = Range("JZ17")
Range("O47") = Range("JZ47")
Range("P48") = Range("JZ48")
Range("Q49") = Range("JZ49")
Range("R50") = Range("JZ50")
Range("S51") = Range("JZ51")
Range("T52") = Range("JZ52")
Range("U53") = Range("JZ53")
Range("V54") = Range("JZ54")
Range("W55") = Range("JZ55")
Range("X56") = Range("JZ56")
Range("Y57") = Range("JZ57")
Range("Z58") = Range("JZ58")
Range("AA59") = Range("JZ59")
Range("AB60") = Range("JZ60")
Range("AC61") = Range("JZ61")
Range("AD62") = Range("JZ62")
Range("AE63") = Range("JZ63")
Range("AF64") = Range("JZ64")
Range("AG65") = Range("JZ65")
Range("AH66") = Range("JZ66")
Range("AI67") = Range("JZ67")
Range("AJ68") = Range("JZ68")
Range("AK69") = Range("JZ69")
Range("AL70") = Range("JZ70")
Range("AM71") = Range("JZ71")
Range("AN72") = Range("JZ72")
Range("AO73") = Range("JZ73")
Range("AP74") = Range("JZ74")
Range("AQ75") = Range("JZ75")
Range("AR76") = Range("JZ76")
Range("AS77") = Range("JZ77")
Range("AT78") = Range("JZ78")
Range("AU79") = Range("JZ79")
Range("AV80") = Range("JZ80")
Range("AW81") = Range("JZ81")
Range("AX82") = Range("JZ82")
Range("AY83") = Range("JZ83")
Range("AZ84") = Range("JZ84")
Range("BA85") = Range("JZ85")
Range("BB86") = Range("JZ86")
Range("BC87") = Range("JZ87")
Range("BD88") = Range("JZ88")
Range("BE89") = Range("JZ89")
Range("BF90") = Range("JZ90")
Range("BG91") = Range("JZ91")
Range("BH92") = Range("JZ92")
Range("BI93") = Range("JZ93")
Range("BJ94") = Range("JZ94")
Range("BK95") = Range("JZ95")
Range("BL96") = Range("JZ96")
Range("BM97") = Range("JZ97")
Range("BN98") = Range("JZ98")
Range("BO99") = Range("JZ99")
Range("BP100") = Range("JZ100")
Range("BQ101") = Range("JZ101")
Range("BR102") = Range("JZ102")
Range("BS103") = Range("JZ103")
Range("BT104") = Range("JZ104")
Range("BU105") = Range("JZ105")
Range("BV106") = Range("JZ106")
Range("BW107") = Range("JZ107")
Range("BX108") = Range("JZ108")
Range("BY109") = Range("JZ109")
Range("BZ110") = Range("JZ110")
Range("CA111") = Range("JZ111")
Range("CB112") = Range("JZ112")
Range("CC113") = Range("JZ113")
Range("CD114") = Range("JZ114")
Range("CE115") = Range("JZ115")
Range("CF116") = Range("JZ116")
Range("CG117") = Range("JZ117")
Range("CH118") = Range("JZ118")
Range("CI119") = Range("JZ119")
Range("CJ120") = Range("JZ120")
Range("CK121") = Range("JZ121")
Range("CL122") = Range("JZ122")
Range("CM123") = Range("JZ123")
Range("CN124") = Range("JZ124")
Range("CO125") = Range("JZ125")
Range("CP126") = Range("JZ126")
Range("CQ127") = Range("JZ127")
Range("CR128") = Range("JZ128")
Range("CS129") = Range("JZ129")
Range("CT130") = Range("JZ130")
Range("CU131") = Range("JZ131")
Range("CV132") = Range("JZ132")
Range("CW133") = Range("JZ133")
Range("CX134") = Range("JZ134")
Range("CY135") = Range("JZ135")
Range("CZ136") = Range("JZ136")
Range("DA137") = Range("JZ137")
Range("DB138") = Range("JZ138")
Range("DC139") = Range("JZ139")
Range("DD140") = Range("JZ140")
Range("DE141") = Range("JZ141")
Range("DF142") = Range("JZ142")
Range("DG143") = Range("JZ143")
Range("DJ144") = Range("JZ144")
Range("DI145") = Range("JZ145")
Range("DJ146") = Range("JZ146")
Range("DK147") = Range("JZ147")
Range("DL148") = Range("JZ148")
Range("DM149") = Range("JZ149")
Range("DN150") = Range("JZ150")
Range("DO151") = Range("JZ151")
Range("DP152") = Range("JZ152")
Range("DQ153") = Range("JZ153")
Range("DR154") = Range("JZ154")
Range("DS155") = Range("JZ155")
Range("DT156") = Range("JZ156")
Range("DU157") = Range("JZ157")
Range("DV158") = Range("JZ158")
Range("DW159") = Range("JZ159")
Range("DX160") = Range("JZ160")

'Incluindo a régua de 08:12h no cenário:
Range("DZ53") = Range("KA53")
Range("EA54") = Range("KA54")
Range("EB55") = Range("KA55")
Range("EC56") = Range("KA56")
Range("ED57") = Range("KA57")
Range("EE58") = Range("KA58")
Range("EF59") = Range("KA59")
Range("EG60") = Range("KA60")
Range("EH61") = Range("KA61")
Range("EI62") = Range("KA62")
Range("EJ63") = Range("KA63")
Range("EK64") = Range("KA64")
Range("EL65") = Range("KA65")
Range("EM66") = Range("KA66")
Range("EN67") = Range("KA67")
Range("EO68") = Range("KA68")
Range("EP69") = Range("KA69")
Range("EQ70") = Range("KA70")
Range("ER71") = Range("KA71")
Range("ES72") = Range("KA72")
Range("ET73") = Range("KA73")
Range("EU74") = Range("KA74")
Range("EV75") = Range("KA75")
Range("EW76") = Range("KA76")
Range("EX77") = Range("KA77")
Range("EY78") = Range("KA78")
Range("EZ79") = Range("KA79")
Range("FA80") = Range("KA80")
Range("FB81") = Range("KA81")
Range("FC82") = Range("KA82")
Range("FD83") = Range("KA83")
Range("FE84") = Range("KA84")
Range("FF85") = Range("KA85")
Range("FG86") = Range("KA86")
Range("FH87") = Range("KA87")
Range("FI88") = Range("KA88")
Range("FJ89") = Range("KA89")
Range("FK90") = Range("KA90")
Range("FL91") = Range("KA91")
Range("FM92") = Range("KA92")
Range("FN93") = Range("KA93")
Range("FO94") = Range("KA94")
Range("FP95") = Range("KA95")
Range("FQ96") = Range("KA96")
Range("FR97") = Range("KA97")
Range("FS98") = Range("KA98")
Range("FT99") = Range("KA99")
Range("FU100") = Range("KA100")
Range("FV101") = Range("KA101")
Range("FW102") = Range("KA102")
Range("FX103") = Range("KA103")
Range("FY104") = Range("KA104")
Range("FZ105") = Range("KA105")
Range("GA106") = Range("KA106")
Range("GB107") = Range("KA107")
Range("GC108") = Range("KA108")
Range("GD109") = Range("KA109")
Range("GE110") = Range("KA110")
Range("GF111") = Range("KA111")
Range("GG112") = Range("KA112")
Range("GH113") = Range("KA113")
Range("GI114") = Range("KA114")
Range("GJ115") = Range("KA115")
Range("GK116") = Range("KA116")
Range("GL117") = Range("KA117")
Range("GM118") = Range("KA118")
Range("GN119") = Range("KA119")
Range("GO120") = Range("KA120")
Range("GP121") = Range("KA121")
Range("GQ122") = Range("KA122")
Range("GR123") = Range("KA123")
Range("GS124") = Range("KA124")
Range("GT125") = Range("KA125")
Range("GU126") = Range("KA126")
Range("GV127") = Range("KA127")
Range("GW128") = Range("KA128")
Range("GX129") = Range("KA129")
Range("GY130") = Range("KA130")
Range("GZ131") = Range("KA131")
Range("HA132") = Range("KA132")
Range("HB133") = Range("KA133")
Range("HC134") = Range("KA134")
Range("HD135") = Range("KA135")
Range("HE136") = Range("KA136")
Range("HF137") = Range("KA137")
Range("HG138") = Range("KA138")
Range("HH139") = Range("KA139")
Range("HI140") = Range("KA140")
Range("HJ141") = Range("KA141")
Range("HK142") = Range("KA142")
Range("HL143") = Range("KA143")
Range("HM144") = Range("KA144")
Range("HN145") = Range("KA145")
Range("HO146") = Range("KA146")
Range("HP147") = Range("KA147")
Range("HQ148") = Range("KA148")
Range("HR149") = Range("KA149")
Range("HS150") = Range("KA150")
Range("HT151") = Range("KA151")
Range("HU152") = Range("KA152")
Range("HV153") = Range("KA153")
Range("HW154") = Range("KA154")
Range("HX155") = Range("KA155")
Range("HY156") = Range("KA156")
Range("HZ157") = Range("KA157")
Range("IA158") = Range("KA158")
Range("IB159") = Range("KA159")
Range("IC160") = Range("KA160")


Sheets("PCA DIA").Select


With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False


End Sub
Avatar do usuário

Re: módulo muito extenso

Por AfonsoMira
Posts Avatar
-  26 Jan 2021 às 12:25 #61766
Boas veja se assim está como deseja:
Código: Selecionar todos
Sub ATUALIZAR_TODAS_ESCALAS()

Dim i As Long
Dim folha As String

With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
    .Calculation = xlManual
    .MaxChange = 0.001
End With

ActiveWorkbook.PrecisionAsDisplayed = False

For i = 1 To 7

Select Case i
Case 1
    folha = "SEG"
Case 2
    folha = "TER"
Case 3
    folha = "QUA"
Case 4
    folha = "QUI"
Case 5
    folha = "SEX"
Case 6
    folha = "SAB"
Case 7
    folha = "DOM"
End Select

Sheets(folha).Select

'Incluindo a régua de 06:20h no cenário:
Range("N17") = Range("JZ17")
Range("O47") = Range("JZ47")
Range("P48") = Range("JZ48")
Range("Q49") = Range("JZ49")
Range("R50") = Range("JZ50")
Range("S51") = Range("JZ51")
Range("T52") = Range("JZ52")
Range("U53") = Range("JZ53")
Range("V54") = Range("JZ54")
Range("W55") = Range("JZ55")
Range("X56") = Range("JZ56")
Range("Y57") = Range("JZ57")
Range("Z58") = Range("JZ58")
Range("AA59") = Range("JZ59")
Range("AB60") = Range("JZ60")
Range("AC61") = Range("JZ61")
Range("AD62") = Range("JZ62")
Range("AE63") = Range("JZ63")
Range("AF64") = Range("JZ64")
Range("AG65") = Range("JZ65")
Range("AH66") = Range("JZ66")
Range("AI67") = Range("JZ67")
Range("AJ68") = Range("JZ68")
Range("AK69") = Range("JZ69")
Range("AL70") = Range("JZ70")
Range("AM71") = Range("JZ71")
Range("AN72") = Range("JZ72")
Range("AO73") = Range("JZ73")
Range("AP74") = Range("JZ74")
Range("AQ75") = Range("JZ75")
Range("AR76") = Range("JZ76")
Range("AS77") = Range("JZ77")
Range("AT78") = Range("JZ78")
Range("AU79") = Range("JZ79")
Range("AV80") = Range("JZ80")
Range("AW81") = Range("JZ81")
Range("AX82") = Range("JZ82")
Range("AY83") = Range("JZ83")
Range("AZ84") = Range("JZ84")
Range("BA85") = Range("JZ85")
Range("BB86") = Range("JZ86")
Range("BC87") = Range("JZ87")
Range("BD88") = Range("JZ88")
Range("BE89") = Range("JZ89")
Range("BF90") = Range("JZ90")
Range("BG91") = Range("JZ91")
Range("BH92") = Range("JZ92")
Range("BI93") = Range("JZ93")
Range("BJ94") = Range("JZ94")
Range("BK95") = Range("JZ95")
Range("BL96") = Range("JZ96")
Range("BM97") = Range("JZ97")
Range("BN98") = Range("JZ98")
Range("BO99") = Range("JZ99")
Range("BP100") = Range("JZ100")
Range("BQ101") = Range("JZ101")
Range("BR102") = Range("JZ102")
Range("BS103") = Range("JZ103")
Range("BT104") = Range("JZ104")
Range("BU105") = Range("JZ105")
Range("BV106") = Range("JZ106")
Range("BW107") = Range("JZ107")
Range("BX108") = Range("JZ108")
Range("BY109") = Range("JZ109")
Range("BZ110") = Range("JZ110")
Range("CA111") = Range("JZ111")
Range("CB112") = Range("JZ112")
Range("CC113") = Range("JZ113")
Range("CD114") = Range("JZ114")
Range("CE115") = Range("JZ115")
Range("CF116") = Range("JZ116")
Range("CG117") = Range("JZ117")
Range("CH118") = Range("JZ118")
Range("CI119") = Range("JZ119")
Range("CJ120") = Range("JZ120")
Range("CK121") = Range("JZ121")
Range("CL122") = Range("JZ122")
Range("CM123") = Range("JZ123")
Range("CN124") = Range("JZ124")
Range("CO125") = Range("JZ125")
Range("CP126") = Range("JZ126")
Range("CQ127") = Range("JZ127")
Range("CR128") = Range("JZ128")
Range("CS129") = Range("JZ129")
Range("CT130") = Range("JZ130")
Range("CU131") = Range("JZ131")
Range("CV132") = Range("JZ132")
Range("CW133") = Range("JZ133")
Range("CX134") = Range("JZ134")
Range("CY135") = Range("JZ135")
Range("CZ136") = Range("JZ136")
Range("DA137") = Range("JZ137")
Range("DB138") = Range("JZ138")
Range("DC139") = Range("JZ139")
Range("DD140") = Range("JZ140")
Range("DE141") = Range("JZ141")
Range("DF142") = Range("JZ142")
Range("DG143") = Range("JZ143")
Range("DJ144") = Range("JZ144")
Range("DI145") = Range("JZ145")
Range("DJ146") = Range("JZ146")
Range("DK147") = Range("JZ147")
Range("DL148") = Range("JZ148")
Range("DM149") = Range("JZ149")
Range("DN150") = Range("JZ150")
Range("DO151") = Range("JZ151")
Range("DP152") = Range("JZ152")
Range("DQ153") = Range("JZ153")
Range("DR154") = Range("JZ154")
Range("DS155") = Range("JZ155")
Range("DT156") = Range("JZ156")
Range("DU157") = Range("JZ157")
Range("DV158") = Range("JZ158")
Range("DW159") = Range("JZ159")
Range("DX160") = Range("JZ160")

'Incluindo a régua de 08:12h no cenário:
Range("DZ53") = Range("KA53")
Range("EA54") = Range("KA54")
Range("EB55") = Range("KA55")
Range("EC56") = Range("KA56")
Range("ED57") = Range("KA57")
Range("EE58") = Range("KA58")
Range("EF59") = Range("KA59")
Range("EG60") = Range("KA60")
Range("EH61") = Range("KA61")
Range("EI62") = Range("KA62")
Range("EJ63") = Range("KA63")
Range("EK64") = Range("KA64")
Range("EL65") = Range("KA65")
Range("EM66") = Range("KA66")
Range("EN67") = Range("KA67")
Range("EO68") = Range("KA68")
Range("EP69") = Range("KA69")
Range("EQ70") = Range("KA70")
Range("ER71") = Range("KA71")
Range("ES72") = Range("KA72")
Range("ET73") = Range("KA73")
Range("EU74") = Range("KA74")
Range("EV75") = Range("KA75")
Range("EW76") = Range("KA76")
Range("EX77") = Range("KA77")
Range("EY78") = Range("KA78")
Range("EZ79") = Range("KA79")
Range("FA80") = Range("KA80")
Range("FB81") = Range("KA81")
Range("FC82") = Range("KA82")
Range("FD83") = Range("KA83")
Range("FE84") = Range("KA84")
Range("FF85") = Range("KA85")
Range("FG86") = Range("KA86")
Range("FH87") = Range("KA87")
Range("FI88") = Range("KA88")
Range("FJ89") = Range("KA89")
Range("FK90") = Range("KA90")
Range("FL91") = Range("KA91")
Range("FM92") = Range("KA92")
Range("FN93") = Range("KA93")
Range("FO94") = Range("KA94")
Range("FP95") = Range("KA95")
Range("FQ96") = Range("KA96")
Range("FR97") = Range("KA97")
Range("FS98") = Range("KA98")
Range("FT99") = Range("KA99")
Range("FU100") = Range("KA100")
Range("FV101") = Range("KA101")
Range("FW102") = Range("KA102")
Range("FX103") = Range("KA103")
Range("FY104") = Range("KA104")
Range("FZ105") = Range("KA105")
Range("GA106") = Range("KA106")
Range("GB107") = Range("KA107")
Range("GC108") = Range("KA108")
Range("GD109") = Range("KA109")
Range("GE110") = Range("KA110")
Range("GF111") = Range("KA111")
Range("GG112") = Range("KA112")
Range("GH113") = Range("KA113")
Range("GI114") = Range("KA114")
Range("GJ115") = Range("KA115")
Range("GK116") = Range("KA116")
Range("GL117") = Range("KA117")
Range("GM118") = Range("KA118")
Range("GN119") = Range("KA119")
Range("GO120") = Range("KA120")
Range("GP121") = Range("KA121")
Range("GQ122") = Range("KA122")
Range("GR123") = Range("KA123")
Range("GS124") = Range("KA124")
Range("GT125") = Range("KA125")
Range("GU126") = Range("KA126")
Range("GV127") = Range("KA127")
Range("GW128") = Range("KA128")
Range("GX129") = Range("KA129")
Range("GY130") = Range("KA130")
Range("GZ131") = Range("KA131")
Range("HA132") = Range("KA132")
Range("HB133") = Range("KA133")
Range("HC134") = Range("KA134")
Range("HD135") = Range("KA135")
Range("HE136") = Range("KA136")
Range("HF137") = Range("KA137")
Range("HG138") = Range("KA138")
Range("HH139") = Range("KA139")
Range("HI140") = Range("KA140")
Range("HJ141") = Range("KA141")
Range("HK142") = Range("KA142")
Range("HL143") = Range("KA143")
Range("HM144") = Range("KA144")
Range("HN145") = Range("KA145")
Range("HO146") = Range("KA146")
Range("HP147") = Range("KA147")
Range("HQ148") = Range("KA148")
Range("HR149") = Range("KA149")
Range("HS150") = Range("KA150")
Range("HT151") = Range("KA151")
Range("HU152") = Range("KA152")
Range("HV153") = Range("KA153")
Range("HW154") = Range("KA154")
Range("HX155") = Range("KA155")
Range("HY156") = Range("KA156")
Range("HZ157") = Range("KA157")
Range("IA158") = Range("KA158")
Range("IB159") = Range("KA159")
Range("IC160") = Range("KA160")

Next i

Sheets("PCA DIA").Select

With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    .Calculation = xlAutomatic
    .MaxChange = 0.001
End With

ActiveWorkbook.PrecisionAsDisplayed = False

End Sub
marcoafdamasceno, kiko agradeceu por isso
 Resposta
 Voltar para “Macros e VBA”
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

READ MORE
Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

READ MORE
Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

READ MORE
Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

READ MORE

Estamos migrando para uma comunidade no Discord

ENTRAR PARA DISCORD