Salvar no banco dados símbolo/número /Data

[Jamilson]

Boa noite a todos!
Estou criando uma planilha para controle de certificados de calibração de equipamentos com banco dados na mesma planilha, porem ao registrar os dados uns dos campos"colunas" no banco dados esta desconfigurando “eles contem número / símbolo de % e na outra data”, já procurei Internet e não encontro informação do erro, mais as outras colunas estão normais.
esta planilha terá vários formulários diferentes para lançar em um só bando dados.
obrigado

REM ***** BASIC *****
Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub lsAdiciona2()
Dim iTotalLinhas As Integer

Worksheets("Banco").Activate
Range("Banco!$A$1").Select

iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(iTotalLinhas, 1).Value = Range("Banco!$CY$1").Value + 1
Cells(iTotalLinhas, 2).Value = UCase(Range("Formulario_2!C5").Value)  'Código
Cells(iTotalLinhas, 3).Value = Range("Formulario_2!L9").Value         'Nº Novo Cert:
Cells(iTotalLinhas, 4).Value = UCase(Range("Formulario_2!C15").Value) 'Padrão SI
Cells(iTotalLinhas, 5).Value = UCase(Range("Formulario_2!C16").Value) 'Padrão SI
Cells(iTotalLinhas, 6).Value = Range("Formulario_2!C17").Value        'Padrão SI
Cells(iTotalLinhas, 7).Value = UCase(Range("Formulario_2!C18").Value) 'Padrão SI
Cells(iTotalLinhas, 8).Value = UCase(Range("Formulario_2!C19").Value) 'Padrão SI
Cells(iTotalLinhas, 9).Value = UCase(Range("Formulario_2!C20").Value) 'Padrão SI
Cells(iTotalLinhas, 10).Value = UCase(Range("Formulario_2!C21").Value) 'Padrão SI
Cells(iTotalLinhas, 11).Value = UCase(Range("Formulario_2!C22").Value) 'Padrão SI
Cells(iTotalLinhas, 12).Value = UCase(Range("Formulario_2!C23").Value) 'Padrão SI
Cells(iTotalLinhas, 13).Value = UCase(Range("Formulario_2!C24").Value) 'Padrão SI
Cells(iTotalLinhas, 14).Value = UCase(Range("Formulario_2!C25").Value) 'Padrão SI
Cells(iTotalLinhas, 15).Value = UCase(Range("Formulario_2!C26").Value) 'Padrão SI
Cells(iTotalLinhas, 16).Value = UCase(Range("Formulario_2!C27").Value) 'Padrão SI
Cells(iTotalLinhas, 17).Value = UCase(Range("Formulario_2!C28").Value) 'Padrão SI
Cells(iTotalLinhas, 18).Value = UCase(Range("Formulario_2!C29").Value) 'Padrão SI
Cells(iTotalLinhas, 19).Value = UCase(Range("Formulario_2!D15").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 20).Value = UCase(Range("Formulario_2!D16").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 21).Value = UCase(Range("Formulario_2!D17").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 22).Value = UCase(Range("Formulario_2!D18").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 23).Value = UCase(Range("Formulario_2!D19").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 24).Value = UCase(Range("Formulario_2!D20").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 25).Value = UCase(Range("Formulario_2!D21").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 26).Value = UCase(Range("Formulario_2!D22").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 27).Value = UCase(Range("Formulario_2!D23").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 28).Value = UCase(Range("Formulario_2!D24").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 29).Value = UCase(Range("Formulario_2!D25").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 30).Value = UCase(Range("Formulario_2!D26").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 31).Value = UCase(Range("Formulario_2!D27").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 32).Value = UCase(Range("Formulario_2!D28").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 33).Value = UCase(Range("Formulario_2!D29").Value) 'Instrumento a Calibrar
Cells(iTotalLinhas, 34).Value = UCase(Range("Formulario_2!E15").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 35).Value = UCase(Range("Formulario_2!E16").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 36).Value = UCase(Range("Formulario_2!E17").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 37).Value = UCase(Range("Formulario_2!E18").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 38).Value = UCase(Range("Formulario_2!E19").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 39).Value = UCase(Range("Formulario_2!E20").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 40).Value = UCase(Range("Formulario_2!E21").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 41).Value = UCase(Range("Formulario_2!E22").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 42).Value = UCase(Range("Formulario_2!E23").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 43).Value = UCase(Range("Formulario_2!E24").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 44).Value = UCase(Range("Formulario_2!E25").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 45).Value = UCase(Range("Formulario_2!E26").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 46).Value = UCase(Range("Formulario_2!E27").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 47).Value = UCase(Range("Formulario_2!E28").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 48).Value = UCase(Range("Formulario_2!E29").Value) '1º Ciclo Subida
Cells(iTotalLinhas, 49).Value = UCase(Range("Formulario_2!F15").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 50).Value = UCase(Range("Formulario_2!F16").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 51).Value = UCase(Range("Formulario_2!F17").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 52).Value = UCase(Range("Formulario_2!F18").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 53).Value = UCase(Range("Formulario_2!F19").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 54).Value = UCase(Range("Formulario_2!F20").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 55).Value = UCase(Range("Formulario_2!F21").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 56).Value = UCase(Range("Formulario_2!F22").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 57).Value = UCase(Range("Formulario_2!F23").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 58).Value = UCase(Range("Formulario_2!F24").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 59).Value = UCase(Range("Formulario_2!F25").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 60).Value = UCase(Range("Formulario_2!F26").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 61).Value = UCase(Range("Formulario_2!F27").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 62).Value = UCase(Range("Formulario_2!F28").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 63).Value = UCase(Range("Formulario_2!F29").Value) '1º Ciclo Desida
Cells(iTotalLinhas, 64).Value = UCase(Range("Formulario_2!G15").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 65).Value = UCase(Range("Formulario_2!G16").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 66).Value = UCase(Range("Formulario_2!G17").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 67).Value = UCase(Range("Formulario_2!G18").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 68).Value = UCase(Range("Formulario_2!G19").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 69).Value = UCase(Range("Formulario_2!G20").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 70).Value = UCase(Range("Formulario_2!G21").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 71).Value = UCase(Range("Formulario_2!G22").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 72).Value = UCase(Range("Formulario_2!G23").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 73).Value = UCase(Range("Formulario_2!G24").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 74).Value = UCase(Range("Formulario_2!G25").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 75).Value = UCase(Range("Formulario_2!G26").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 76).Value = UCase(Range("Formulario_2!G27").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 77).Value = UCase(Range("Formulario_2!G28").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 78).Value = UCase(Range("Formulario_2!G29").Value) '2º Ciclo Subida
Cells(iTotalLinhas, 79).Value = UCase(Range("Formulario_2!H15").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 80).Value = UCase(Range("Formulario_2!H16").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 81).Value = UCase(Range("Formulario_2!H17").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 82).Value = UCase(Range("Formulario_2!H18").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 83).Value = UCase(Range("Formulario_2!H19").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 84).Value = UCase(Range("Formulario_2!H20").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 85).Value = UCase(Range("Formulario_2!H21").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 86).Value = UCase(Range("Formulario_2!H22").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 87).Value = UCase(Range("Formulario_2!H23").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 88).Value = UCase(Range("Formulario_2!H24").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 99).Value = UCase(Range("Formulario_2!H25").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 90).Value = UCase(Range("Formulario_2!H26").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 91).Value = UCase(Range("Formulario_2!H27").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 92).Value = UCase(Range("Formulario_2!H28").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 93).Value = UCase(Range("Formulario_2!H29").Value) '2º Ciclo Desida
Cells(iTotalLinhas, 94).Value = UCase(Range("Formulario_2!J15").Value) 'Erro Fiducial
Cells(iTotalLinhas, 95).Value = UCase(Range("Formulario_2!K15").Value) 'Incerteza expandida
     
Cells(iTotalLinhas, 96).Value = UCase(Range("Formulario_2!N15").Value) 'Ciclo
Cells(iTotalLinhas, 97).Value = UCase(Range("Formulario_2!O15").Value) 'Semana
Cells(iTotalLinhas, 98).Value = UCase(Range("Formulario_2!B15").Value) 'Data:
Cells(iTotalLinhas, 99).Value = UCase(Range("Formulario_2!P15").Value) 'Próx. Data:
      


Worksheets("Formulario_2").Activate

Range("Formulario_2!C5").Value = "" 'setor
Range("Formulario_2!L9").Value = "" 'Nº Novo Cert:
Range("Formulario_2!C15").Value = "" 'Padrão SI
Range("Formulario_2!C16").Value = "" 'Padrão SI
Range("Formulario_2!C17").Value = "" 'Padrão SI
Range("Formulario_2!C18").Value = "" 'Padrão SI
Range("Formulario_2!C19").Value = "" 'Padrão SI
Range("Formulario_2!C20").Value = "" 'Padrão SI
Range("Formulario_2!C21").Value = "" 'Padrão SI
Range("Formulario_2!C22").Value = "" 'Padrão SI
Range("Formulario_2!C23").Value = "" 'Padrão SI
Range("Formulario_2!C24").Value = "" 'Padrão SI
Range("Formulario_2!C25").Value = "" 'Padrão SI
Range("Formulario_2!C26").Value = "" 'Padrão SI
Range("Formulario_2!C27").Value = "" 'Padrão SI
Range("Formulario_2!C28").Value = "" 'Padrão SI
Range("Formulario_2!C29").Value = "" 'Padrão SI
Range("Formulario_2!D15").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D16").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D17").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D18").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D19").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D20").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D21").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D22").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D23").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D24").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D25").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D26").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D27").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D28").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!D29").Value = "" 'Instrumento a Calibrar
Range("Formulario_2!E15").Value = "" '1º Ciclo Subida
Range("Formulario_2!E16").Value = "" '1º Ciclo Subida
Range("Formulario_2!E17").Value = "" '1º Ciclo Subida
Range("Formulario_2!E18").Value = "" '1º Ciclo Subida
Range("Formulario_2!E19").Value = "" '1º Ciclo Subida
Range("Formulario_2!E20").Value = "" '1º Ciclo Subida
Range("Formulario_2!E21").Value = "" '1º Ciclo Subida
Range("Formulario_2!E22").Value = "" '1º Ciclo Subida
Range("Formulario_2!E23").Value = "" '1º Ciclo Subida
Range("Formulario_2!E24").Value = "" '1º Ciclo Subida
Range("Formulario_2!E25").Value = "" '1º Ciclo Subida
Range("Formulario_2!E26").Value = "" '1º Ciclo Subida
Range("Formulario_2!E27").Value = "" '1º Ciclo Subida
Range("Formulario_2!E28").Value = "" '1º Ciclo Subida
Range("Formulario_2!E29").Value = "" '1º Ciclo Subida
Range("Formulario_2!F15").Value = "" '1º Ciclo Desida
Range("Formulario_2!F16").Value = "" '1º Ciclo Desida
Range("Formulario_2!F17").Value = "" '1º Ciclo Desida
Range("Formulario_2!F18").Value = "" '1º Ciclo Desida
Range("Formulario_2!F19").Value = "" '1º Ciclo Desida
Range("Formulario_2!F20").Value = "" '1º Ciclo Desida
Range("Formulario_2!F21").Value = "" '1º Ciclo Desida
Range("Formulario_2!F22").Value = "" '1º Ciclo Desida
Range("Formulario_2!F23").Value = "" '1º Ciclo Desida
Range("Formulario_2!F24").Value = "" '1º Ciclo Desida
Range("Formulario_2!F25").Value = "" '1º Ciclo Desida
Range("Formulario_2!F26").Value = "" '1º Ciclo Desida
Range("Formulario_2!F27").Value = "" '1º Ciclo Desida
Range("Formulario_2!F28").Value = "" '1º Ciclo Desida
Range("Formulario_2!F29").Value = "" '1º Ciclo Desida
Range("Formulario_2!G15").Value = "" '2º Ciclo Subida
Range("Formulario_2!G16").Value = "" '2º Ciclo Subida
Range("Formulario_2!G17").Value = "" '2º Ciclo Subida
Range("Formulario_2!G18").Value = "" '2º Ciclo Subida
Range("Formulario_2!G19").Value = "" '2º Ciclo Subida
Range("Formulario_2!G20").Value = "" '2º Ciclo Subida
Range("Formulario_2!G21").Value = "" '2º Ciclo Subida
Range("Formulario_2!G22").Value = "" '2º Ciclo Subida
Range("Formulario_2!G23").Value = "" '2º Ciclo Subida
Range("Formulario_2!G24").Value = "" '2º Ciclo Subida
Range("Formulario_2!G25").Value = "" '2º Ciclo Subida
Range("Formulario_2!G26").Value = "" '2º Ciclo Subida
Range("Formulario_2!G27").Value = "" '2º Ciclo Subida
Range("Formulario_2!G28").Value = "" '2º Ciclo Subida
Range("Formulario_2!G29").Value = "" '2º Ciclo Subida
 Range("Formulario_2!H15").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H16").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H17").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H18").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H19").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H20").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H21").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H22").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H23").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H24").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H25").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H26").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H27").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H28").Value = "" '2º Ciclo Desida
 Range("Formulario_2!H29").Value = "" '2º Ciclo Desida
 Range("Formulario_2!J15").Value = "" 'Erro Fiducial
 Range("Formulario_2!K15").Value = "" 'Incerteza expandida
 Range("Formulario_2!N15").Value = "" 'Ciclo
 Range("Formulario_2!O15").Value = "" 'Semana
 Range("Formulario_2!B15").Value = "" 'Data:

End SubCRIANDO CONTROLE CERTIFICADO -2019.ods

[Jamilson]

queira me desculpa pois estou estudando ainda sobre o calc, mais ai esta o código que estou criando.
cada formulário terá um código porem o banco dados será o mesmo.
obrigado

[Conras]

Olá @Jamilson seja bem vindo. Envie a planilha para consultoria.conradobueno@gmail.com . Atuo desde 2003 com calibração e ensaio, e gerencio calibrações de padrão de 03 laboratório como consultor. Se puder me enviar a planilha arrumo ela pra você e deixo um código mais limpo para lançar os resultados no seu banco.

[schiavinatto]

@Jamilson, aconselho a usar em formato original do Calc (ods).

Poste um exemplo de planilha.

[Jamilson]

Conrado mandei para seu mail, ok.
Gilberto não estou conseguindo anexar a planilha.

[schiavinatto]

@Jamilson, posso ver o arquivo… enviar para: gilberto@schiavinatto.com

[Jamilson]

Gilberto era minha maquina que esta travando, seque anexo planilha.

[Levi]

Selecione as colunas pretendidas. Clique com o botão direito do mouse ou escolha no menu Formatar–>Formatar células. Na aba Números, escolha Porcentagem (formato que você quiser está do lado direito) e clique em OK.

Para campo data, faça algo semelhante, apenas escolhendo a opção Data. A imagem acima mostra todos os campos de formatação possíveis. Clique com o botão direito do mouse sobre ela e escolha “Ver imagem”. Bem, não sei de onde estão vindo os dados da planilha em questão. Verifiquei aqui: para um dos campos, a formatação estava como texto e o outro, o de 1,17%, embora formatado para porcentagem, recebe automaticamente o apóstrofo em seu início, transformando-o em texto. Precisaria que o dado seja inserido na célula e depois seja retirado o apóstrofo.

[Jamilson]

Oi Levi, este procedimento já realizei, o problema esta na hora de gravar os dados com código.

[Conras]

@Jamilson , Recebi seus arquivos, e até o fds próximo faço as alterações. Mas já vou dando umas dicas:

Primeiramente crie 02 variáveis (pode ser Data e Prox) como:

Dim Data, Prox as Date

Faça que essas 02 variáveis receba o valor desejado;

Data = Range(“Formulario!B13”).Value

Prox = Range(“Formulario!P13”).Value

Configure a coluna inteira no formato necessário: porcentagem, data, decimal etc (conforme orientado pelo @Levi);

No momento da transferência arrume o código:

Cells(iTotalLinhas, 81).Value = UCase(Range(“Formulario!B13”).Value) 'Data

para

Cells(iTotalLinhas, 81).Value = CDate(Data) 'Data:

Exemplo de conversão de dados.

https://docs.microsoft.com/pt-br/office/vba/language/concepts/getting-started/type-conversion-functions

Serve também para LibreOffice.

[Jamilson]

Obrigado
@Conras, estarei estudando estes variáveis e aplica.
Muito obrigado

[schiavinatto]

Ola @Jamilson, segue uma alternativa a macro e o modo de salvamento, ainda falta uns detalhes, mas já da para ver seu funcionamento.

As macros que o botão REGISTRAR aciona estão no Module3

Arquivo teste. seguiu por e-mail.

As linha em Dados de 1 a 4 podem ser ocultadas.

[Jamilson]

Obrigado
Gilberto o código esta muito bom.
agora e só estuda ele mais.
obrigado mais uma vez