Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Cadastro em vba: botão gravar e editar também

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
renanvba
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Sex Jan 18, 2019 8:27 am

Cadastro em vba: botão gravar e editar também

Mensagem por renanvba »

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder