Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » codigo para el boton eliminar

Excel - codigo para el boton eliminar

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

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
Val: 3.136
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

codigo para el boton eliminar

Publicado por Andres Leonardo (1585 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