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: