Entrada de formulario Excel VBA

Agregar un dato auxiliar:? celdas(I,6)=? DTPicker1. Valor y valor. ? Cuadro combinado2. texto y amp; ? cuadro combinadox1. Texto

Utilizado como campo de índice

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

¿Dim? ¿Rng? ¿Como qué? Alcance

¿Configuración? ¿Rng? =?columna(6). find(dt picker1.Value?&?ComboBox2.SMS?&?ComboBox1.Text)

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

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

¿Salir? Submarino

¿Fin? Si claro, también se puede hacer usando un objeto de diccionario, que es 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). La propiedad RowSource del control de lista de filas se puede asociar con la celda de la hoja de trabajo, y luego el registro se puede ubicar según el juicio previo del código duplicado y luego modificarlo y guardarlo.