Ir para conteúdo
Fórum Script Brasil

Ferrassi

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que Ferrassi postou

  1. Boa tarde, Peço a ajuda para tentar desenvolver um código para a restrição de cadastro de clientes. Estou encontrando dificuldades, pois sou inexperiente. 'Sem restrição Cadastrar Do Until shtBDGes.Cells(linha, "C") = "" If shtBDGes.Cells(linha, "C") = shtCadastro.Range("CGes2") Then Exit Sub End If linha = linha + 1 Loop Do Until shtBDGes.Cells(linha, "C") = "" If shtBDGes.Cells(linha, "C") = shtCadastro.Range("CGes2") Then MsgBox "CNS já cadastrado", vbInformation, "Cadastro Negado" Exit Sub End If linha = linha + 1 Loop Do Until shtBDGes.Cells(linha, "A") = "" linha = linha + 1 Loop For a = 0 To 27 shtBDGes.Cells(linha, "A").Offset(0, a) = shtCadastro.Range("CGes" & a).Value Next MsgBox "Dados Cadastrados com Sucesso", vbInformation, "Cadastro de Clientes" End Sub Este código só está verificando a primeira coluna, que é o código, quando ele é alterado cadastra o mesmo dados posteriores. Gostaria também criar abas com informações diferentes. Sem mais, agradeço
×
×
  • Criar Novo...