[anders0n]

Boa noite Jorge,

Seguem em anexo planilha modelo.

Consegui ajustar minha planilha da forma que eu quero. Porém estou com um problema. Quando abro o formulario e clico no banco de dados dos clientes inseridos, onde eu consigo fazer alterações. Quando eu atualizo, ele simplesmente cria valores por cima das fórmulas que estão nas colunas B, O, P e Q. Há alguma maneira delas ficarem sendo visualisadas no formulario, porém quando salvar elas não serem alteradas? Pq eu vou precisar da contagem de dias e é importante que quando eu abra o cliente, me mostre a contagem. Atualmente por conta desse erro em transformar em valores, acabo não conseguindo.

 

E outra dúvida é apenas em um botão ou apenas um alerta quando eu digitasse no formulario um CHASSI repetido.

Tentei adaptar alguns na net mas não consegui.

 

Desde já agradeço!

Attachments:

You must be logged in to view attached files.

[jorgerod]

Anderson,

Vê o que alterei nos códigos correspondentes aos botões “Atualizar” e “Cadastrar”, relativamente aos textboxes opt_cliente (julgo que será a coluna B), pedido (coluna P) e negociação (coluna Q).

Se for mais ou menos isso que pretendes, tenta adaptar, ok?

Fica bem e diz qq coisa.

Private Sub CommandButton3_Click()
‘ Botão Atualizar
Dim id As Integer

id = txt_id
linha = 2

Sheets(“cadastro”).Select

Do Until Sheets(“cadastro”).Cells(linha, 1) = “” ‘vai executar o laço até encontrar uma célula vazia
‘condicção para localizar o registro
If Sheets(“cadastro”).Cells(linha, 1) = id Then ‘se encontrar o valor registro na célula pesquisada
Sheets(“cadastro”).Cells(linha, 1).Select ‘será selecionada a célula

‘Sheets(“cadastro”).Cells(linha, 2) = opt_cliente
Sheets(“cadastro”).Cells(linha, 3) = Tipo

Sheets(“cadastro”).Cells(linha, 4) = cmb_uf
Sheets(“cadastro”).Cells(linha, 5) = opt_juridica

Sheets(“cadastro”).Cells(linha, 6) = cmb_cidade
Sheets(“cadastro”).Cells(linha, 7) = txt_fantasia
Sheets(“cadastro”).Cells(linha, 8) = txt_endereço
Sheets(“cadastro”).Cells(linha, 9) = txt_bairro

Sheets(“cadastro”).Cells(linha, 10) = prev_faturamento
Sheets(“cadastro”).Cells(linha, 11) = data_faturamento
Sheets(“cadastro”).Cells(linha, 12) = prev_chegada

Sheets(“cadastro”).Cells(linha, 13) = previ_entrega
Sheets(“cadastro”).Cells(linha, 14) = status_faturamento
Sheets(“cadastro”).Cells(linha, 15) = dias_estoque

‘Sheets(“cadastro”).Cells(linha, 16) = pedido ‘ retirei a atualização da célula da coluna P
‘Sheets(“cadastro”).Cells(linha, 17) = negociação ‘ retirei a atualização da célula da coluna Q
Sheets(“cadastro”).Cells(linha, 18) = conferência

Sheets(“cadastro”).Cells(linha, 19) = situação
Sheets(“cadastro”).Cells(linha, 20) = observação

MsgBox (“Cadastro alterado com sucesso!”)

Unload Me
form_cadastro.Show

Exit Sub

End If

linha = linha + 1
Loop

End Sub
__________________________________
Private Sub CommandButton1_Click()
‘ Botão Cadastrar
Sheets(“cadastro”).Select
Range(“A1048576”).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select

Dim data_cad As Date

id = txt_id

ActiveCell = id
ActiveCell.Offset(0, 1).Select
ActiveCell = opt_cliente
ActiveCell.Offset(0, 1).Select
ActiveCell = Tipo
ActiveCell.Offset(0, 1).Select
ActiveCell = cmb_uf
ActiveCell.Offset(0, 1).Select
ActiveCell = opt_juridica
ActiveCell.Offset(0, 1).Select
ActiveCell = cmb_cidade
ActiveCell.Offset(0, 1).Select
ActiveCell = txt_fantasia
ActiveCell.Offset(0, 1).Select
ActiveCell = txt_endereço
ActiveCell.Offset(0, 1).Select
ActiveCell = txt_bairro
ActiveCell.Offset(0, 1).Select
ActiveCell = prev_faturamento
ActiveCell.Offset(0, 1).Select
ActiveCell = data_faturamento
ActiveCell.Offset(0, 1).Select
ActiveCell = prev_chegada
ActiveCell.Offset(0, 1).Select
ActiveCell = previ_entrega
ActiveCell.Offset(0, 1).Select
ActiveCell = status_faturamento
ActiveCell.Offset(0, 1).Select
ActiveCell = dias_estoque
‘ActiveCell.Offset(0, 1).Select
‘ActiveCell = pedido
‘ActiveCell.Offset(0, 1).Select
‘ActiveCell = negociação
ActiveCell.Offset(0, 3).Select ‘ aqui, somei duas colunas, ou seja, deixa de fora as colunas P e Q porque têm formulas
ActiveCell = conferência
ActiveCell.Offset(0, 1).Select
ActiveCell = situação
ActiveCell.Offset(0, 1).Select
ActiveCell = observação

Unload Me
form_cadastro.Show

End Sub

[Anónimo]

Ficheiro em anexo…

Attachments:

You must be logged in to view attached files.

[jorgerod]

envio de ficheiro

Attachments:

You must be logged in to view attached files.

[jorgerod]

explorer test

Attachments:

You must be logged in to view attached files.

[Autor]

Artigos