Pergunte aqui
1

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

perguntadas 2019-05-09 03:27:06 +0200

imagem do gravatar de Jamilson

updated 2019-05-14 04:04:02 +0200

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 Descrição da imagem 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 ...
(mais)
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

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

imagem do gravatar de JamilsonJamilson ( 2019-05-09 03:34:25 +0200 )editar

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.

imagem do gravatar de ConradoConrado ( 2019-05-09 12:40:51 +0200 )editar

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

Poste um exemplo de planilha.

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-05-09 12:55:33 +0200 )editar

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

imagem do gravatar de JamilsonJamilson ( 2019-05-13 23:55:23 +0200 )editar

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

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2019-05-14 00:12:51 +0200 )editar

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

imagem do gravatar de JamilsonJamilson ( 2019-05-14 01:03:08 +0200 )editar

3 Respostas

1

respondidas 2019-05-14 20:49:00 +0200

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.

editar assinalar como ofensivo Excluir Link mais

Comentários

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

imagem do gravatar de JamilsonJamilson ( 2019-05-17 01:46:17 +0200 )editar
1

respondidas 2019-05-14 16:50:44 +0200

imagem do gravatar de Conrado

updated 2019-05-14 16:51:54 +0200

@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/offi...

Serve também para LibreOffice.

editar assinalar como ofensivo Excluir Link mais

Comentários

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

imagem do gravatar de JamilsonJamilson ( 2019-05-17 01:54:55 +0200 )editar
1

respondidas 2019-05-09 04:55:15 +0200

imagem do gravatar de Levi

updated 2019-05-14 17:46:11 +0200

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. Descrição da imagem

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. Descrição da imagem Descrição da imagem

editar assinalar como ofensivo Excluir Link mais

Comentários

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

imagem do gravatar de JamilsonJamilson ( 2019-05-13 23:56:56 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2019-05-09 03:27:06 +0200

Lidas: 45 vezes

Última atualização: May 14