Entrada de formulario Excel VBA

Agregar un dato auxiliar:? Celdas (i,6) =? DTPicker1. Valor y valor. ? Cuadro combinado2. ¿Amplificador de texto? Cuadro combinado1. Texto

Utilizado como campo de índice

Luego, antes de escribir en la hoja de trabajo, agregue un juicio:

¿Dim? ¿Rng? ¿Como? Alcance

¿Configuración? ¿Rng? =?columna(6). Buscar(DTPicker1.Value? amp?ComboBox2.Text? amp?ComboBox1.Text)

¿Si? ¿Rng? ¿Sí? ¿No es así? ¿Nada? Entonces

¿Msgbox? "¡El registro ya existe y no se puede enviar!"

¿Salir? Submarino

¿Fin? Si, por supuesto, también se pudiera hacer con un objeto de diccionario, sería aún más sencillo.

Además, el bucle para encontrar la última celda vacía en la columna B se puede simplificar a un solo código como este:

¿Yo? =?rango(" B65536 "). FINAL(XLUP). compensación (1,0). Puede asociar la propiedad RowSource del control de lista de filas con la celda de la hoja de trabajo, luego ubicar el registro según el juicio previo del código duplicado y luego modificarlo y guardarlo.