Excel - codigo para el boton eliminar

   
Vista:

codigo para el boton eliminar

Publicado por jp (1 intervención) el 30/07/2017 23:27:44
hola soy un aficionado a programar estoy realizando un registro de usuarios pero no e podido configurar el botón modificar y eliminar, el de registro es así....

es mi primera programación si me pueden ayudar gracias


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub CommandButton1_Click()
 
 
Sheets("datos").Visible = True
 
 
Dim fila As Long
Dim duplicados As Boolean
 
'Obtener la fila disponible
 
fila = Application.WorksheetFunction.CountA(Range("carnet")) + 1
duplicados = False
 
 
'Validar si se han ingresado datos duplicados
For i = 1 To fila
 
    If Cells(i, 1).Value = UserForm1.TextBox1.Value Then
 
                'Se encontraron datos duplicados
                MsgBox "  Operador YA EXISTE "
                duplicados = True
 
    End If
Next i
 
 Sheets("datos").Select
If Not duplicados Then
    'Insertar datos capturados
    Cells(fila, 1).Value = UserForm1.TextBox1.Value
    Cells(fila, 2).Value = UserForm1.TextBox2.Value
 
    'Limpiar cajas de texto
    UserForm1.TextBox1.Value = ""
    UserForm1.TextBox2.Value = ""
 
 
    'Notificar al usuario
 
 
    MsgBox "  Operador registrado "
 
End If
 Sheets("datos").Visible = False
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

codigo para el boton eliminar

Publicado por Andres Leonardo (753 intervenciones) el 31/07/2017 17:59:00
Hola

Creo que te falta algo de logica aqui

en resumen haces esto

recorres para ver si existe....

si esta duplicado dices que hay duplicados. pero deberias actualizar los datos que consideres en esa validacion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
dim x as Long  ' variable para saber la linea.
For i = 1 To fila
 
    If Cells(i, 1).Value = UserForm1.TextBox1.Value Then
 
                'Se encontraron datos duplicados
                MsgBox "  Operador YA EXISTE "
                duplicados = True
              X = i
 
    End If
Next i
 
If Not duplicados Then
    'Insertar datos capturados  CLARO SI SON NUEVOS
    Cells(fila, 1).Value = UserForm1.TextBox1.Value
    Cells(fila, 2).Value = UserForm1.TextBox2.Value
 
    'Limpiar cajas de texto
    UserForm1.TextBox1.Value = ""
    UserForm1.TextBox2.Value = ""
 
 
    'Notificar al usuario
     MsgBox "  Operador registrado "
 
ELSE ' Esto te falta
'     como ya tienes I  que se grabo en X , no cojo i porque validas toda la fila entonces i al terminar valdra igual que fila, por eso X
    Cells(x, 1).Value = UserForm1.TextBox1.Value
    Cells(x, 2).Value = UserForm1.TextBox2.Value  ' entiendo que irial la contraseña o el nombre o lo que sea ahi estamos actualizando 
 
 
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar