Editar Linha

[bsp.com]

Bom dia

como posso editar uma linha sem incluir uma nova linha com os mesmos dados e depois eu tenho que buscar para apagar a linha que faltou cadastrar uma coisa

vlw

[kuroi]

não entendi.

[bsp.com]

Tipo quando eu cadastro alguns dados, depois eu quero modificalos o excel cria uma nova linha eu queria que ele não criase essa linha nova.

não entendi.

[JoséA]

Penso que deverias mostrar a sua planilha para melhor adequação ao que tens pronto. :wub:

[bsp.com]

eu não consigo por a planilha,

Tipo quando eu vou cadastra.

Nome Idade Sexo

Bruno 23

Bruno 23 M

Leo M

Leo 22 M

Ela esta ficando assim, queria que ela não criase uma nova linha.

Queria que ela cadastrase na mesma linha.

[JoséA]

Para modificar é preciso fazer uma pesquisa, como você faz essa pesquisa? :(

Agora você pode dispor o arquivo aquí: http://www.4shared.com/ ou www.sendspace.com/, dentre outros.

Editado Maio 4, 2011 por JoséA

[bsp.com]

http://www.sendspace.com/file/lfi0o7 :rolleyes: :huh:

Para modificar é preciso fazer uma pesquisa, como você faz essa pesquisa? :(

Agora você pode dispor o arquivo aquí: http://www.4shared.com/ ou www.sendspace.com/, dentre outros.

[JoséA]

Desculpe-me pela demora é que só agora sobrou um tempo.

Usando a mesma lógica da sua pesquisa bastaria inverter a ordem, tipo:

'Verificar se foi digitado um nome na primeira caixa de texto
If txt_pesq_cheque_cheque.Text = "" Then
MsgBox "Digite um Cheque de um cliente"
txt_pesq_cheque_cheque.SetFocus
GoTo Linha4
End If
With Worksheets("CHEQUE").Range("a:a")
Set C = .Find(txt_pesq_cheque_cheque.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not C Is Nothing Then
C.Activate
C.Value = txt_pesq_cheque_cheque.Value
C.Offset(0, 1).Value = txt_pesq_cheque_valor.Value
C.Offset(0, 2).Value = txt_pesq_cheque_matricula.Value
C.Offset(0, 3).Value = txt_pesq_cheque_emissao.Value
C.Offset(0, 4).Value = txt_pesq_cheque_compensacao.Value
C.Offset(0, 7).Value = txt_pesq_cheque_descricao.Value
C.Offset(0, 6).Value = cbo_pesq_cheque_oficio.Value
C.Offset(0, 5).Value = txt_pesq_cheque_situacao.Value
MsgBox "Dado alterado com sucesso"
Else

MsgBox "Cheque não encontrado!"
End If

End With
Linha4:

Em tempo...

Utilizei como exemplo o seu frm_pesquisa_cheque.

Editado Maio 7, 2011 por JoséA

[bsp.com]

cara show de bola..... obrigadao mesmo cara...

Desculpe-me pela demora é que só agora sobrou um tempo.

Usando a mesma lógica da sua pesquisa bastaria inverter a ordem, tipo:

'Verificar se foi digitado um nome na primeira caixa de texto
If txt_pesq_cheque_cheque.Text = "" Then
MsgBox "Digite um Cheque de um cliente"
txt_pesq_cheque_cheque.SetFocus
GoTo Linha4
End If
With Worksheets("CHEQUE").Range("a:a")
Set C = .Find(txt_pesq_cheque_cheque.Value, LookIn:=xlValues, LookAt:=xlPart)
If Not C Is Nothing Then
C.Activate
C.Value = txt_pesq_cheque_cheque.Value
C.Offset(0, 1).Value = txt_pesq_cheque_valor.Value
C.Offset(0, 2).Value = txt_pesq_cheque_matricula.Value
C.Offset(0, 3).Value = txt_pesq_cheque_emissao.Value
C.Offset(0, 4).Value = txt_pesq_cheque_compensacao.Value
C.Offset(0, 7).Value = txt_pesq_cheque_descricao.Value
C.Offset(0, 6).Value = cbo_pesq_cheque_oficio.Value
C.Offset(0, 5).Value = txt_pesq_cheque_situacao.Value
MsgBox "Dado alterado com sucesso"
Else

MsgBox "Cheque não encontrado!"
End If

End With
Linha4:

Em tempo...

Utilizei como exemplo o seu frm_pesquisa_cheque.