Visual Basic - Macro con problemas para el pegado especial

Buen dia como puse en la descripción tengo problemas con el pegado especial, les comento rápido, tengo que escanear todo los días al personal de la empresa en las actividades que están haciendo cada día, para esto solo requiero su identificacion y el de su operación, con estos datos obtengo otros como el nombre, la hora, la fecha, el tipo de operación, etc. cuando Ya tengo esta información una macro de boton me copia todo el rango que sería de A3:L3, lo copia, busca el siguiente renglón vacío de la hoja que le mando y lo pega, hasta ahí sin Problemas se va creando la base de datos. La situación es cuando es más de una operación, cree un evento que al ingresar el código del operador habré un cuadro de texto preguntando si es solo uno o varios, cuando es varios se desocultan (no se si este bien dicho) 14 renglones más que aparentemente están en blanco, como ya use el evento de la hoja no puedo poner otra macro que me inserte fórmulas al ingresar datos en la siguiente fila, por lo que se me ocurrió usar la formula IF y condicionarla para que en caso de haber datos en la celda que le especifico haga la fórmula que correspondería y en caso de no tener datos que no mostrara ningún dato, yo creyendo que la celda Quedaría sin valores, la fórmula quedarian así IF(D4>0,C3,””) y efectivamente si no hay datos yo no veo nada y en caso de haberlo si se muestra correctamente. El problema surge cuando activo la macro que copia y pega los valores, porque como lo dije anteriormente se abren más filas entonces el rango que copia ahora es de A3:L17 y efectivamente lo pega, pero las filas que están en blanco ya sea porque no se usaron es decir no había datos en la fila en cuestión que activara las formulas, pareciera que si copia datos, es decir copia el rango A3:L17, busca el siguiente renglón vacio y lo pega sin problemas pero cuando ingresó a un nuevo operador igual copia el rango pero no busca el siguiente renglón vacío para pegarlo si no que lo pega en el renglón que seguí después de haber pegado la información eso hace que haya espacioa hasta de 14 filas sin datos visibles, no se si es problema de la macro o de las fórmulas, como dato adicional intente correr la macro sin que hubiera fórmulas en ese rango y efectivamente lo pega justo en el siguiente renglón. Entonces no se si quizá el problema sea que al usar la condición “” algo se quede oculto en la celda y sea lo que se esté copiando.





De antno muchas gracias y perdón por toda la explicación creo que es demasiado pero quería explicarme a detalle.

Creo entender más o menos el problema que tienes. Lo que no se es lo que haces, no lo que dices que haces.

Entiendo que cuando que cuando una persona hace una sola operación la cosa funciona bien, pero cuando hay varias la cosa falla porque deja filas en blanco que la macro no es capaz de identificar con la siguiente entrada de datos.

La única forma de ayudarte es que subas un fichero de ejemplo, con sus datos, unos ejemplos de entrada correcta y fallida, y las correspondientes explicaciones para realizar la prueba.

Si en la macro pones POPO donde debería poner PEPE como lo voy a saber si no lo veo y tu que lo ves no te has dado cuenta como puedo decirte donde esta el error.

Saludos.
\\//_

Anexo foto y el fichero, la macro que hace ese pegado se llama "AgregarRegistroDiario"

• Copy-of-Portal-de-entrenamiento-002.rar(2,4 MB)

Primeros cambios:

En la hoja Registro he modificado la formula de A3, C3 y E3 para que no de error.

En la macro AgregarRegistroDiario
- Mira si hay datos a copiar.
- Cuenta las línes a copiar.
- Busca la primera fila vacia.
- Copia los datos.

La forma en que Excel te dice que puedes ir a la última línea es verdad y mentida a la vez:


Por esta razón utilizo el WHILE para buscar la primera fila vacía


En la macro de la hoja registro he puesto que verifique que el código de empleado es correcto.


Quízas hay más cosas que corregir o mejorar pero de momento y contestando a tu inquietud solo de estos.

Saludos.
\\//_

• Copy-of-Portal-de-entrenamiento-002-Rev.zip(2,6 MB)

Agradezco mucho su respuesta ahora mismo lo pruebo