Preciso de ajuda. Sou leigo no VBA e montei uma planilha com codigos misturados de outras rs
Só preciso de 3 coisas:
* Botão gravar faça também a edição do cadastro (grave por cima) quando tiver informações novas no form. E não criar uma nova linha com o mesmo cadastro
* Queria que aparecesse aquelas caixas de texto em branco que aparece todos os cadastros, um espaço no form com nome e cnpj apenas para consulta rapida ao clicar abrir as informacoes
* MsgBox: aparecer nos campos cnpj, data e nome uma mensagem "Obrigatorio"
A planilha é pesada nao consegui anexar. segue codigo abaixo do botao gravar:
Private Sub cmdGravar_Click()
Dim W As Worksheet
Dim WCad As Worksheet
Dim Nome As String
Set W = Sheets("Dados Clientes")
Set WCad = Sheets("Dados Clientes")
'Ativar a primeira planilha
ThisWorkbook.Worksheets("Dados Clientes").Activate
'Selecionar a célula A2
Range("A2").Select
'Procurar a primeira célula vazia
Do
If Not (IsEmpty(ActiveCell)) Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
'Carregar os dados digitados nas caixas de texto para a planilha
ActiveCell.Value = txtData.Value
ActiveCell.Offset(0, 1).Value = txtCPF.Value
ActiveCell.Offset(0, 2).Value = DateValue(txtNome.Value)
ActiveCell.Offset(0, 4).Value = cboEstado.Value
ActiveCell.Offset(0, 5).Value = txtTelefone.Value
ActiveCell.Offset(0, 6).Value = txtNascimento.Value
ActiveCell.Offset(0, 11).Value = statusappemp.Value
ActiveCell.Offset(0, 12).Value = qtdeappemp.Value
ActiveCell.Offset(0, 13).Value = obsappemp.Value
ActiveCell.Offset(0, 18).Value = statusappget.Value
ActiveCell.Offset(0, 19).Value = qtdeappget.Value
ActiveCell.Offset(0, 20).Value = obsappget.Value
ActiveCell.Offset(0, 25).Value = statuscobranca.Value
ActiveCell.Offset(0, 26).Value = qtdecobranca.Value
ActiveCell.Offset(0, 27).Value = obscobranca.Value
ActiveCell.Offset(0, 32).Value = statuspgto.Value
ActiveCell.Offset(0, 33).Value = qtdepgto.Value
ActiveCell.Offset(0, 34).Value = obspgto.Value
ActiveCell.Offset(0, 39).Value = statuscorban.Value
ActiveCell.Offset(0, 40).Value = qtdecorban.Value
ActiveCell.Offset(0, 41).Value = obscorban.Value
ActiveCell.Offset(0, 46).Value = statusavancar.Value
ActiveCell.Offset(0, 47).Value = qtdeavancar.Value
ActiveCell.Offset(0, 48).Value = obsavancar.Value
ActiveCell.Offset(0, 53).Value = StatusInv.Value
ActiveCell.Offset(0, 54).Value = qtdeinv.Value
ActiveCell.Offset(0, 55).Value = ObsInv.Value
ActiveCell.Offset(0, 60).Value = statuscontamax.Value
ActiveCell.Offset(0, 61).Value = qtdecontamax.Value
ActiveCell.Offset(0, 62).Value = obscontamax.Value
ActiveCell.Offset(0, 67).Value = statusadq.Value
ActiveCell.Offset(0, 68).Value = qtdeadq.Value
ActiveCell.Offset(0, 69).Value = obsadq.Value
ActiveCell.Offset(0, 73).Value = maqsol.Value
ActiveCell.Offset(0, 74).Value = maqadic.Value
ActiveCell.Offset(0, 75).Value = trava.Value
ActiveCell.Offset(0, 76).Value = antecautom.Value
ActiveCell.Offset(0, 77).Value = statusinstalacaoadq.Value
ActiveCell.Offset(0, 78).Value = valoradq.Value
ActiveCell.Offset(0, 80).Value = qtdeseguros.Value
ActiveCell.Offset(0, 81).Value = statusseguros.Value
ActiveCell.Offset(0, 82).Value = obsseguros.Value
ActiveCell.Offset(0, 88).Value = vctoauto.Value
ActiveCell.Offset(0, 89).Value = obsauto.Value
ActiveCell.Offset(0, 92).Value = statusconsorcio.Value
ActiveCell.Offset(0, 91).Value = qtdeconsorcio.Value
ActiveCell.Offset(0, 93).Value = obsconsorcio.Value
ActiveCell.Offset(0, 99).Value = statuscappm.Value
ActiveCell.Offset(0, 98).Value = qtdecappm.Value
ActiveCell.Offset(0, 100).Value = obscappm.Value
ActiveCell.Offset(0, 106).Value = statuscappu.Value
ActiveCell.Offset(0, 105).Value = qtdecappu.Value
ActiveCell.Offset(0, 107).Value = obscappu.Value
ActiveCell.Offset(0, 113).Value = statusdac.Value
ActiveCell.Offset(0, 112).Value = qtdedac.Value
ActiveCell.Offset(0, 114).Value = obsdac.Value
ActiveCell.Offset(0, 120).Value = statusdpp.Value
ActiveCell.Offset(0, 119).Value = qtdedpp.Value
ActiveCell.Offset(0, 121).Value = obsdpp.Value
ActiveCell.Offset(0, 127).Value = statusgiro.Value
ActiveCell.Offset(0, 126).Value = qtdegiro.Value
ActiveCell.Offset(0, 128).Value = obsgiro.Value
ActiveCell.Offset(0, 134).Value = statuscdc.Value
ActiveCell.Offset(0, 133).Value = qtdecdc.Value
ActiveCell.Offset(0, 135).Value = obscdc.Value
ActiveCell.Offset(0, 141).Value = statusccg.Value
ActiveCell.Offset(0, 140).Value = qtdeccg.Value
ActiveCell.Offset(0, 142).Value = obsccg.Value
ActiveCell.Offset(0, 148).Value = statuscartao.Value
ActiveCell.Offset(0, 147).Value = qtdecartao.Value
ActiveCell.Offset(0, 149).Value = obscartao.Value
ActiveCell.Offset(0, 155).Value = statuschemp.Value
ActiveCell.Offset(0, 154).Value = qtdechemp.Value
ActiveCell.Offset(0, 156).Value = obschemp.Value
ActiveCell.Offset(0, 162).Value = statusbndes.Value
ActiveCell.Offset(0, 161).Value = qtdebndes.Value
ActiveCell.Offset(0, 163).Value = obsbndes.Value
ActiveCell.Offset(0, 169).Value = statusprogeren.Value
ActiveCell.Offset(0, 168).Value = qtdeprogeren.Value
ActiveCell.Offset(0, 170).Value = obsprogeren.Value
ActiveCell.Offset(0, 176).Value = statusfiname.Value
ActiveCell.Offset(0, 175).Value = qtdefiname.Value
ActiveCell.Offset(0, 177).Value = obsfiname.Value
ActiveCell.Offset(0, 183).Value = statuscambio.Value
ActiveCell.Offset(0, 182).Value = qtdecambio.Value
ActiveCell.Offset(0, 184).Value = obscambio.Value
ActiveCell.Offset(0, 190).Value = statusunificado.Value
ActiveCell.Offset(0, 189).Value = qtdeunificado.Value
ActiveCell.Offset(0, 191).Value = obsunificado.Value
ActiveCell.Offset(0, 197).Value = statusreorg.Value
ActiveCell.Offset(0, 196).Value = qtdereorg.Value
ActiveCell.Offset(0, 198).Value = obsreorg.Value
ActiveCell.Offset(0, 204).Value = statussolucao.Value
ActiveCell.Offset(0, 203).Value = qtdesolucao.Value
ActiveCell.Offset(0, 205).Value = obssolucao.Value
ActiveCell.Offset(0, 211).Value = statusover.Value
ActiveCell.Offset(0, 210).Value = qtdeover.Value
ActiveCell.Offset(0, 212).Value = obsover.Value
ActiveCell.Offset(0, 218).Value = statusate30.Value
ActiveCell.Offset(0, 217).Value = qtdeate30.Value
ActiveCell.Offset(0, 219).Value = obsate30.Value
ActiveCell.Offset(0, 225).Value = status3160.Value
ActiveCell.Offset(0, 224).Value = qtde3160.Value
ActiveCell.Offset(0, 226).Value = obs3160.Value
ActiveCell.Offset(0, 232).Value = status6190.Value
ActiveCell.Offset(0, 231).Value = qtde6190.Value
ActiveCell.Offset(0, 233).Value = obs6190.Value
ActiveCell.Offset(0, 239).Value = statusabertura.Value
ActiveCell.Offset(0, 238).Value = qtdeabertura.Value
ActiveCell.Offset(0, 240).Value = obsabertura.Value
ActiveCell.Offset(0, 241).Value = top10abertura.Value
ActiveCell.Offset(0, 248).Value = dadosmgm.Value
ActiveCell.Offset(0, 250).Value = qtdesocio.Value
ActiveCell.Offset(0, 251).Value = quem.Value
ActiveCell.Offset(0, 246).Value = faturamento.Value
ActiveCell.Offset(0, 276).Value = statusdescontos.Value
ActiveCell.Offset(0, 275).Value = qtdedescontos.Value
ActiveCell.Offset(0, 277).Value = obsdescontos.Value
ActiveCell.Offset(0, 283).Value = statusantecipacao.Value
ActiveCell.Offset(0, 282).Value = qtdeantecipacao.Value
ActiveCell.Offset(0, 284).Value = obsantecipacao.Value
ActiveCell.Offset(0, 290).Value = statusvinculacao.Value
ActiveCell.Offset(0, 289).Value = qtdevinculacao.Value
ActiveCell.Offset(0, 291).Value = obsvinculacao.Value
ActiveCell.Offset(0, 310).Value = statusnps.Value
ActiveCell.Offset(0, 309).Value = qtdenps.Value
ActiveCell.Offset(0, 311).Value = obsnps.Value
'Carregar produção/pipeline do cliente dos botões de opção
If CheckBoxfopa.Value = True Then
ActiveCell.Offset(0, 3).Value = "Sim"
Else
ActiveCell.Offset(0, 3).Value = ""
End If
If ativofopa.Value = True Then
ActiveCell.Offset(0, 9).Value = "sim"
Else
ActiveCell.Offset(0, 9).Value = ""
End If
If Pipefopa.Value = True Then
ActiveCell.Offset(0, 7).Value = "Sim"
Else
ActiveCell.Offset(0, 7).Value = ""
End If
If ProdFOPA.Value = True Then
ActiveCell.Offset(0, 8).Value = "Sim"
Else
ActiveCell.Offset(0, 8).Value = ""
End If
If boxappemp = True Then
ActiveCell.Offset(0, 10).Value = "Sim"
Else
ActiveCell.Offset(0, 10).Value = ""
End If
If pipeappemp = True Then
ActiveCell.Offset(0, 14).Value = "Sim"
Else
ActiveCell.Offset(0, 14).Value = ""
End If
If prodappemp = True Then
ActiveCell.Offset(0, 15).Value = "Sim"
Else
ActiveCell.Offset(0, 15).Value = ""
End If
If ativoappemp = True Then
ActiveCell.Offset(0, 16).Value = "Sim"
Else
ActiveCell.Offset(0, 16).Value = ""
End If
If boxappget = True Then
ActiveCell.Offset(0, 17).Value = "Sim"
Else
ActiveCell.Offset(0, 17).Value = ""
End If
If pipeappget = True Then
ActiveCell.Offset(0, 21).Value = "Sim"
Else
ActiveCell.Offset(0, 21).Value = ""
End If
If prodappget = True Then
ActiveCell.Offset(0, 22).Value = "Sim"
Else
ActiveCell.Offset(0, 22).Value = ""
End If
If ativoappget = True Then
ActiveCell.Offset(0, 23).Value = "Sim"
Else
ActiveCell.Offset(0, 23).Value = ""
End If
If boxcobranca = True Then
ActiveCell.Offset(0, 24).Value = "Sim"
Else
ActiveCell.Offset(0, 24).Value = ""
End If
If pipecobranca = True Then
ActiveCell.Offset(0, 28).Value = "Sim"
Else
ActiveCell.Offset(0, 28).Value = ""
End If
If prodcobranca = True Then
ActiveCell.Offset(0, 29).Value = "Sim"
Else
ActiveCell.Offset(0, 29).Value = ""
End If
If ativocobranca = True Then
ActiveCell.Offset(0, 30).Value = "Sim"
Else
ActiveCell.Offset(0, 30).Value = ""
End If
If boxpgto = True Then
ActiveCell.Offset(0, 31).Value = "Sim"
Else
ActiveCell.Offset(0, 31).Value = ""
End If
If pipepgto = True Then
ActiveCell.Offset(0, 35).Value = "Sim"
Else
ActiveCell.Offset(0, 35).Value = ""
End If
If prodpgto = True Then
ActiveCell.Offset(0, 36).Value = "Sim"
Else
ActiveCell.Offset(0, 36).Value = ""
End If
If ativopgto = True Then
ActiveCell.Offset(0, 37).Value = "Sim"
Else
ActiveCell.Offset(0, 37).Value = ""
End If
If boxcorban = True Then
ActiveCell.Offset(0, 38).Value = "Sim"
Else
ActiveCell.Offset(0, 38).Value = ""
End If
If pipecorban = True Then
ActiveCell.Offset(0, 42).Value = "Sim"
Else
ActiveCell.Offset(0, 42).Value = ""
End If
If prodcorban = True Then
ActiveCell.Offset(0, 43).Value = "Sim"
Else
ActiveCell.Offset(0, 43).Value = ""
End If
If ativocorban = True Then
ActiveCell.Offset(0, 44).Value = "Sim"
Else
ActiveCell.Offset(0, 44).Value = ""
End If
If boxavancar = True Then
ActiveCell.Offset(0, 45).Value = "Sim"
Else
ActiveCell.Offset(0, 45).Value = ""
End If
If pipeavancar = True Then
ActiveCell.Offset(0, 49).Value = "Sim"
Else
ActiveCell.Offset(0, 49).Value = ""
End If
If prodavancar = True Then
ActiveCell.Offset(0, 50).Value = "Sim"
Else
ActiveCell.Offset(0, 50).Value = ""
End If
If ativoavancar = True Then
ActiveCell.Offset(0, 51).Value = "Sim"
Else
ActiveCell.Offset(0, 51).Value = ""
End If
If boxinv = True Then
ActiveCell.Offset(0, 52).Value = "Sim"
Else
ActiveCell.Offset(0, 52).Value = ""
End If
If PipeInv = True Then
ActiveCell.Offset(0, 56).Value = "Sim"
Else
ActiveCell.Offset(0, 56).Value = ""
End If
If ProdInv = True Then
ActiveCell.Offset(0, 57).Value = "Sim"
Else
ActiveCell.Offset(0, 57).Value = ""
End If
If ativoinv = True Then
ActiveCell.Offset(0, 58).Value = "Sim"
Else
ActiveCell.Offset(0, 58).Value = ""
End If
If boxcontamax = True Then
ActiveCell.Offset(0, 59).Value = "Sim"
Else
ActiveCell.Offset(0, 59).Value = ""
End If
If pipecontamax = True Then
ActiveCell.Offset(0, 63).Value = "Sim"
Else
ActiveCell.Offset(0, 63).Value = ""
End If
If prodcontamax = True Then
ActiveCell.Offset(0, 64).Value = "Sim"
Else
ActiveCell.Offset(0, 64).Value = ""
End If
If ativocontamax = True Then
ActiveCell.Offset(0, 65).Value = "Sim"
Else
ActiveCell.Offset(0, 65).Value = ""
End If
If BoxAdq = True Then
ActiveCell.Offset(0, 66).Value = "Sim"
Else
ActiveCell.Offset(0, 66).Value = ""
End If
If Pipeadq = True Then
ActiveCell.Offset(0, 70).Value = "Sim"
Else
ActiveCell.Offset(0, 70).Value = ""
End If
If Prodadq = True Then
ActiveCell.Offset(0, 71).Value = "Sim"
Else
ActiveCell.Offset(0, 71).Value = ""
End If
If Ativoadq = True Then
ActiveCell.Offset(0, 72).Value = "Sim"
Else
ActiveCell.Offset(0, 72).Value = ""
End If
If boxseguros = True Then
ActiveCell.Offset(0, 79).Value = "Sim"
Else
ActiveCell.Offset(0, 79).Value = ""
End If
If pipeseguros = True Then
ActiveCell.Offset(0, 83).Value = "Sim"
Else
ActiveCell.Offset(0, 83).Value = ""
End If
If prodseguros = True Then
ActiveCell.Offset(0, 84).Value = "Sim"
Else
ActiveCell.Offset(0, 84).Value = ""
End If
If ativoseguros = True Then
ActiveCell.Offset(0, 85).Value = "Sim"
Else
ActiveCell.Offset(0, 85).Value = ""
End If
If trienalseguros = True Then
ActiveCell.Offset(0, 86).Value = "1"
Else
ActiveCell.Offset(0, 86).Value = ""
End If
If boxauto = True Then
ActiveCell.Offset(0, 87).Value = "sim"
Else
ActiveCell.Offset(0, 87).Value = ""
End If
If boxconsorcio = True Then
ActiveCell.Offset(0, 90).Value = "Sim"
Else
ActiveCell.Offset(0, 90).Value = ""
End If
If pipeconsorcio = True Then
ActiveCell.Offset(0, 94).Value = "Sim"
Else
ActiveCell.Offset(0, 94).Value = ""
End If
If prodconsorcio = True Then
ActiveCell.Offset(0, 95).Value = "Sim"
Else
ActiveCell.Offset(0, 95).Value = ""
End If
If ativoconsorcio = True Then
ActiveCell.Offset(0, 96).Value = "Sim"
Else
ActiveCell.Offset(0, 96).Value = ""
End If
If boxcappm = True Then
ActiveCell.Offset(0, 97).Value = "Sim"
Else
ActiveCell.Offset(0, 97).Value = ""
End If
If pipecappm = True Then
ActiveCell.Offset(0, 101).Value = "Sim"
Else
ActiveCell.Offset(0, 101).Value = ""
End If
If prodcappm = True Then
ActiveCell.Offset(0, 102).Value = "Sim"
Else
ActiveCell.Offset(0, 102).Value = ""
End If
If ativocappm = True Then
ActiveCell.Offset(0, 103).Value = "Sim"
Else
ActiveCell.Offset(0, 103).Value = ""
End If
If boxcappu = True Then
ActiveCell.Offset(0, 104).Value = "Sim"
Else
ActiveCell.Offset(0, 104).Value = ""
End If
If pipecappu = True Then
ActiveCell.Offset(0, 108).Value = "Sim"
Else
ActiveCell.Offset(0, 108).Value = ""
End If
If prodcappu = True Then
ActiveCell.Offset(0, 109).Value = "Sim"
Else
ActiveCell.Offset(0, 109).Value = ""
End If
If ativocappu = True Then
ActiveCell.Offset(0, 110).Value = "Sim"
Else
ActiveCell.Offset(0, 110).Value = ""
End If
If boxdac = True Then
ActiveCell.Offset(0, 111).Value = "Sim"
Else
ActiveCell.Offset(0, 111).Value = ""
End If
If pipedac = True Then
ActiveCell.Offset(0, 115).Value = "Sim"
Else
ActiveCell.Offset(0, 115).Value = ""
End If
If proddac = True Then
ActiveCell.Offset(0, 116).Value = "Sim"
Else
ActiveCell.Offset(0, 116).Value = ""
End If
If ativodac = True Then
ActiveCell.Offset(0, 117).Value = "Sim"
Else
ActiveCell.Offset(0, 117).Value = ""
End If
If boxdpp = True Then
ActiveCell.Offset(0, 118).Value = "Sim"
Else
ActiveCell.Offset(0, 118).Value = ""
End If
If pipedpp = True Then
ActiveCell.Offset(0, 122).Value = "Sim"
Else
ActiveCell.Offset(0, 122).Value = ""
End If
If proddpp = True Then
ActiveCell.Offset(0, 123).Value = "Sim"
Else
ActiveCell.Offset(0, 123).Value = ""
End If
If ativodpp = True Then
ActiveCell.Offset(0, 124).Value = "Sim"
Else
ActiveCell.Offset(0, 124).Value = ""
End If
If boxgiro = True Then
ActiveCell.Offset(0, 125).Value = "Sim"
Else
ActiveCell.Offset(0, 125).Value = ""
End If
If pipegiro = True Then
ActiveCell.Offset(0, 129).Value = "Sim"
Else
ActiveCell.Offset(0, 129).Value = ""
End If
If prodgiro = True Then
ActiveCell.Offset(0, 130).Value = "Sim"
Else
ActiveCell.Offset(0, 130).Value = ""
End If
If ativogiro = True Then
ActiveCell.Offset(0, 131).Value = "Sim"
Else
ActiveCell.Offset(0, 131).Value = ""
End If
If boxcdc = True Then
ActiveCell.Offset(0, 132).Value = "Sim"
Else
ActiveCell.Offset(0, 132).Value = ""
End If
If pipecdc = True Then
ActiveCell.Offset(0, 136).Value = "Sim"
Else
ActiveCell.Offset(0, 136).Value = ""
End If
If prodcdc = True Then
ActiveCell.Offset(0, 137).Value = "Sim"
Else
ActiveCell.Offset(0, 137).Value = ""
End If
If ativocdc = True Then
ActiveCell.Offset(0, 138).Value = "Sim"
Else
ActiveCell.Offset(0, 138).Value = ""
End If
If boxccg = True Then
ActiveCell.Offset(0, 139).Value = "Sim"
Else
ActiveCell.Offset(0, 139).Value = ""
End If
If pipeccg = True Then
ActiveCell.Offset(0, 143).Value = "Sim"
Else
ActiveCell.Offset(0, 143).Value = ""
End If
If prodccg = True Then
ActiveCell.Offset(0, 144).Value = "Sim"
Else
ActiveCell.Offset(0, 144).Value = ""
End If
If ativoccg = True Then
ActiveCell.Offset(0, 145).Value = "Sim"
Else
ActiveCell.Offset(0, 145).Value = ""
End If
If boxcartao = True Then
ActiveCell.Offset(0, 146).Value = "Sim"
Else
ActiveCell.Offset(0, 146).Value = ""
End If
If pipecartao = True Then
ActiveCell.Offset(0, 150).Value = "Sim"
Else
ActiveCell.Offset(0, 150).Value = ""
End If
If prodcartao = True Then
ActiveCell.Offset(0, 151).Value = "Sim"
Else
ActiveCell.Offset(0, 151).Value = ""
End If
If ativocartao = True Then
ActiveCell.Offset(0, 152).Value = "Sim"
Else
ActiveCell.Offset(0, 152).Value = ""
End If
If boxchemp = True Then
ActiveCell.Offset(0, 153).Value = "Sim"
Else
ActiveCell.Offset(0, 153).Value = ""
End If
If pipechemp = True Then
ActiveCell.Offset(0, 157).Value = "Sim"
Else
ActiveCell.Offset(0, 157).Value = ""
End If
If prodchemp = True Then
ActiveCell.Offset(0, 158).Value = "Sim"
Else
ActiveCell.Offset(0, 158).Value = ""
End If
If ativochemp = True Then
ActiveCell.Offset(0, 159).Value = "Sim"
Else
ActiveCell.Offset(0, 159).Value = ""
End If
If boxbndes = True Then
ActiveCell.Offset(0, 160).Value = "Sim"
Else
ActiveCell.Offset(0, 160).Value = ""
End If
If pipebndes = True Then
ActiveCell.Offset(0, 164).Value = "Sim"
Else
ActiveCell.Offset(0, 164).Value = ""
End If
If prodbndes = True Then
ActiveCell.Offset(0, 165).Value = "Sim"
Else
ActiveCell.Offset(0, 165).Value = ""
End If
If ativobndes = True Then
ActiveCell.Offset(0, 166).Value = "Sim"
Else
ActiveCell.Offset(0, 166).Value = ""
End If
If boxprogeren = True Then
ActiveCell.Offset(0, 167).Value = "Sim"
Else
ActiveCell.Offset(0, 167).Value = ""
End If
If pipeprogeren = True Then
ActiveCell.Offset(0, 171).Value = "Sim"
Else
ActiveCell.Offset(0, 171).Value = ""
End If
If prodprogeren = True Then
ActiveCell.Offset(0, 172).Value = "Sim"
Else
ActiveCell.Offset(0, 172).Value = ""
End If
If ativoprogeren = True Then
ActiveCell.Offset(0, 173).Value = "Sim"
Else
ActiveCell.Offset(0, 173).Value = ""
End If
If boxfiname = True Then
ActiveCell.Offset(0, 174).Value = "Sim"
Else
ActiveCell.Offset(0, 174).Value = ""
End If
If pipefiname = True Then
ActiveCell.Offset(0, 178).Value = "Sim"
Else
ActiveCell.Offset(0, 178).Value = ""
End If
If prodfiname = True Then
ActiveCell.Offset(0, 179).Value = "Sim"
Else
ActiveCell.Offset(0, 179).Value = ""
End If
If ativofiname = True Then
ActiveCell.Offset(0, 180).Value = "Sim"
Else
ActiveCell.Offset(0, 180).Value = ""
End If
If boxcambio = True Then
ActiveCell.Offset(0, 181).Value = "Sim"
Else
ActiveCell.Offset(0, 181).Value = ""
End If
If pipecambio = True Then
ActiveCell.Offset(0, 185).Value = "Sim"
Else
ActiveCell.Offset(0, 185).Value = ""
End If
If prodcambio = True Then
ActiveCell.Offset(0, 186).Value = "Sim"
Else
ActiveCell.Offset(0, 186).Value = ""
End If
If ativocambio = True Then
ActiveCell.Offset(0, 187).Value = "Sim"
Else
ActiveCell.Offset(0, 187).Value = ""
End If
If boxunificado = True Then
ActiveCell.Offset(0, 188).Value = "Sim"
Else
ActiveCell.Offset(0, 188).Value = ""
End If
If pipeunificado = True Then
ActiveCell.Offset(0, 192).Value = "Sim"
Else
ActiveCell.Offset(0, 192).Value = ""
End If
If produnificado = True Then
ActiveCell.Offset(0, 193).Value = "Sim"
Else
ActiveCell.Offset(0, 193).Value = ""
End If
If ativounificado = True Then
ActiveCell.Offset(0, 194).Value = "Sim"
Else
ActiveCell.Offset(0, 194).Value = ""
End If
If boxreorg = True Then
ActiveCell.Offset(0, 195).Value = "Sim"
Else
ActiveCell.Offset(0, 195).Value = ""
End If
If pipereorg = True Then
ActiveCell.Offset(0, 199).Value = "Sim"
Else
ActiveCell.Offset(0, 199).Value = ""
End If
If prodreorg = True Then
ActiveCell.Offset(0, 200).Value = "Sim"
Else
ActiveCell.Offset(0, 200).Value = ""
End If
If ativoreorg = True Then
ActiveCell.Offset(0, 201).Value = "Sim"
Else
ActiveCell.Offset(0, 201).Value = ""
End If
If boxsolucao = True Then
ActiveCell.Offset(0, 202).Value = "Sim"
Else
ActiveCell.Offset(0, 202).Value = ""
End If
If pipesolucao = True Then
ActiveCell.Offset(0, 206).Value = "Sim"
Else
ActiveCell.Offset(0, 206).Value = ""
End If
If prodsolucao = True Then
ActiveCell.Offset(0, 207).Value = "Sim"
Else
ActiveCell.Offset(0, 207).Value = ""
End If
If ativosolucao = True Then
ActiveCell.Offset(0, 208).Value = "Sim"
Else
ActiveCell.Offset(0, 208).Value = ""
End If
If boxover = True Then
ActiveCell.Offset(0, 209).Value = "Sim"
Else
ActiveCell.Offset(0, 209).Value = ""
End If
If pipeover = True Then
ActiveCell.Offset(0, 213).Value = "Sim"
Else
ActiveCell.Offset(0, 213).Value = ""
End If
If prodover = True Then
ActiveCell.Offset(0, 214).Value = "Sim"
Else
ActiveCell.Offset(0, 214).Value = ""
End If
If ativoover = True Then
ActiveCell.Offset(0, 215).Value = "Sim"
Else
ActiveCell.Offset(0, 215).Value = ""
End If
If boxate30 = True Then
ActiveCell.Offset(0, 216).Value = "Sim"
Else
ActiveCell.Offset(0, 216).Value = ""
End If
If pipeate30 = True Then
ActiveCell.Offset(0, 220).Value = "Sim"
Else
ActiveCell.Offset(0, 220).Value = ""
End If
If prodate30 = True Then
ActiveCell.Offset(0, 221).Value = "Sim"
Else
ActiveCell.Offset(0, 221).Value = ""
End If
If ativoate30 = True Then
ActiveCell.Offset(0, 222).Value = "Sim"
Else
ActiveCell.Offset(0, 222).Value = ""
End If
If box3160 = True Then
ActiveCell.Offset(0, 223).Value = "Sim"
Else
ActiveCell.Offset(0, 223).Value = ""
End If
If pipe3160 = True Then
ActiveCell.Offset(0, 227).Value = "Sim"
Else
ActiveCell.Offset(0, 227).Value = ""
End If
If prod3160 = True Then
ActiveCell.Offset(0, 228).Value = "Sim"
Else
ActiveCell.Offset(0, 228).Value = ""
End If
If ativo3160 = True Then
ActiveCell.Offset(0, 229).Value = "Sim"
Else
ActiveCell.Offset(0, 229).Value = ""
End If
If box6190 = True Then
ActiveCell.Offset(0, 230).Value = "Sim"
Else
ActiveCell.Offset(0, 230).Value = ""
End If
If pipe6190 = True Then
ActiveCell.Offset(0, 234).Value = "Sim"
Else
ActiveCell.Offset(0, 234).Value = ""
End If
If prod6190 = True Then
ActiveCell.Offset(0, 235).Value = "Sim"
Else
ActiveCell.Offset(0, 235).Value = ""
End If
If ativo6190 = True Then
ActiveCell.Offset(0, 236).Value = "Sim"
Else
ActiveCell.Offset(0, 236).Value = ""
End If
If boxabertura = True Then
ActiveCell.Offset(0, 237).Value = "Sim"
Else
ActiveCell.Offset(0, 237).Value = ""
End If
If pipeabertura = True Then
ActiveCell.Offset(0, 241).Value = "Sim"
Else
ActiveCell.Offset(0, 241).Value = ""
End If
If prodabertura = True Then
ActiveCell.Offset(0, 242).Value = "Sim"
Else
ActiveCell.Offset(0, 242).Value = ""
End If
If ativoabertura = True Then
ActiveCell.Offset(0, 243).Value = "Sim"
Else
ActiveCell.Offset(0, 243).Value = ""
End If
If boxdeposito = True Then
ActiveCell.Offset(0, 245).Value = "Sim"
Else
ActiveCell.Offset(0, 245).Value = ""
End If
If boxindicacao = True Then
ActiveCell.Offset(0, 247).Value = "Sim"
Else
ActiveCell.Offset(0, 247).Value = ""
End If
If boxsocio = True Then
ActiveCell.Offset(0, 249).Value = "Sim"
Else
ActiveCell.Offset(0, 249).Value = ""
End If
If boxclientecerto = True Then
ActiveCell.Offset(0, 253).Value = "Sim"
Else
ActiveCell.Offset(0, 253).Value = ""
End If
If boxfve = True Then
ActiveCell.Offset(0, 252).Value = "sim"
Else
ActiveCell.Offset(0, 252).Value = ""
End If
If e2 = True Then
ActiveCell.Offset(0, 254).Value = "sim"
Else
ActiveCell.Offset(0, 254).Value = ""
End If
If digitale2 = True Then
ActiveCell.Offset(0, 257).Value = 1
Else
ActiveCell.Offset(0, 257).Value = ""
End If
If adqe2 = True Then
ActiveCell.Offset(0, 258).Value = 0.5
Else
ActiveCell.Offset(0, 258).Value = ""
End If
If travae2 = True Then
ActiveCell.Offset(0, 259).Value = 0.5
Else
ActiveCell.Offset(0, 259).Value = ""
End If
If contamaxe2 = True Then
ActiveCell.Offset(0, 260).Value = 0.5
Else
ActiveCell.Offset(0, 260).Value = ""
End If
If cobrancae2 = True Then
ActiveCell.Offset(0, 261).Value = 0.5
Else
ActiveCell.Offset(0, 261).Value = ""
End If
If pagfore2 = True Then
ActiveCell.Offset(0, 262).Value = 0.5
Else
ActiveCell.Offset(0, 262).Value = ""
End If
If chempe2 = True Then
ActiveCell.Offset(0, 263).Value = 0.5
Else
ActiveCell.Offset(0, 263).Value = ""
End If
If pacotee2 = True Then
ActiveCell.Offset(0, 264).Value = 1
Else
ActiveCell.Offset(0, 264).Value = ""
End If
If e1 = True Then
ActiveCell.Offset(0, 265).Value = "sim"
Else
ActiveCell.Offset(0, 265).Value = ""
End If
If digitale1 = True Then
ActiveCell.Offset(0, 268).Value = 1
Else
ActiveCell.Offset(0, 268).Value = ""
End If
If adqe1 = True Then
ActiveCell.Offset(0, 269).Value = 0.5
Else
ActiveCell.Offset(0, 269).Value = ""
End If
If travae1 = True Then
ActiveCell.Offset(0, 270).Value = 0.5
Else
ActiveCell.Offset(0, 270).Value = ""
End If
If contamaxe1 = True Then
ActiveCell.Offset(0, 271).Value = 0.5
Else
ActiveCell.Offset(0, 271).Value = ""
End If
If chempe1 = True Then
ActiveCell.Offset(0, 272).Value = 1
Else
ActiveCell.Offset(0, 272).Value = ""
End If
If dace1 = True Then
ActiveCell.Offset(0, 273).Value = 0.5
Else
ActiveCell.Offset(0, 273).Value = ""
End If
If boxdescontos = True Then
ActiveCell.Offset(0, 274).Value = "Sim"
Else
ActiveCell.Offset(0, 274).Value = ""
End If
If pipedescontos = True Then
ActiveCell.Offset(0, 278).Value = "Sim"
Else
ActiveCell.Offset(0, 278).Value = ""
End If
If proddescontos = True Then
ActiveCell.Offset(0, 279).Value = "Sim"
Else
ActiveCell.Offset(0, 279).Value = ""
End If
If ativodescontos = True Then
ActiveCell.Offset(0, 280).Value = "Sim"
Else
ActiveCell.Offset(0, 280).Value = ""
End If
If boxantecipacao = True Then
ActiveCell.Offset(0, 281).Value = "Sim"
Else
ActiveCell.Offset(0, 281).Value = ""
End If
If pipeantecipacao = True Then
ActiveCell.Offset(0, 285).Value = "Sim"
Else
ActiveCell.Offset(0, 285).Value = ""
End If
If prodantecipacao = True Then
ActiveCell.Offset(0, 286).Value = "Sim"
Else
ActiveCell.Offset(0, 286).Value = ""
End If
If ativoantecipacao = True Then
ActiveCell.Offset(0, 287).Value = "Sim"
Else
ActiveCell.Offset(0, 287).Value = ""
End If
If boxvinculacao = True Then
ActiveCell.Offset(0, 288).Value = "Sim"
Else
ActiveCell.Offset(0, 288).Value = ""
End If
If pipevinculacao = True Then
ActiveCell.Offset(0, 292).Value = "Sim"
Else
ActiveCell.Offset(0, 292).Value = ""
End If
If prodvinculacao = True Then
ActiveCell.Offset(0, 293).Value = "Sim"
Else
ActiveCell.Offset(0, 293).Value = ""
End If
If ativovinculacao = True Then
ActiveCell.Offset(0, 294).Value = "Sim"
Else
ActiveCell.Offset(0, 294).Value = ""
End If
If ibvinc = True Then
ActiveCell.Offset(0, 295).Value = "Sim"
Else
ActiveCell.Offset(0, 295).Value = ""
End If
If fopavinc = True Then
ActiveCell.Offset(0, 296).Value = "Sim"
Else
ActiveCell.Offset(0, 296).Value = ""
End If
If dacvinc = True Then
ActiveCell.Offset(0, 297).Value = "Sim"
Else
ActiveCell.Offset(0, 297).Value = ""
End If
If sociovinc = True Then
ActiveCell.Offset(0, 298).Value = "Sim"
Else
ActiveCell.Offset(0, 298).Value = ""
End If
If descontovinc = True Then
ActiveCell.Offset(0, 299).Value = "Sim"
Else
ActiveCell.Offset(0, 299).Value = ""
End If
If antecipacaovinc = True Then
ActiveCell.Offset(0, 300).Value = "Sim"
Else
ActiveCell.Offset(0, 300).Value = ""
End If
If pagamentosvinc = True Then
ActiveCell.Offset(0, 301).Value = "Sim"
Else
ActiveCell.Offset(0, 301).Value = ""
End If
If domiciliovinc = True Then
ActiveCell.Offset(0, 302).Value = "Sim"
Else
ActiveCell.Offset(0, 302).Value = ""
End If
If adqvinc = True Then
ActiveCell.Offset(0, 303).Value = "Sim"
Else
ActiveCell.Offset(0, 303).Value = ""
End If
If ccgvinc = True Then
ActiveCell.Offset(0, 304).Value = "Sim"
Else
ActiveCell.Offset(0, 304).Value = ""
End If
If chempvinc = True Then
ActiveCell.Offset(0, 305).Value = "Sim"
Else
ActiveCell.Offset(0, 305).Value = ""
End If
If cartaovinc = True Then
ActiveCell.Offset(0, 306).Value = "Sim"
Else
ActiveCell.Offset(0, 306).Value = ""
End If
If movimentacaovinc = True Then
ActiveCell.Offset(0, 307).Value = "Sim"
Else
ActiveCell.Offset(0, 307).Value = ""
End If
If boxnps = True Then
ActiveCell.Offset(0, 308).Value = "Sim"
Else
ActiveCell.Offset(0, 308).Value = ""
End If
If pipenps = True Then
ActiveCell.Offset(0, 312).Value = "Sim"
Else
ActiveCell.Offset(0, 312).Value = ""
End If
If prodnps = True Then
ActiveCell.Offset(0, 313).Value = "Sim"
Else
ActiveCell.Offset(0, 313).Value = ""
End If
If atendimento = True Then
ActiveCell.Offset(0, 316).Value = "Sim"
Else
ActiveCell.Offset(0, 316).Value = ""
End If
If fatatendimento = True Then
ActiveCell.Offset(0, 317).Value = "Sim"
Else
ActiveCell.Offset(0, 317).Value = ""
End If
If ficadpfatendimento = True Then
ActiveCell.Offset(0, 318).Value = "Sim"
Else
ActiveCell.Offset(0, 318).Value = ""
End If
If ficadpjatendimento = True Then
ActiveCell.Offset(0, 319).Value = "Sim"
Else
ActiveCell.Offset(0, 319).Value = ""
End If
If grupoatendimento = True Then
ActiveCell.Offset(0, 320).Value = "Sim"
Else
ActiveCell.Offset(0, 320).Value = ""
End If
If flagatendimento = True Then
ActiveCell.Offset(0, 321).Value = "Sim"
Else
ActiveCell.Offset(0, 321).Value = ""
End If
If pacoteatendimento = True Then
ActiveCell.Offset(0, 322).Value = "Sim"
Else
ActiveCell.Offset(0, 322).Value = ""
End If
If contamaxatendimento = True Then
ActiveCell.Offset(0, 323).Value = "Sim"
Else
ActiveCell.Offset(0, 323).Value = ""
End If
If planoatendimento = True Then
ActiveCell.Offset(0, 324).Value = "Sim"
Else
ActiveCell.Offset(0, 324).Value = ""
End If
If baixaratendimento = True Then
ActiveCell.Offset(0, 325).Value = "Sim"
Else
ActiveCell.Offset(0, 325).Value = ""
End If
If marcaratendimento = True Then
ActiveCell.Offset(0, 326).Value = "Sim"
Else
ActiveCell.Offset(0, 326).Value = ""
End If
If comercialatendimento = True Then
ActiveCell.Offset(0, 327).Value = "Sim"
Else
ActiveCell.Offset(0, 327).Value = ""
End If
If vincatendimento = True Then
ActiveCell.Offset(0, 328).Value = "Sim"
Else
ActiveCell.Offset(0, 328).Value = ""
End If
If apiatendimento = True Then
ActiveCell.Offset(0, 329).Value = "Sim"
Else
ActiveCell.Offset(0, 329).Value = ""
End If
If visita = True Then
ActiveCell.Offset(0, 330).Value = "Sim"
Else
ActiveCell.Offset(0, 330).Value = ""
End If
If kitvisita = True Then
ActiveCell.Offset(0, 331).Value = "Sim"
Else
ActiveCell.Offset(0, 331).Value = ""
End If
If travavisita = True Then
ActiveCell.Offset(0, 332).Value = "Sim"
Else
ActiveCell.Offset(0, 332).Value = ""
End If
If propostavisita = True Then
ActiveCell.Offset(0, 333).Value = "Sim"
Else
ActiveCell.Offset(0, 333).Value = ""
End If
If dacvisita = True Then
ActiveCell.Offset(0, 334).Value = "Sim"
Else
ActiveCell.Offset(0, 334).Value = ""
End If
If aberturavisita = True Then
ActiveCell.Offset(0, 335).Value = "Sim"
Else
ActiveCell.Offset(0, 335).Value = ""
End If
If gerarvisita = True Then
ActiveCell.Offset(0, 336).Value = "Sim"
Else
ActiveCell.Offset(0, 336).Value = ""
End If
If pocomite = True Then
ActiveCell.Offset(0, 337).Value = "Sim"
Else
ActiveCell.Offset(0, 337).Value = ""
End If
If seguropo = True Then
ActiveCell.Offset(0, 338).Value = "Sim"
Else
ActiveCell.Offset(0, 338).Value = ""
End If
If contapo = True Then
ActiveCell.Offset(0, 339).Value = "Sim"
Else
ActiveCell.Offset(0, 339).Value = ""
End If
If novaspo = True Then
ActiveCell.Offset(0, 340).Value = "Sim"
Else
ActiveCell.Offset(0, 340).Value = ""
End If
If garantiapo = True Then
ActiveCell.Offset(0, 341).Value = "Sim"
Else
ActiveCell.Offset(0, 341).Value = ""
End If
If ponderadorpo = True Then
ActiveCell.Offset(0, 342).Value = "Sim"
Else
ActiveCell.Offset(0, 342).Value = ""
End If
If analisepo = True Then
ActiveCell.Offset(0, 343).Value = "Sim"
Else
ActiveCell.Offset(0, 343).Value = ""
End If
If abertura = True Then
ActiveCell.Offset(0, 344).Value = "Sim"
Else
ActiveCell.Offset(0, 344).Value = ""
End If
If poloabertura = True Then
ActiveCell.Offset(0, 345).Value = "Sim"
Else
ActiveCell.Offset(0, 345).Value = ""
End If
If upldabertura = True Then
ActiveCell.Offset(0, 346).Value = "Sim"
Else
ActiveCell.Offset(0, 346).Value = ""
End If
If depositoabertura = True Then
ActiveCell.Offset(0, 347).Value = "Sim"
Else
ActiveCell.Offset(0, 347).Value = ""
End If
If fveabertura = True Then
ActiveCell.Offset(0, 348).Value = "Sim"
Else
ActiveCell.Offset(0, 348).Value = ""
End If
'Limpar as caixas de texto
txtCPF.Value = Empty
txtNome.Value = Empty
'Limpar as caixas de combinação
cboEstado.Value = Empty
txtTelefone.Value = Empty
txtData.Value = Empty
txtNascimento.Value = Empty
statusappget.Value = Empty
obsappget.Value = Empty
qtdeappget.Value = Empty
statuspgto.Value = Empty
obspgto.Value = Empty
qtdepgto.Value = Empty
statuscorban.Value = Empty
obscorban.Value = Empty
qtdecorban.Value = Empty
statusavancar.Value = Empty
obsavancar.Value = Empty
qtdeavancar.Value = Empty
StatusInv.Value = Empty
ObsInv.Value = Empty
qtdeinv.Value = Empty
statuscontamax.Value = Empty
obscontamax.Value = Empty
qtdecontamax.Value = Empty
statusadq.Value = Empty
obsadq.Value = Empty
qtdeadq.Value = Empty
maqsol.Value = Empty
maqadic.Value = Empty
trava.Value = Empty
antecautom.Value = Empty
statusinstalacaoadq.Value = Empty
valoradq.Value = Empty
qtdeseguros.Value = Empty
statusseguros.Value = Empty
obsseguros.Value = Empty
vctoauto.Value = Empty
obsauto.Value = Empty
statusconsorcio.Value = Empty
obsconsorcio.Value = Empty
qtdeconsorcio.Value = Empty
statuscappm.Value = Empty
obscappm.Value = Empty
qtdecappm.Value = Empty
statuscappu.Value = Empty
obscappu.Value = Empty
qtdecappu.Value = Empty
statusdac.Value = Empty
obsdac.Value = Empty
qtdedac.Value = Empty
statusdpp.Value = Empty
obsdpp.Value = Empty
qtdedpp.Value = Empty
statusgiro.Value = Empty
obsgiro.Value = Empty
qtdegiro.Value = Empty
statuscdc.Value = Empty
obscdc.Value = Empty
qtdecdc.Value = Empty
statusccg.Value = Empty
obsccg.Value = Empty
qtdeccg.Value = Empty
statuscartao.Value = Empty
obscartao.Value = Empty
qtdecartao.Value = Empty
statuschemp.Value = Empty
obschemp.Value = Empty
qtdechemp.Value = Empty
statusbndes.Value = Empty
obsbndes.Value = Empty
qtdebndes.Value = Empty
statusprogeren.Value = Empty
obsprogeren.Value = Empty
qtdeprogeren.Value = Empty
statusfiname.Value = Empty
obsfiname.Value = Empty
qtdefiname.Value = Empty
statuscambio.Value = Empty
obscambio.Value = Empty
qtdecambio.Value = Empty
statusunificado.Value = Empty
obsunificado.Value = Empty
qtdeunificado.Value = Empty
statusreorg.Value = Empty
obsreorg.Value = Empty
qtdereorg.Value = Empty
statussolucao.Value = Empty
obssolucao.Value = Empty
qtdesolucao.Value = Empty
statusover.Value = Empty
obsover.Value = Empty
qtdeover.Value = Empty
statusate30.Value = Empty
obsate30.Value = Empty
qtdeate30.Value = Empty
status3160.Value = Empty
obs3160.Value = Empty
qtde3160.Value = Empty
status6190.Value = Empty
obs6190.Value = Empty
qtde6190.Value = Empty
statusabertura.Value = Empty
obsabertura.Value = Empty
qtdeabertura.Value = Empty
top10abertura.Value = Empty
dadosmgm.Value = Empty
qtdesocio.Value = Empty
quem.Value = Empty
faturamento.Value = Empty
statusdescontos.Value = Empty
obsdescontos.Value = Empty
qtdedescontos.Value = Empty
statusantecipacao.Value = Empty
obsantecipacao.Value = Empty
qtdeantecipacao.Value = Empty
statusvinculacao.Value = Empty
obsvinculacao.Value = Empty
qtdevinculacao.Value = Empty
statusnps.Value = Empty
obsnps.Value = Empty
qtdenps.Value = Empty
'Limpar os botões CheckBox e OptionButton
Pipefopa.Value = False
ProdFOPA.Value = False
CheckBoxfopa.Value = False
pipeappemp.Value = False
prodappemp.Value = False
ativoappemp.Value = False
boxappemp.Value = False
boxappget.Value = False
pipeappget.Value = False
prodappget.Value = False
ativoappget.Value = False
boxcobranca.Value = False
pipecobranca.Value = False
prodcobranca.Value = False
ativocobranca.Value = False
boxpgto.Value = False
pipepgto.Value = False
prodpgto.Value = False
ativopgto.Value = False
boxcorban.Value = False
pipecorban.Value = False
prodcorban.Value = False
ativocorban.Value = False
boxavancar.Value = False
pipeavancar.Value = False
prodavancar.Value = False
ativoavancar.Value = False
boxinv.Value = False
PipeInv.Value = False
ProdInv.Value = False
ativoinv.Value = False
boxcontamax.Value = False
pipecontamax.Value = False
prodcontamax.Value = False
ativocontamax.Value = False
BoxAdq.Value = False
Pipeadq.Value = False
Prodadq.Value = False
Ativoadq.Value = False
boxseguros.Value = False
pipeseguros.Value = False
prodseguros.Value = False
ativoseguros.Value = False
trienalseguros.Value = False
boxauto.Value = False
boxconsorcio.Value = False
pipeconsorcio.Value = False
prodconsorcio.Value = False
ativoconsorcio.Value = False
boxcappm.Value = False
pipecappm.Value = False
prodcappm.Value = False
ativocappm.Value = False
boxcappu.Value = False
pipecappu.Value = False
prodcappu.Value = False
ativocappu.Value = False
boxdac.Value = False
pipedac.Value = False
proddac.Value = False
ativodac.Value = False
boxdpp.Value = False
pipedpp.Value = False
proddpp.Value = False
ativodpp.Value = False
boxgiro.Value = False
pipegiro.Value = False
prodgiro.Value = False
ativogiro.Value = False
boxcdc.Value = False
pipecdc.Value = False
prodcdc.Value = False
ativocdc.Value = False
boxccg.Value = False
pipeccg.Value = False
prodccg.Value = False
ativoccg.Value = False
boxcartao.Value = False
pipecartao.Value = False
prodcartao.Value = False
ativocartao.Value = False
boxchemp.Value = False
pipechemp.Value = False
prodchemp.Value = False
ativochemp.Value = False
boxbndes.Value = False
pipebndes.Value = False
prodbndes.Value = False
ativobndes.Value = False
boxprogeren.Value = False
pipeprogeren.Value = False
prodprogeren.Value = False
ativoprogeren.Value = False
boxfiname.Value = False
pipefiname.Value = False
prodfiname.Value = False
ativofiname.Value = False
boxcambio.Value = False
pipecambio.Value = False
prodcambio.Value = False
ativocambio.Value = False
boxunificado.Value = False
pipeunificado.Value = False
produnificado.Value = False
ativounificado.Value = False
boxreorg.Value = False
pipereorg.Value = False
prodreorg.Value = False
ativoreorg.Value = False
boxover.Value = False
pipeover.Value = False
prodover.Value = False
ativoover.Value = False
boxate30.Value = False
pipeate30.Value = False
prodate30.Value = False
ativoate30.Value = False
box3160.Value = False
pipe3160.Value = False
prod3160.Value = False
ativo3160.Value = False
box6190.Value = False
pipe6190.Value = False
prod6190.Value = False
ativo6190.Value = False
boxabertura.Value = False
pipeabertura.Value = False
prodabertura.Value = False
ativoabertura.Value = False
boxdeposito.Value = False
boxindicacao.Value = False
boxsocio.Value = False
boxclientecerto.Value = False
boxfve.Value = False
e2.Value = False
digitale2.Value = False
adqe2.Value = False
travae2.Value = False
contamaxe2.Value = False
cobrancae2.Value = False
pagfore2.Value = False
chempe2.Value = False
pacotee2.Value = False
e1.Value = False
digitale1.Value = False
adqe1.Value = False
travae1.Value = False
contamaxe1.Value = False
dace1.Value = False
boxdescontos.Value = False
pipedescontos.Value = False
proddescontos.Value = False
ativodescontos.Value = False
boxantecipacao.Value = False
pipeantecipacao.Value = False
prodantecipacao.Value = False
ativoantecipacao.Value = False
boxvinculacao.Value = False
pipevinculacao.Value = False
prodvinculacao.Value = False
ativovinculacao.Value = False
boxnps.Value = False
pipenps.Value = False
prodnps.Value = False
atendimento.Value = False
fatatendimento.Value = False
ficadpfatendimento.Value = False
ficadpjatendimento.Value = False
grupoatendimento.Value = False
flagatendimento.Value = False
pacoteatendimento.Value = False
contamaxatendimento.Value = False
planoatendimento.Value = False
baixaratendimento.Value = False
marcaratendimento.Value = False
comercialatendimento.Value = False
vincatendimento.Value = False
apiatendimento.Value = False
visita.Value = False
kitvisita.Value = False
travavisita.Value = False
propostavisita.Value = False
dacvisita.Value = False
aberturavisita.Value = False
gerarvisita.Value = False
pocomite.Value = False
seguropo.Value = False
contapo.Value = False
novaspo.Value = False
garantiapo.Value = False
ponderadorpo.Value = False
analisepo.Value = False
abertura.Value = False
poloabertura.Value = False
upldabertura.Value = False
depositoabertura.Value = False
fveabertura.Value = False
'Colocar o foco na primeira caixa de texto
txtData.SetFocus
End Sub
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E