como evitar archivos duplicados al loguearse en vba excel
Publicado por Alberto (9 intervenciones) el 25/03/2023 00:16:19
Buenas noches, gracias por leerme. Tengo el siguiente codigo ( funcionando ) pero quiero agregarle que en el momento de dar "click" en aceptar me revise si el usuario ya se habia grabado y en ese caso genere un msgbox avisando que no es posible y cancelando la acción.
Estaría muy agradecido si me pueden ayudar y si son lo más claros posibles por favor ya que soy bastante novato en esto.
De antemano ... muchisimas gracias.
Cells(fila, 4) = lun_car1_txt.Text
Cells(fila, 5) = lun_car2_txt.Text
Cells(fila, 6) = lun_ppe1_txt.Text
Cells(fila, 7) = lun_ppe2_txt.Text
Form1.txt_usuario.Text = ""
Form1.txt_contraseña.Text = ""
Form2.txt_nombre.Text = ""
Form2.txt_apellido.Text = ""
ThisWorkbook.Save
Me.Hide
Form3.Show
End Sub
Estaría muy agradecido si me pueden ayudar y si son lo más claros posibles por favor ya que soy bastante novato en esto.
De antemano ... muchisimas gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmd_aceptar_Click()
Worksheets("Planilla").Activate 'defino la hoja llamada "Planilla" como principal
Dim fila As Integer
fila = 3While Cells(fila, 1) <> ""
fila = fila + 1
Wend
Cells(fila, 1) = txt_codigo.Text
Cells(fila, 2) = txt_nombre.Text
Cells(fila, 3) = txt_apellido.Text
Cells(fila, 4) = lun_car1_txt.Text
Cells(fila, 5) = lun_car2_txt.Text
Cells(fila, 6) = lun_ppe1_txt.Text
Cells(fila, 7) = lun_ppe2_txt.Text
Form1.txt_usuario.Text = ""
Form1.txt_contraseña.Text = ""
Form2.txt_nombre.Text = ""
Form2.txt_apellido.Text = ""
ThisWorkbook.Save
Me.Hide
Form3.Show
End Sub
Valora esta pregunta
0