Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
A better way to browse. Learn more.
A full-screen app on your home screen with push notifications, badges and more.
Este tema está ahora archivado y está cerrado a más respuestas.
Buen día a todos, busco un poco de asesoría para saber cual es el código en VBA para que me genere un espacio vació, o algo parecido cuando presionas enter a escribir e ir a la siguiente casillas, esta es mi estructura:
1.- Todo se activa en el evento click en un boton.
2.- son 2 tablas conectadas a SQL, a través de recordset que una es la entrada y la otra es la salida
3.- Tienen un contador para el numero de filas, en el cual se encarga que después de un registro deje un espacio(Solo en entrada)
4.- La condición que puse para las salidas es: si hay mas de un registro de salida según la entrada, entonces deja un espacio y luego sigue con la siguiente búsqueda (Esto es lo que busco corregir)
Intente usando funciones tales como "CurrentSheet.Range", "Rows().Insert", e incluso "Cells", pero ninguno da lo que busco, el unico que casi opera como yo busco es "Rows(MoverFilas + m).Insert", pero lo hace en la tabla entrada, debido a no se como se declara el "ColumnIndex"
Bueno eso es todo por mi parte, les anexo código, en caso de requerir algo mas favor de comentarlo (Anexo archivo de excel, pero no funcionara debido a que esta conectado a SQL)
Esto lo que pasa al presionar el botón sin la condición que busco
Y esto lo que pasa cuando, pongo la condición(Que debe generarme un espacio debajo, si hay mas de 2 registro en las salidas)
If Sali.RecordCount > 1 Then
Rows(MoverFilas + m).Insert
Ahora busco obtner algo como esto(Esto fue elaborado a mano sin codigo)
Me indique su entrada y su salida respectiva
EspaciosVacios.zip