Regras do forum:

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando, limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos .zip - .rar - .ice visto a gratuidade e não geração de recursos para bancar o site.

Assim sendo, seu anexo foi compactado.

Por favor leia as regras (link na minha assinatura), e passe a compactar todos os seus anexos.

Obrigado,

Fernando

Veja se assim atende..

bom dia, tenho a mesma dúvida tentei adaptar esse código na minha planilha e não tive sucesso ,poderiam me ajudar

tenho uma planilha com 3 form.
um para cadastro
um para visualizar
e o terceiro ele faz uma busca pelo código digitado até aqui está tudo certo ,
mais ai aparece mais 3 campos que preciso adicionar para alterar os dados pesquisei vários e não conseguir adaptar .

desde já agradeço

Boa-noite felmback,

Segue planilha com alterações no botão "Salvar Alterações".

Att

Francisco

Boa tarde

preciso alterar os dados gravados na ordem de serviço
criei um botão para alterar no form ordem_Serviço mas não tive exito ..

por favor ajude-me quem poder amigos...
o codigo abaixo é para editar mas não deu certo

Private Sub cmd_editar_Click()
Dim linha As Long
Dim I As Integer
Dim Item As ListItem
Dim ws As Worksheet
On Error Resume Next

Plan1.Select

If ListView1.ListItems.Count = 0 Then
MsgBox "Adicione Produtos na Lista", 0 + vbInformation, "Lista Vazia"
Exit Sub
End If

'Campos Obrigatórios
If Txt_Id_Cliente = "" Then
MsgBox "Campo Id Cliente é Obrigatório!", 0 + vbInformation, "Campo Obrigatório"
Txt_Id_Cliente.SetFocus
Exit Sub
End If

'Campos Obrigatórios
If Cbo_Tecnico = "" Then
MsgBox "Campo Técnico é Obrigatório!", 0 + vbInformation, "Campo Obrigatório"
Cbo_Tecnico.SetFocus
Exit Sub
End If

'Campos Obrigatórios
If Cbo_Situacao = "" Then
MsgBox "Verifique a Situação O.S !", 0 + vbInformation, "Campo Obrigatório"
Cbo_Situacao.SetFocus
Exit Sub
End If

Set ws = ThisWorkbook.Worksheets("Banco_Dados_Os")
linha = ThisWorkbook.Sheets("Banco_Dados_Os").Cells(Rows.Count, 1).End(xlUp).Row + 1
With ws

For I = 1 To ListView1.ListItems.Count

Sheets("Banco_Dados_Os").Cells(linha, 1) = Ordem_Serviço.Txt_id_Os.Text
Sheets("Banco_Dados_Os").Cells(linha, 7) = Ordem_Serviço.Txt_Id_Cliente.Text
Sheets("Banco_Dados_Os").Cells(linha, 8) = Ordem_Serviço.Cbo_Cliente.Text
Sheets("Banco_Dados_Os").Cells(linha, 9) = Ordem_Serviço.Txt_cpf_cnpj.Text
Sheets("Banco_Dados_Os").Cells(linha, 10) = Ordem_Serviço.Txt_telefone.Text
Sheets("Banco_Dados_Os").Cells(linha, 11) = Ordem_Serviço.Txt_Contato.Text
Sheets("Banco_Dados_Os").Cells(linha, 12) = Ordem_Serviço.Txt_Id_Veiculo.Text
Sheets("Banco_Dados_Os").Cells(linha, 13) = Ordem_Serviço.Txt_Placa_Veiculo.Text
Sheets("Banco_Dados_Os").Cells(linha, 14) = Ordem_Serviço.Txt_Renavan.Text
Sheets("Banco_Dados_Os").Cells(linha, 15) = Ordem_Serviço.Txt_Chassi.Text
Sheets("Banco_Dados_Os").Cells(linha, 16) = Ordem_Serviço.Txt_Frota.Text
Sheets("Banco_Dados_Os").Cells(linha, 17) = Ordem_Serviço.Txt_Pneu.Text
Sheets("Banco_Dados_Os").Cells(linha, 18) = Ordem_Serviço.Txt_Medida_Pneu.Text
Sheets("Banco_Dados_Os").Cells(linha, 19) = Ordem_Serviço.Txt_Tipo_Veiculo.Text
Sheets("Banco_Dados_Os").Cells(linha, 20) = Ordem_Serviço.Txt_Marca.Text
Sheets("Banco_Dados_Os").Cells(linha, 21) = Ordem_Serviço.Txt_Modelo_Veiculo.Text
Sheets("Banco_Dados_Os").Cells(linha, 22) = Ordem_Serviço.Txt_Ano.Text
Sheets("Banco_Dados_Os").Cells(linha, 23) = Ordem_Serviço.Txt_Id_Tacografo.Text
Sheets("Banco_Dados_Os").Cells(linha, 24) = Ordem_Serviço.Cbo_Marca_tco.Text
Sheets("Banco_Dados_Os").Cells(linha, 25) = Ordem_Serviço.Txt_Modelo_Tco.Text
Sheets("Banco_Dados_Os").Cells(linha, 26) = Ordem_Serviço.Txt_Nº_Serie_Tco.Text
Sheets("Banco_Dados_Os").Cells(linha, 27) = Ordem_Serviço.Txt_Km_Tco.Text
Sheets("Banco_Dados_Os").Cells(linha, 28) = Ordem_Serviço.Txt_K_Anterior.Text
Sheets("Banco_Dados_Os").Cells(linha, 29) = Ordem_Serviço.Txt_Fator_K.Text
Sheets("Banco_Dados_Os").Cells(linha, 30) = Ordem_Serviço.Txt_Fator_W.Text
Sheets("Banco_Dados_Os").Cells(linha, 31) = Ordem_Serviço.Txt_Lacre1.Text
Sheets("Banco_Dados_Os").Cells(linha, 32) = Ordem_Serviço.Txt_Lacre2.Text
Sheets("Banco_Dados_Os").Cells(linha, 33) = Ordem_Serviço.Txt_Lacre3.Text
Sheets("Banco_Dados_Os").Cells(linha, 34) = Ordem_Serviço.Txt_Selo1.Text
Sheets("Banco_Dados_Os").Cells(linha, 35) = Ordem_Serviço.Txt_Selo2.Text
Sheets("Banco_Dados_Os").Cells(linha, 36) = Ordem_Serviço.Txt_Selo3.Text
Sheets("Banco_Dados_Os").Cells(linha, 37) = Ordem_Serviço.Txt_Selo4.Text
Sheets("Banco_Dados_Os").Cells(linha, 38) = Ordem_Serviço.Txt_Selo5.Text
Sheets("Banco_Dados_Os").Cells(linha, 39) = Ordem_Serviço.Txt_Selo6.Text
Sheets("Banco_Dados_Os").Cells(linha, 40) = CDate(Ordem_Serviço.Lbl_Data_Atual.Caption)
Sheets("Banco_Dados_Os").Cells(linha, 41) = Ordem_Serviço.Cbo_Tecnico.Text
Sheets("Banco_Dados_Os").Cells(linha, 42) = Ordem_Serviço.Cbo_Situacao.Text

Cells(linha, 2) = ListView1.ListItems(I).Text
Cells(linha, 3) = ListView1.ListItems(I).SubItems(1)
Cells(linha, 4) = ListView1.ListItems(I).SubItems(2)
Cells(linha, 5) = CDbl(ListView1.ListItems(I).SubItems(3))
Cells(linha, 6) = CDbl(ListView1.ListItems(I).SubItems(4))

linha = ThisWorkbook.Sheets("Banco_Dados_Os").Cells(Rows.Count, 1).End(xlUp).Row + 1

Next

MsgBox "Lançado com Sucesso", vbInformation, "Ação Bem Sucedida!"

TextBox1.Text = Empty
TextBox2.Text = Empty
TextBox3.Text = Empty
TextBox4 = Empty
TextBox5 = Empty
Txt_Id_Cliente = Empty
Cbo_Cliente = Empty
Txt_cpf_cnpj = Empty
Txt_telefone = Empty
Txt_Contato = Empty
Txt_Id_Veiculo = Empty
Txt_Placa_Veiculo = Empty
Txt_Renavan = Empty
Txt_Chassi = Empty
Txt_Frota = Empty
Txt_Pneu = Empty
Txt_Medida_Pneu = Empty
Txt_Tipo_Veiculo = Empty
Txt_Marca = Empty
Txt_Modelo_Veiculo = Empty
Txt_Ano = Empty
Txt_Id_Tacografo = Empty
Cbo_Marca_tco = Empty
Txt_Modelo_Tco = Empty
Txt_Nº_Serie_Tco = Empty
Txt_Km_Tco = Empty
Txt_K_Anterior = Empty
Txt_Fator_K = Empty
Txt_Fator_W = Empty
Txt_Lacre1 = Empty
Txt_Lacre2 = Empty
Txt_Lacre3 = Empty
Txt_Selo1 = Empty
Txt_Selo2 = Empty
Txt_Selo3 = Empty
Txt_Selo4 = Empty
Txt_Selo5 = Empty
Txt_Selo6 = Empty
Cbo_Tecnico = Empty
Cbo_Situacao = Empty
ListView1.ListItems.Clear
lbl_soma_dados.Caption = ListView1.ListItems.Count & " ITENS"
lbl_valor_total.Caption = "0,00"
código_altomatico_Id_Os
Me.MultiPage1.Value = 0
Call Bloquear_Controles_Os
End With
End Sub