CADASTRO EM VBA: BOTÃO UNICO PARA GRAVAR E EDITAR


#1

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

etc


#2

Fala Renan, cara para fazer isso você precisa de indicar quando você quer fazer
um tipo de edição ou inserção por exemplo:

Se existe um único botão para fazer duas ações, logicamente você vai precisar definir quando
necessita fazer umas das opções. Ou então você poderia fazer um loop nos registros para
verificar se ele já existe, mas acho isso uma furada…

O mais simples mesmo seria definir da forma que falei… Eu costumo usar o access e vba
para trabalhar com dados… Então eu crio uma variável do tipo ACAO… Quanto eu retorno
esse registro para o form, essa variável fica como ACAO = “editar”

Na hora de cadastrar faço um if para verificar, simples!