Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Código Extenso
 
Notifications
Clear all

Código Extenso

 
2024 - VBA & Macros
Post Recente por MPrudencio 9 anos atrás
9 Posts
4 Usuários
0 Reactions
1,870 Visualizações
RSS
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Boa tarde pessoal,

Fiz um código muito extenso aqui no trabalho, e em algumas máquinas inferiores o código apresenta erro de processamento.

Alguém consegue me ajuda nessa solução?
Não tenho as manhas pra programar ainda.

Private Sub CommandButton2_Click()

Application.ScreenUpdating = False
Unload frmAtalhos

    UltimaLinha = Plan6.Cells(Rows.Count, "B").End(xlUp).Row
    lin = 3
    For i = 3 To UltimaLinha
    
        If Plan6.Cells(i, "B") = "-" Then
        
            Texto = "Deseja realmente cadastrar o terreno?"
            Título = "Confirmação"
            CxDialog = MsgBox(Texto, vbYesNo + vbQuestion, Título)
            If CxDialog = vbYes Then
        
            Plan6.Cells(lin, "C") = Entrada1 'Terreno
            Plan6.Cells(lin, "D") = Entrada2 'Endereço
            Plan6.Cells(lin, "E") = Entrada3 'Cidade
            Plan6.Cells(lin, "F") = Entrada4 'DataEntrada
            Plan6.Cells(lin, "G") = Entrada5 'Responsável
            Plan6.Cells(lin, "H") = Entrada6 'Email
            Plan6.Cells(lin, "I") = Entrada7 'Proprietario
            Plan6.Cells(lin, "J") = Entrada8 'EmailProp1
            Plan6.Cells(lin, "K") = Entrada9 'Corretor
            Plan6.Cells(lin, "L") = Entrada10 'EmailProp2
            Plan6.Cells(lin, "M") = Entrada11 'AreaImovel
            Plan6.Cells(lin, "N") = Entrada12 'ValorM²
            Plan6.Cells(lin, "O") = Entrada13 'ValorTotal
            Plan6.Cells(lin, "P") = Entrada14 'FormaPgto
            Plan6.Cells(lin, "Q") = Entrada15 'DocEntregue
            Plan6.Cells(lin, "R") = Entrada16 'Matricula
            Plan6.Cells(lin, "S") = Entrada17 'InscMunicipal
            Plan6.Cells(lin, "T") = Entrada18 'CodLog
            Plan6.Cells(lin, "U") = Plan2.Cells(21, "AB").Value 'Regularizações
            Plan6.Cells(lin, "V") = Plan2.Cells(22, "AB").Value 'Regularizações
            Plan6.Cells(lin, "W") = Plan2.Cells(23, "AB").Value 'Regularizações
            Plan6.Cells(lin, "X") = Plan2.Cells(24, "AB").Value 'Regularizações
            Plan6.Cells(lin, "Y") = Plan2.Cells(25, "AB").Value 'Regularizações
            Plan6.Cells(lin, "Z") = Plan2.Cells(26, "AB").Value 'Regularizações
            Plan6.Cells(lin, "AA") = Plan2.Cells(26, "L").Value 'Regularizações
            Plan6.Cells(lin, "AB") = Plan2.Cells(21, "AC").Value 'Regularizações
            Plan6.Cells(lin, "AC") = Plan2.Cells(22, "AC").Value 'Regularizações
            Plan6.Cells(lin, "AD") = Plan2.Cells(23, "AC").Value 'Regularizações
            Plan6.Cells(lin, "AE") = Plan2.Cells(24, "AC").Value 'Regularizações
            Plan6.Cells(lin, "AF") = Plan2.Cells(28, "AB").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AG") = Plan2.Cells(29, "AB").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AH") = Plan2.Cells(30, "AB").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AI") = Plan2.Cells(28, "AC").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AJ") = Plan2.Cells(29, "AC").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AK") = Plan2.Cells(30, "AC").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AL") = Plan2.Cells(28, "AD").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AM") = Plan2.Cells(29, "AD").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AN") = Plan2.Cells(30, "AD").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AO") = Plan2.Cells(33, "AB").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AP") = Plan2.Cells(34, "AB").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AQ") = Plan2.Cells(33, "C").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AR") = Plan2.Cells(34, "C").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AS") = Plan2.Cells(33, "S").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AT") = Plan2.Cells(34, "S").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AU") = Plan2.Cells(36, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AV") = Plan2.Cells(39, "AB").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AW") = Plan2.Cells(40, "AB").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AX") = Plan2.Cells(41, "AB").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AY") = Plan2.Cells(42, "AB").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AZ") = Plan2.Cells(42, "D").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BA") = Plan2.Cells(39, "AC").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BB") = Plan2.Cells(40, "AC").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BC") = Plan2.Cells(41, "AC").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BD") = Plan2.Cells(42, "AC").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BE") = Plan2.Cells(39, "AD").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BF") = Plan2.Cells(40, "AD").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BG") = Plan2.Cells(41, "AD").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BH") = Plan2.Cells(42, "AD").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BI") = Plan2.Cells(39, "AE").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BJ") = Plan2.Cells(40, "AE").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BK") = Plan2.Cells(41, "AE").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BL") = Plan2.Cells(40, "V").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BM") = Plan2.Cells(44, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BN") = Plan2.Cells(45, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BO") = Plan2.Cells(46, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BP") = Plan2.Cells(47, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BQ") = Plan2.Cells(48, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BR") = Plan2.Cells(54, "K").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BS") = Plan2.Cells(55, "K").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BT") = Plan2.Cells(56, "K").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BU") = Plan2.Cells(57, "K").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BV") = Plan2.Cells(58, "K").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BW") = Plan2.Cells(53, "U").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BX") = Plan2.Cells(54, "U").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BY") = Plan2.Cells(55, "U").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BZ") = Plan2.Cells(56, "U").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "CA") = Plan2.Cells(64, "K").Value 'Outorga Onerosa
            Plan6.Cells(lin, "CB") = Plan2.Cells(65, "K").Value 'Outorga Onerosa
            Plan6.Cells(lin, "CC") = Plan2.Cells(66, "K").Value 'Outorga Onerosa
            Plan6.Cells(lin, "CD") = Plan2.Cells(67, "K").Value 'Outorga Onerosa
'
            Plan6.Cells(lin, "CE") = Plan3.Cells(10, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CF") = Plan3.Cells(11, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CG") = Plan3.Cells(12, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CH") = Plan3.Cells(10, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CI") = Plan3.Cells(11, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CJ") = Plan3.Cells(12, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CK") = Plan3.Cells(10, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CL") = Plan3.Cells(11, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CM") = Plan3.Cells(12, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CN") = Plan3.Cells(10, "AE").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CO") = Plan3.Cells(11, "AE").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CP") = Plan3.Cells(12, "AE").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CQ") = Plan3.Cells(15, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CR") = Plan3.Cells(16, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CS") = Plan3.Cells(17, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CT") = Plan3.Cells(18, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CU") = Plan3.Cells(19, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CV") = Plan3.Cells(20, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CW") = Plan3.Cells(21, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CX") = Plan3.Cells(22, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CY") = Plan3.Cells(23, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CZ") = Plan3.Cells(24, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DA") = Plan3.Cells(25, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DB") = Plan3.Cells(26, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DC") = Plan3.Cells(26, "D").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DD") = Plan3.Cells(15, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DE") = Plan3.Cells(16, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DF") = Plan3.Cells(17, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DG") = Plan3.Cells(18, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DH") = Plan3.Cells(19, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DI") = Plan3.Cells(20, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DJ") = Plan3.Cells(21, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DK") = Plan3.Cells(22, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DL") = Plan3.Cells(23, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DM") = Plan3.Cells(24, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DN") = Plan3.Cells(25, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DO") = Plan3.Cells(15, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DP") = Plan3.Cells(16, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DQ") = Plan3.Cells(17, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DR") = Plan3.Cells(18, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DS") = Plan3.Cells(19, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DT") = Plan3.Cells(20, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DU") = Plan3.Cells(18, "W").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DV") = Plan3.Cells(19, "W").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DW") = Plan3.Cells(20, "U").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DX") = Plan3.Cells(22, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DY") = Plan3.Cells(23, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DZ") = Plan3.Cells(24, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "EA") = Plan3.Cells(25, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "EB") = Plan3.Cells(28, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EC") = Plan3.Cells(29, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "ED") = Plan3.Cells(30, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EE") = Plan3.Cells(31, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EF") = Plan3.Cells(32, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EG") = Plan3.Cells(33, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EH") = Plan3.Cells(34, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EI") = Plan3.Cells(35, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EJ") = Plan3.Cells(36, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EK") = Plan3.Cells(37, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EL") = Plan3.Cells(28, "AC").Value 'Meio Ambiente
            Plan6.Cells(lin, "EM") = Plan3.Cells(29, "AC").Value 'Meio Ambiente
            Plan6.Cells(lin, "EN") = Plan3.Cells(30, "AC").Value 'Meio Ambiente
            Plan6.Cells(lin, "EO") = Plan3.Cells(30, "O").Value 'Meio Ambiente
            Plan6.Cells(lin, "EP") = Plan3.Cells(32, "AC").Value 'Meio Ambiente
            Plan6.Cells(lin, "EQ") = Plan3.Cells(33, "AC").Value 'Meio Ambiente
            Plan6.Cells(lin, "ER") = Plan3.Cells(39, "A").Value 'Caracterização do Imóvel
'
            Plan6.Cells(lin, "ES") = Plan4.Cells(5, "C").Value 'Avaliação do Terreno
            Plan6.Cells(lin, "ET") = Plan4.Cells(5, "E").Value 'Avaliação do Terreno
            Plan6.Cells(lin, "EU") = Plan4.Cells(5, "G").Value 'Avaliação do Terreno
            Plan6.Cells(lin, "EV") = Plan4.Cells(8, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "EW") = Plan4.Cells(8, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "EX") = Plan4.Cells(9, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "EY") = Plan4.Cells(9, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "EZ") = Plan4.Cells(10, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FA") = Plan4.Cells(10, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FB") = Plan4.Cells(11, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FC") = Plan4.Cells(11, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FD") = Plan4.Cells(12, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FE") = Plan4.Cells(12, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FF") = Plan4.Cells(13, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FG") = Plan4.Cells(13, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FH") = Plan4.Cells(14, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FI") = Plan4.Cells(14, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FJ") = Plan4.Cells(15, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FK") = Plan4.Cells(15, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FL") = Plan4.Cells(8, "J").Value 'Topografia
            Plan6.Cells(lin, "FM") = Plan4.Cells(8, "N").Value 'Topografia
            Plan6.Cells(lin, "FN") = Plan4.Cells(9, "J").Value 'Topografia
            Plan6.Cells(lin, "FO") = Plan4.Cells(9, "N").Value 'Topografia
            Plan6.Cells(lin, "FP") = Plan4.Cells(10, "J").Value 'Topografia
            Plan6.Cells(lin, "FQ") = Plan4.Cells(10, "L").Value 'Topografia
            Plan6.Cells(lin, "FR") = Plan4.Cells(10, "N").Value 'Topografia
            Plan6.Cells(lin, "FS") = Plan4.Cells(12, "J").Value 'Topografia
            Plan6.Cells(lin, "FT") = Plan4.Cells(12, "L").Value 'Topografia
            Plan6.Cells(lin, "FU") = Plan4.Cells(12, "N").Value 'Topografia
            Plan6.Cells(lin, "FV") = Plan4.Cells(18, "C").Value 'Características Locais
            Plan6.Cells(lin, "FW") = Plan4.Cells(18, "E").Value 'Características Locais
            Plan6.Cells(lin, "FX") = Plan4.Cells(19, "C").Value 'Características Locais
            Plan6.Cells(lin, "FY") = Plan4.Cells(19, "E").Value 'Características Locais
            Plan6.Cells(lin, "FZ") = Plan4.Cells(20, "C").Value 'Características Locais
            Plan6.Cells(lin, "GA") = Plan4.Cells(20, "E").Value 'Características Locais
            Plan6.Cells(lin, "GB") = Plan4.Cells(21, "C").Value 'Características Locais
            Plan6.Cells(lin, "GC") = Plan4.Cells(21, "E").Value 'Características Locais
            Plan6.Cells(lin, "GD") = Plan4.Cells(18, "J").Value 'Características Locais
            Plan6.Cells(lin, "GE") = Plan4.Cells(18, "L").Value 'Características Locais
            Plan6.Cells(lin, "GF") = Plan4.Cells(18, "N").Value 'Características Locais
            Plan6.Cells(lin, "GG") = Plan4.Cells(19, "J").Value 'Características Locais
            Plan6.Cells(lin, "GH") = Plan4.Cells(19, "L").Value 'Características Locais
            Plan6.Cells(lin, "GI") = Plan4.Cells(19, "N").Value 'Características Locais
            Plan6.Cells(lin, "GJ") = Plan4.Cells(20, "J").Value 'Características Locais
            Plan6.Cells(lin, "GK") = Plan4.Cells(20, "L").Value 'Características Locais
            Plan6.Cells(lin, "GL") = Plan4.Cells(20, "N").Value 'Características Locais
            Plan6.Cells(lin, "GM") = Plan4.Cells(24, "C").Value 'Serviços na Região
            Plan6.Cells(lin, "GN") = Plan4.Cells(24, "E").Value 'Serviços na Região
            Plan6.Cells(lin, "GO") = Plan4.Cells(25, "C").Value 'Serviços na Região
            Plan6.Cells(lin, "GP") = Plan4.Cells(25, "E").Value 'Serviços na Região
            Plan6.Cells(lin, "GQ") = Plan4.Cells(26, "C").Value 'Serviços na Região
            Plan6.Cells(lin, "GR") = Plan4.Cells(26, "E").Value 'Serviços na Região
            Plan6.Cells(lin, "GS") = Plan4.Cells(27, "C").Value 'Serviços na Região
            Plan6.Cells(lin, "GT") = Plan4.Cells(27, "E").Value 'Serviços na Região
            Plan6.Cells(lin, "GU") = Plan4.Cells(28, "C").Value 'Serviços na Região
            Plan6.Cells(lin, "GV") = Plan4.Cells(28, "E").Value 'Serviços na Região
            Plan6.Cells(lin, "GW") = Plan4.Cells(29, "C").Value 'Serviços na Região
            Plan6.Cells(lin, "GX") = Plan4.Cells(29, "E").Value 'Serviços na Região
            Plan6.Cells(lin, "GY") = Plan4.Cells(30, "C").Value 'Serviços na Região
            Plan6.Cells(lin, "GZ") = Plan4.Cells(30, "E").Value 'Serviços na Região
            Plan6.Cells(lin, "HA") = Plan4.Cells(24, "L").Value 'Infraestrutura
            Plan6.Cells(lin, "HB") = Plan4.Cells(24, "N").Value 'Infraestrutura
            Plan6.Cells(lin, "HC") = Plan4.Cells(25, "L").Value 'Infraestrutura
            Plan6.Cells(lin, "HD") = Plan4.Cells(25, "N").Value 'Infraestrutura
            Plan6.Cells(lin, "HE") = Plan4.Cells(26, "L").Value 'Infraestrutura
            Plan6.Cells(lin, "HF") = Plan4.Cells(26, "N").Value 'Infraestrutura
            Plan6.Cells(lin, "HG") = Plan4.Cells(27, "L").Value 'Infraestrutura
            Plan6.Cells(lin, "HH") = Plan4.Cells(27, "N").Value 'Infraestrutura
            Plan6.Cells(lin, "HI") = Plan4.Cells(28, "L").Value 'Infraestrutura
            Plan6.Cells(lin, "HJ") = Plan4.Cells(28, "N").Value 'Infraestrutura
            Plan6.Cells(lin, "HK") = Plan4.Cells(29, "L").Value 'Infraestrutura
            Plan6.Cells(lin, "HL") = Plan4.Cells(29, "N").Value 'Infraestrutura
            Plan6.Cells(lin, "HM") = Plan4.Cells(30, "L").Value 'Infraestrutura
            Plan6.Cells(lin, "HN") = Plan4.Cells(30, "N").Value 'Infraestrutura
            Plan6.Cells(lin, "HO") = Plan4.Cells(32, "C").Value 'Informações Complementares
            Plan6.Cells(lin, "HP") = Plan4.Cells(33, "L").Value 'Informações Complementares
            Plan6.Cells(lin, "HQ") = Plan4.Cells(33, "N").Value 'Informações Complementares
            Plan6.Cells(lin, "HR") = Plan4.Cells(34, "L").Value 'Informações Complementares
            Plan6.Cells(lin, "HS") = Plan4.Cells(34, "N").Value 'Informações Complementares
            Plan6.Cells(lin, "HT") = Plan4.Cells(35, "L").Value 'Informações Complementares
            Plan6.Cells(lin, "HU") = Plan4.Cells(36, "L").Value 'Informações Complementares
            Plan6.Cells(lin, "HV") = Plan4.Cells(38, "E").Value 'Informações Complementares
            Plan6.Cells(lin, "HW") = Plan4.Cells(38, "G").Value 'Informações Complementares
            Plan6.Cells(lin, "HX") = Plan4.Cells(39, "E").Value 'Informações Complementares
            Plan6.Cells(lin, "HY") = Plan4.Cells(39, "G").Value 'Informações Complementares
            Plan6.Cells(lin, "HZ") = Plan4.Cells(40, "E").Value 'Informações Complementares
            Plan6.Cells(lin, "IA") = Plan4.Cells(40, "G").Value 'Informações Complementares
            Plan6.Cells(lin, "IB") = Plan4.Cells(38, "L").Value 'Informações Complementares
            Plan6.Cells(lin, "IC") = Plan4.Cells(38, "N").Value 'Informações Complementares
            Plan6.Cells(lin, "ID") = Plan4.Cells(39, "L").Value 'Informações Complementares
            Plan6.Cells(lin, "IE") = Plan4.Cells(39, "N").Value 'Informações Complementares
            Plan6.Cells(lin, "IF") = Plan4.Cells(40, "L").Value 'Informações Complementares
            Plan6.Cells(lin, "IG") = Plan4.Cells(40, "N").Value 'Informações Complementares
'
            Plan6.Cells(lin, "IH") = Plan5.Cells(11, "V").Value 'Despesas Preliminares Prospecção
            Plan6.Cells(lin, "II") = Plan5.Cells(12, "V").Value 'Despesas Preliminares Prospecção
            Plan6.Cells(lin, "IJ") = Plan5.Cells(13, "V").Value 'Despesas Preliminares Prospecção
            Plan6.Cells(lin, "IK") = Plan5.Cells(17, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IL") = Plan5.Cells(18, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IM") = Plan5.Cells(19, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IN") = Plan5.Cells(20, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IO") = Plan5.Cells(21, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IP") = Plan5.Cells(22, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IQ") = Plan5.Cells(23, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IR") = Plan5.Cells(24, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IS") = Plan5.Cells(25, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IT") = Plan5.Cells(26, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IU") = Plan5.Cells(27, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IV") = Plan5.Cells(28, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IW") = Plan5.Cells(29, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IX") = Plan5.Cells(30, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IY") = Plan5.Cells(31, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "IZ") = Plan5.Cells(32, "B").Value 'Despesas Legalização
            Plan6.Cells(lin, "JA") = Plan5.Cells(17, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JB") = Plan5.Cells(18, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JC") = Plan5.Cells(19, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JD") = Plan5.Cells(20, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JE") = Plan5.Cells(21, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JF") = Plan5.Cells(22, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JG") = Plan5.Cells(23, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JH") = Plan5.Cells(24, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JI") = Plan5.Cells(25, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JJ") = Plan5.Cells(26, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JK") = Plan5.Cells(27, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JL") = Plan5.Cells(28, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JM") = Plan5.Cells(29, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JN") = Plan5.Cells(30, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JO") = Plan5.Cells(31, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JP") = Plan5.Cells(32, "J").Value 'Despesas Legalização
            Plan6.Cells(lin, "JQ") = Plan5.Cells(17, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "JR") = Plan5.Cells(18, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "JS") = Plan5.Cells(19, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "JT") = Plan5.Cells(20, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "JU") = Plan5.Cells(21, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "JV") = Plan5.Cells(22, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "JW") = Plan5.Cells(23, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "JX") = Plan5.Cells(24, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "JY") = Plan5.Cells(25, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "JZ") = Plan5.Cells(26, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "KA") = Plan5.Cells(27, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "KB") = Plan5.Cells(28, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "KC") = Plan5.Cells(29, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "KD") = Plan5.Cells(30, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "KE") = Plan5.Cells(31, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "KF") = Plan5.Cells(32, "Q").Value 'Despesas Legalização
            Plan6.Cells(lin, "KG") = Plan5.Cells(17, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KH") = Plan5.Cells(18, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KI") = Plan5.Cells(19, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KJ") = Plan5.Cells(20, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KK") = Plan5.Cells(21, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KL") = Plan5.Cells(22, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KM") = Plan5.Cells(23, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KN") = Plan5.Cells(24, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KO") = Plan5.Cells(25, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KP") = Plan5.Cells(26, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KQ") = Plan5.Cells(27, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KR") = Plan5.Cells(28, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KS") = Plan5.Cells(29, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KT") = Plan5.Cells(30, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KU") = Plan5.Cells(31, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KV") = Plan5.Cells(32, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KW") = Plan5.Cells(34, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KX") = Plan5.Cells(35, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KY") = Plan5.Cells(36, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "KZ") = Plan5.Cells(37, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LA") = Plan5.Cells(38, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LB") = Plan5.Cells(39, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LC") = Plan5.Cells(40, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LD") = Plan5.Cells(41, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LE") = Plan5.Cells(42, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LF") = Plan5.Cells(43, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LG") = Plan5.Cells(44, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LH") = Plan5.Cells(45, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LI") = Plan5.Cells(46, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LJ") = Plan5.Cells(47, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LK") = Plan5.Cells(48, "V").Value 'Despesas Legalização
            Plan6.Cells(lin, "LL") = Plan5.Cells(53, "I").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LM") = Plan5.Cells(54, "I").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LN") = Plan5.Cells(55, "I").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LO") = Plan5.Cells(56, "I").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LP") = Plan5.Cells(57, "I").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LQ") = Plan5.Cells(58, "I").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LR") = Plan5.Cells(59, "I").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LS") = Plan5.Cells(60, "I").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LT") = Plan5.Cells(61, "I").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LU") = Plan5.Cells(53, "V").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LV") = Plan5.Cells(54, "V").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LW") = Plan5.Cells(55, "V").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LX") = Plan5.Cells(56, "V").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LY") = Plan5.Cells(57, "V").Value 'Despesas Jurídico
            Plan6.Cells(lin, "LZ") = Plan5.Cells(58, "V").Value 'Despesas Jurídico
            Plan6.Cells(lin, "MA") = Plan5.Cells(59, "V").Value 'Despesas Jurídico
            Plan6.Cells(lin, "MB") = Plan5.Cells(60, "V").Value 'Despesas Jurídico
            Plan6.Cells(lin, "MC") = Plan5.Cells(61, "V").Value 'Despesas Jurídico
'
            Plan6.Cells(lin, "MD") = Plan1.Cells(7, "N").Value 'CheckList
            Plan6.Cells(lin, "ME") = Plan1.Cells(7, "O").Value 'CheckList
            Plan6.Cells(lin, "MF") = Plan1.Cells(8, "N").Value 'CheckList
            Plan6.Cells(lin, "MG") = Plan1.Cells(8, "O").Value 'CheckList
            Plan6.Cells(lin, "MH") = Plan1.Cells(9, "N").Value 'CheckList
            Plan6.Cells(lin, "MI") = Plan1.Cells(9, "O").Value 'CheckList
            Plan6.Cells(lin, "MJ") = Plan1.Cells(10, "N").Value 'CheckList
            Plan6.Cells(lin, "MK") = Plan1.Cells(10, "O").Value 'CheckList
            Plan6.Cells(lin, "ML") = Plan1.Cells(11, "N").Value 'CheckList
            Plan6.Cells(lin, "MM") = Plan1.Cells(11, "O").Value 'CheckList
            Plan6.Cells(lin, "MN") = Plan1.Cells(12, "N").Value 'CheckList
            Plan6.Cells(lin, "MO") = Plan1.Cells(13, "N").Value 'CheckList
            Plan6.Cells(lin, "MP") = Plan1.Cells(16, "N").Value 'CheckList
            Plan6.Cells(lin, "MQ") = Plan1.Cells(17, "N").Value 'CheckList
            Plan6.Cells(lin, "MR") = Plan1.Cells(18, "N").Value 'CheckList
            Plan6.Cells(lin, "MS") = Plan1.Cells(19, "N").Value 'CheckList
            Plan6.Cells(lin, "MT") = Plan1.Cells(20, "N").Value 'CheckList
            Plan6.Cells(lin, "MU") = Plan1.Cells(21, "N").Value 'CheckList
            Plan6.Cells(lin, "MV") = Plan1.Cells(22, "N").Value 'CheckList
            Plan6.Cells(lin, "MW") = Plan1.Cells(23, "N").Value 'CheckList
            Plan6.Cells(lin, "MX") = Plan1.Cells(9, "B").Value 'Status
            Plan6.Cells(lin, "MY") = Plan1.Cells(10, "B").Value 'Status
            Plan6.Cells(lin, "MZ") = Plan1.Cells(11, "B").Value 'Status
            Plan6.Cells(lin, "NA") = Plan1.Cells(12, "B").Value 'Status
            Plan6.Cells(lin, "NB") = Plan1.Cells(13, "B").Value 'Status
            Plan6.Cells(lin, "NC") = Plan1.Cells(14, "B").Value 'Status
            Plan6.Cells(lin, "ND") = Plan1.Cells(17, "A").Value 'Status
            Plan6.Cells(lin, "NE") = Plan1.Cells(17, "B").Value 'Status
            Plan6.Cells(lin, "NF") = Plan1.Cells(17, "C").Value 'Status
            Plan6.Cells(lin, "NG") = Plan1.Cells(17, "D").Value 'Status
            Plan6.Cells(lin, "NH") = Plan1.Cells(17, "E").Value 'Status
            Plan6.Cells(lin, "NI") = Plan1.Cells(17, "F").Value 'Status
            Plan6.Cells(lin, "NJ") = Plan1.Cells(20, "A").Value 'Status
            Plan6.Cells(lin, "NK") = Plan1.Cells(20, "B").Value 'Status
            Plan6.Cells(lin, "NL") = Plan1.Cells(20, "C").Value 'Status
            Plan6.Cells(lin, "NM") = Plan1.Cells(20, "E").Value 'Status
            Plan6.Cells(lin, "NN") = Plan1.Cells(20, "G").Value 'Status
            Plan6.Cells(lin, "NO") = Plan1.Cells(23, "A").Value 'Status
            Plan6.Cells(lin, "NP") = Plan1.Cells(23, "C").Value 'Status
            Plan6.Cells(lin, "NQ") = Plan1.Cells(23, "D").Value 'Status
            Plan6.Cells(lin, "NR") = Plan1.Cells(23, "F").Value 'Status
            Plan6.Cells(lin, "NS") = Plan1.Cells(23, "G").Value 'Status
            Plan6.Cells(lin, "NT") = Plan1.Cells(23, "H").Value 'Status
            Plan6.Cells(lin, "NU") = Plan1.Cells(27, "A").Value 'Status
            Plan6.Cells(lin, "NV") = Plan1.Cells(27, "B").Value 'Status
            Plan6.Cells(lin, "NW") = Plan1.Cells(27, "C").Value 'Status
            Plan6.Cells(lin, "NX") = Plan1.Cells(27, "D").Value 'Status
            Plan6.Cells(lin, "NY") = Plan1.Cells(27, "E").Value 'Status
            Plan6.Cells(lin, "NZ") = Plan1.Cells(27, "F").Value 'Status
            Plan6.Cells(lin, "OA") = Plan1.Cells(27, "G").Value 'Status
            Plan6.Cells(lin, "OB") = Plan1.Cells(27, "H").Value 'Status
            Plan6.Cells(lin, "OC") = Plan1.Cells(25, "I").Value 'Status
            Plan6.Cells(lin, "OD") = Plan1.Cells(34, "A").Value 'Status
            Plan6.Cells(lin, "OE") = Plan1.Cells(34, "B").Value 'Status
            Plan6.Cells(lin, "OF") = Plan1.Cells(34, "C").Value 'Status
            Plan6.Cells(lin, "OG") = Plan1.Cells(35, "A").Value 'Status
            Plan6.Cells(lin, "OH") = Plan1.Cells(35, "B").Value 'Status
            Plan6.Cells(lin, "OI") = Plan1.Cells(35, "C").Value 'Status
            Plan6.Cells(lin, "OJ") = Plan1.Cells(36, "A").Value 'Status
            Plan6.Cells(lin, "OK") = Plan1.Cells(36, "B").Value 'Status
            Plan6.Cells(lin, "OL") = Plan1.Cells(36, "C").Value 'Status
            
            Plan6.Cells(1, "B").Value = Plan6.Cells(lin, "B")
            
            Exit For
            Else
            
            Application.ScreenUpdating = True
            Exit Sub
            End If
            
            Else
            
            If Plan6.Cells(i, "B") = Plan6.Cells(1, "B") Then
            
            Texto = "Esse terreno já existe no banco de dados. Deseja substituir os dados?"
            Título = "Confirmação"
            CxDialog = MsgBox(Texto, vbYesNo + vbQuestion, Título)
            If CxDialog = vbYes Then
            
            Plan6.Cells(lin, "C") = Entrada1 'Terreno
            Plan6.Cells(lin, "D") = Entrada2 'Endereço
            Plan6.Cells(lin, "E") = Entrada3 'Cidade
            Plan6.Cells(lin, "F") = Entrada4 'DataEntrada
            Plan6.Cells(lin, "G") = Entrada5 'Responsável
            Plan6.Cells(lin, "H") = Entrada6 'Email
            Plan6.Cells(lin, "I") = Entrada7 'Proprietario
            Plan6.Cells(lin, "J") = Entrada8 'EmailProp1
            Plan6.Cells(lin, "K") = Entrada9 'Corretor
            Plan6.Cells(lin, "L") = Entrada10 'EmailProp2
            Plan6.Cells(lin, "M") = Entrada11 'AreaImovel
            Plan6.Cells(lin, "N") = Entrada12 'ValorM²
            Plan6.Cells(lin, "O") = Entrada13 'ValorTotal
            Plan6.Cells(lin, "P") = Entrada14 'FormaPgto
            Plan6.Cells(lin, "Q") = Entrada15 'DocEntregue
            Plan6.Cells(lin, "R") = Entrada16 'Matricula
            Plan6.Cells(lin, "S") = Entrada17 'InscMunicipal
            Plan6.Cells(lin, "T") = Entrada18 'CodLog
            Plan6.Cells(lin, "U") = Plan2.Cells(21, "AB").Value 'Regularizações
            Plan6.Cells(lin, "V") = Plan2.Cells(22, "AB").Value 'Regularizações
            Plan6.Cells(lin, "W") = Plan2.Cells(23, "AB").Value 'Regularizações
            Plan6.Cells(lin, "X") = Plan2.Cells(24, "AB").Value 'Regularizações
            Plan6.Cells(lin, "Y") = Plan2.Cells(25, "AB").Value 'Regularizações
            Plan6.Cells(lin, "Z") = Plan2.Cells(26, "AB").Value 'Regularizações
            Plan6.Cells(lin, "AA") = Plan2.Cells(26, "L").Value 'Regularizações
            Plan6.Cells(lin, "AB") = Plan2.Cells(21, "AC").Value 'Regularizações
            Plan6.Cells(lin, "AC") = Plan2.Cells(22, "AC").Value 'Regularizações
            Plan6.Cells(lin, "AD") = Plan2.Cells(23, "AC").Value 'Regularizações
            Plan6.Cells(lin, "AE") = Plan2.Cells(24, "AC").Value 'Regularizações
            Plan6.Cells(lin, "AF") = Plan2.Cells(28, "AB").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AG") = Plan2.Cells(29, "AB").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AH") = Plan2.Cells(30, "AB").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AI") = Plan2.Cells(28, "AC").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AJ") = Plan2.Cells(29, "AC").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AK") = Plan2.Cells(30, "AC").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AL") = Plan2.Cells(28, "AD").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AM") = Plan2.Cells(29, "AD").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AN") = Plan2.Cells(30, "AD").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AO") = Plan2.Cells(33, "AB").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AP") = Plan2.Cells(34, "AB").Value 'Processos de Aprovação
            Plan6.Cells(lin, "AQ") = Plan2.Cells(33, "C").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AR") = Plan2.Cells(34, "C").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AS") = Plan2.Cells(33, "S").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AT") = Plan2.Cells(34, "S").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AU") = Plan2.Cells(36, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AV") = Plan2.Cells(39, "AB").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AW") = Plan2.Cells(40, "AB").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AX") = Plan2.Cells(41, "AB").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AY") = Plan2.Cells(42, "AB").Value 'Estudos Preliminares
            Plan6.Cells(lin, "AZ") = Plan2.Cells(42, "D").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BA") = Plan2.Cells(39, "AC").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BB") = Plan2.Cells(40, "AC").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BC") = Plan2.Cells(41, "AC").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BD") = Plan2.Cells(42, "AC").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BE") = Plan2.Cells(39, "AD").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BF") = Plan2.Cells(40, "AD").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BG") = Plan2.Cells(41, "AD").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BH") = Plan2.Cells(42, "AD").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BI") = Plan2.Cells(39, "AE").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BJ") = Plan2.Cells(40, "AE").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BK") = Plan2.Cells(41, "AE").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BL") = Plan2.Cells(40, "V").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BM") = Plan2.Cells(44, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BN") = Plan2.Cells(45, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BO") = Plan2.Cells(46, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BP") = Plan2.Cells(47, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BQ") = Plan2.Cells(48, "E").Value 'Estudos Preliminares
            Plan6.Cells(lin, "BR") = Plan2.Cells(54, "K").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BS") = Plan2.Cells(55, "K").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BT") = Plan2.Cells(56, "K").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BU") = Plan2.Cells(57, "K").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BV") = Plan2.Cells(58, "K").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BW") = Plan2.Cells(53, "U").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BX") = Plan2.Cells(54, "U").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BY") = Plan2.Cells(55, "U").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "BZ") = Plan2.Cells(56, "U").Value 'Transcon - Fazenda
            Plan6.Cells(lin, "CA") = Plan2.Cells(64, "K").Value 'Outorga Onerosa
            Plan6.Cells(lin, "CB") = Plan2.Cells(65, "K").Value 'Outorga Onerosa
            Plan6.Cells(lin, "CC") = Plan2.Cells(66, "K").Value 'Outorga Onerosa
            Plan6.Cells(lin, "CD") = Plan2.Cells(67, "K").Value 'Outorga Onerosa
'
            Plan6.Cells(lin, "CE") = Plan3.Cells(10, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CF") = Plan3.Cells(11, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CG") = Plan3.Cells(12, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CH") = Plan3.Cells(10, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CI") = Plan3.Cells(11, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CJ") = Plan3.Cells(12, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CK") = Plan3.Cells(10, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CL") = Plan3.Cells(11, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CM") = Plan3.Cells(12, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CN") = Plan3.Cells(10, "AE").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CO") = Plan3.Cells(11, "AE").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CP") = Plan3.Cells(12, "AE").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CQ") = Plan3.Cells(15, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CR") = Plan3.Cells(16, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CS") = Plan3.Cells(17, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CT") = Plan3.Cells(18, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CU") = Plan3.Cells(19, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CV") = Plan3.Cells(20, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CW") = Plan3.Cells(21, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CX") = Plan3.Cells(22, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CY") = Plan3.Cells(23, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "CZ") = Plan3.Cells(24, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DA") = Plan3.Cells(25, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DB") = Plan3.Cells(26, "AB").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DC") = Plan3.Cells(26, "D").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DD") = Plan3.Cells(15, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DE") = Plan3.Cells(16, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DF") = Plan3.Cells(17, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DG") = Plan3.Cells(18, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DH") = Plan3.Cells(19, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DI") = Plan3.Cells(20, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DJ") = Plan3.Cells(21, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DK") = Plan3.Cells(22, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DL") = Plan3.Cells(23, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DM") = Plan3.Cells(24, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DN") = Plan3.Cells(25, "AC").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DO") = Plan3.Cells(15, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DP") = Plan3.Cells(16, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DQ") = Plan3.Cells(17, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DR") = Plan3.Cells(18, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DS") = Plan3.Cells(19, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DT") = Plan3.Cells(20, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DU") = Plan3.Cells(18, "W").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DV") = Plan3.Cells(19, "W").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DW") = Plan3.Cells(20, "U").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DX") = Plan3.Cells(22, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DY") = Plan3.Cells(23, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "DZ") = Plan3.Cells(24, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "EA") = Plan3.Cells(25, "AD").Value 'Caracterização do Imóvel
            Plan6.Cells(lin, "EB") = Plan3.Cells(28, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EC") = Plan3.Cells(29, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "ED") = Plan3.Cells(30, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EE") = Plan3.Cells(31, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EF") = Plan3.Cells(32, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EG") = Plan3.Cells(33, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EH") = Plan3.Cells(34, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EI") = Plan3.Cells(35, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EJ") = Plan3.Cells(36, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EK") = Plan3.Cells(37, "AB").Value 'Meio Ambiente
            Plan6.Cells(lin, "EL") = Plan3.Cells(28, "AC").Value 'Meio Ambiente
            Plan6.Cells(lin, "EM") = Plan3.Cells(29, "AC").Value 'Meio Ambiente
            Plan6.Cells(lin, "EN") = Plan3.Cells(30, "AC").Value 'Meio Ambiente
            Plan6.Cells(lin, "EO") = Plan3.Cells(30, "O").Value 'Meio Ambiente
            Plan6.Cells(lin, "EP") = Plan3.Cells(32, "AC").Value 'Meio Ambiente
            Plan6.Cells(lin, "EQ") = Plan3.Cells(33, "AC").Value 'Meio Ambiente
            Plan6.Cells(lin, "ER") = Plan3.Cells(39, "A").Value 'Caracterização do Imóvel
'
            Plan6.Cells(lin, "ES") = Plan4.Cells(5, "C").Value 'Avaliação do Terreno
            Plan6.Cells(lin, "ET") = Plan4.Cells(5, "E").Value 'Avaliação do Terreno
            Plan6.Cells(lin, "EU") = Plan4.Cells(5, "G").Value 'Avaliação do Terreno
            Plan6.Cells(lin, "EV") = Plan4.Cells(8, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "EW") = Plan4.Cells(8, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "EX") = Plan4.Cells(9, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "EY") = Plan4.Cells(9, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "EZ") = Plan4.Cells(10, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FA") = Plan4.Cells(10, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FB") = Plan4.Cells(11, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FC") = Plan4.Cells(11, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FD") = Plan4.Cells(12, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FE") = Plan4.Cells(12, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FF") = Plan4.Cells(13, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FG") = Plan4.Cells(13, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FH") = Plan4.Cells(14, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FI") = Plan4.Cells(14, "E").Value 'Vias de Acesso
            Plan6.Cells(lin, "FJ") = Plan4.Cells(15, "C").Value 'Vias de Acesso
            Plan6.Cells(lin, "FK") = Plan4.Cells(15, "E").Value 'Vias de Acesso
            .
            .  CÓDIGO FICOU GRANDE ATÉ PARA POR NO FÓRUM
            .
            Plan6.Cells(lin, "OK") = Plan1.Cells(36, "B").Value 'Status
            Plan6.Cells(lin, "OL") = Plan1.Cells(36, "C").Value 'Status
            
            Exit For
            
                Else
            
            Application.ScreenUpdating = True
            Exit Sub
                    
            End If
            
            Else
            
            lin = lin + 1
            
            End If
        End If
        
    Next

Application.ScreenUpdating = True

End Sub
 
Postado : 04/12/2015 1:46 pm
 EDIVAN
(@edivan)
Posts: 0
New Member
 

Olha o ideal mesmo seria você postar o arquivo modelo para que possamos caminhar come ele, e assim encontrar a melhor solução

Visite meu blog:

programacaopassoapasso.wordpress.com

 
Postado : 04/12/2015 2:18 pm
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Boa tarde Galera,

Alguém me dá um help.

Segue anexo da planilha.

Preciso rodas as macros em computadores mais lentos.
No meu funciona tranquilo.

Planilhando.zip
 
Postado : 09/12/2015 2:52 pm
 edcronos2
(@edcronos2)
Posts: 0
New Member
 

não tem nenhum padrão que de para fazer um loop

oq eu posso falar para vc é criar um array com a range de destino adicionar os valores na array e colar na planilha
e pegue a linha para um array tbm assim o processo vai ficar mais rapido sem interferencia do excel

 
Postado : 09/12/2015 6:56 pm
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Bom dia edcronos2,

Tem como me dar uma luz nisso que você falou ?

Estou aprimorando os conhecimentos ainda rsrs

 
Postado : 10/12/2015 6:19 am
 edcronos2
(@edcronos2)
Posts: 0
New Member
 

olha, tem bastante coisa sobre array pela internet eu mesmo postei bastante coisa aqui a respeito "apesar de confusamente explicado"
basicamente é
array=range
varre array
range = array
tem algumas planilhas que disponibilizei que tem algumas macros com uso de arrays e apesar de eu não ter optimizado ao extremo elas são bastante rapidas
viewtopic.php?f=21&t=18380
é para loteria, mas pode ver que o uso de array possibilita varres todos os sorteios da mega sena varias vezes em instantes "lembrando que eu sequer refineis a planilha "

fora isso não vou poder te ajudar,
não que seu problema seja dificil, mas é um tanto quanto embaralhado.
e não posso começar nada complicado, pq eu me estresso até terminar, ao ponto de ficar mais preocupado do que o dono da planilha e até perdendo o sono
e vamos ser sinceros, se estressar pelos outros somente vale apena em certas ocasiões

 
Postado : 10/12/2015 9:55 am
 BrUnOaFs
(@brunoafs)
Posts: 195
Reputable Member
Topic starter
 

Vou tentar ler um pouco sobre isso.
Baixei os arquivos e fiquei tentando entender, meio complicado no inicio rsrs

Se alguém tiver outras dicas e puder me ajudar tbm, agradeço.

 
Postado : 14/12/2015 1:34 pm
 edcronos2
(@edcronos2)
Posts: 0
New Member
 

o problema é que na sua situação não parece ter outras maneiras
vc tem informações e quer apresentar em um formato especifico e esse formato não segue uma regra linear a nao ser na leitura
o array seria apenas para tornar o processo mais leve

a unica alternativa seria trocar a aba por um formulario e nomear os textbox como se fossem as colunas
txtinfo_col_1
txtinfo_col_2
txtinfo_col_3
colocaria na possição que se quer
aí seria só fazer loop em cima para adicionar os dados

essa seria a maneira mais facil que eu vejo

nomear as celulas somente facilitaria escrever as macro, mas pelo loop em cima da planilha celula por celula iria ter o mesmo peso alem de ter o adicional de nomes

 
Postado : 14/12/2015 4:37 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Começando, a analise sugiro algumas alterações no formato, usar a TABELA criada pelo excel deixa o arquivo extremamente pesado, e em maquinas mais antigas isso pode ser um problema.

Outra coisa que imagino é que os formularios são desnecessarios, ate pa o preenchimento da planilha é feito diretamente na aba, pelo menos foi o que entendi.

Outra coisa vendo aba Avaliação eu trocaria todos esses X por validação de dados

O mesmo vale para as caixas de seleção da aba visita

E eu dividiria essa base de dados para mais de uma aba.

E por ultimo pelo tamanho do arquivo migrar para o Acess seria a melhor solução para um arquivo tao grande. E extremamente pesado.

Esses formularios só serviriam para o uso do corretor na visita ao imovel.

Essas seriam algumas das alterações que eu faria.

 
Postado : 14/12/2015 5:13 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico