UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

frankpiporro


Buenas tardes
Es grato saludarlos a todos..!
Solicito de su apoyo para lo siguiente:
Estoy utilizando en una hoja el evento Worksheet_Change(ByVal Target As Range), para al momento de capturar datos en celdas de la columna "A", me coloque la fecha y la hora de esa captura en la celda de la columna "B".


Al hacerlo genero un contador en la columna "C" para que cada 10 registros, se active una macro para realizar una copia del archivo activo en el mismo directorio.

Pero me sucede que al intentar borrar un dato de la columna "A", que ya estaba capturado o tal vez por error lo capturamos y se tiene que borrar, el evento change sigue capturando la fecha e incrementando el contador para llegar a 10.

Me ayudaría mucho me puedan indicar como evitar que se active el evento al momento de borrar una celda de la columna "A".

Le anexo el código que estoy utilizando:

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error GoTo ERROR
    If Target.Column = 1 Then
        Cells(Target.Row, 2).Value = Now
        i = i + 1
        Cells(Target.Row, 3).Value = i
        Cells(Target.Row, 4).Value = Application.UserName
    End If
   
    If i = 10 Then
        i = 0
        j = j + 1
        Call Guardar_Archivo
End If
ERROR:
    Application.EnableEvents = True
End Sub
Les envío un saludos desde la CDMX.

ioyama

avatar
Hola Franki

No acabo de ver lo que quieres

¿Cuando dices capturar datos de la columna A te refieres a introducir datos en dicha columna?

Si es así entiendo que los datos los metes uno a uno, de lo contrario el evento no se activa.

En ese caso (si es como cito anteriormente), el sistema de contadores que has puesto no sirve ya que i siempre será 1.

Sube tu archivo original (cambia datos si estos pudieran ser "sensibles" por su contenido), e indica como operas.

Un saludo desde Vitoria

frankpiporro


Hola Ioyama
Buenas tardes

Me da gusto saludarlos..!

Es correcto. En la columna "A", capturamos dichos Códigos de Barras de productos que enviamos a nuestros CEDIS. Lo hacemos vía un Scaner manual.
Labor que se realiza por cada Destino. Por eso hay varias hojas en el libro.

Y dependiendo del Destino (MTY, VER, OAX, ACA, etc.), activamos la hoja necesaria para ingresar dichos datos.

Espero no haberte confundido. Anexo archivo como muestra.

Lo que me falló creo yo, es que cuando el codigo capturado no es el correcto, al intentar borrar dicho código, el contador sigue acumulando datos.
Despues de "equis" cantidad de datos capturados, se genera un archivo como respaldo.

Por cierto, ya le hice algunas modificaciones al código del evento. Y más o menos me funciona.

También agradecería mucho me indicaran si mi código está bien estructurado o que estoy haciendo mal.

Ojalá me puedas orientar y/o ayudar.

Saludos desde la CDMX
Archivos
Mi Consulta Evento Change.xlsm
Archivo muestra para la captura de los códigos
No tienes los permisos para descargar los archivos.
(58 KB)

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.