Buenas tardes, es la primera vez que escribo, tengo un problema con una rutina en excel. Tengo una base de datos en la cual tengo mas de 60,000 folios consecutivos, cada fila es un evento diferente de un folio, ejemplo el folio 1 puede tener 10 eventos, en la fila 11 esta el folio 2 que puede tener 16 eventos, después del folio 2 el 3 que tiene 8 eventos, así sucesivamente. Lo que necesito es extraer las fechas y horas de un evento en especifico, que es una entrada a un proceso, pero no siempre se sitúa en el misma posición, es decir, en el folio 1 el proceso inicia en el evento 3, en el folio 2 en el evento 12... etc. Hasta ahí no tengo problema, ya que he conseguido hacer una lista obteniendo los folios únicos y pegándolos en una columna aparte, pero necesito obtener las fechas y horas del termino del proceso, que no siempre esta en la misma posición, ejemplo en el folio 1 el termino del proceso esta en el evento 9, en el folio 2 en el 15, en el 3 en el 8. Les dejo mi rutina y espero que me puedan ayudar. Sub Proceso_Pago() '---------------------------------- With Application .EnableEvents = False .ScreenUpdating = False End With Range("A1").Select 'inicio o1 = 1 'posición While ActiveCell.Value <> "" 'mientras existan datos If ActiveCell.Offset(0, 4) = "Expediente Enviado financiación" Then r2 = ActiveCell.Value 'folio r3 = ActiveCell.Offset(0, 1).Value + ActiveCell.Offset(0, 2).Value 'Fecha + hora entrada a financiación r4 = ActiveCell.Offset(0, 3).Value 'Status r5 = ActiveCell.Offset(0, 4).Value 'Substatus r6 = ActiveCell.Offset(0, 6).Value 'Perfil '----------------------------------problema----------------------------------------- Do Until ActiveCell.Offset(0, 6).Value = "Crédito" And ActiveCell.Offset(0, 4).Value = "Incompleto" r7 = ActiveCell.Offset(0, 1).Value + ActiveCell.Offset(0, 2).Value If ActiveCell.Offset(0, 6).Value = "Crédito" And ActiveCell.Offset(0, 4).Value = "Incompleto" Then Exit Do ActiveCell.Offset(1, 0).Range("A1").Select Loop '------------------------------------------------------------------------------------------- End If Range("I1").Select 'Resultado o2 = 1 'columna 2 m1 = "No" 'Encontrado While ActiveCell.Value <> "" And m1 = "No" If ActiveCell.Value = r2 Then m1 = "Si" End If ActiveCell.Offset(1, 0).Range("A1").Select Wend If m1 = "No" Then ActiveCell.Value = r2 ActiveCell.Offset(0, 1).Value = r3 ActiveCell.Offset(0, 2).Value = r4 ActiveCell.Offset(0, 3).Value = r5 ActiveCell.Offset(0, 4).Value = r6 ActiveCell.Offset(0, 5).Value = r7 End If o1 = o1 + 1 Range("A1").Select ActiveCell.Offset(o1 - 1, 0).Range("A1").Select Wend 'salir del bucle With Application .EnableEvents = False .ScreenUpdating = False End With End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Rutina en excel buscar un dato en una columna

Autor del tema jonamac1
Fecha de inicio 18 Abr 2013

jonamac1

New member

18 Abr 2013

Buenas tardes, es la primera vez que escribo, tengo un problema con una rutina en excel.

Tengo una base de datos en la cual tengo mas de 60,000 folios consecutivos, cada fila es un evento...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Resolver rutina de Excel VBA formulario

Respuestas: 1

19 Nov 2013

Victor Luis

Resuelto

Problema sub rutina change

Respuestas: 3

4 Nov 2023

Leopoldo Blancas

Pregunta

Rutina para extraer texto específico de muchas páginas Wikipedia

Respuestas: 6

17 Nov 2021

Daniel Prado

Pregunta

Ayuda para la elaboración de rutina

Respuestas: 1

18 Ago 2017

guspomper57

Pregunta

crear una misma rutina pero en la siguiete fila

Respuestas: 1

15 May 2016

mauricio aguirre

Pregunta

RUTINA INGRESAR DATOS DE UN LIBRO A UNA CELDA DE OTRORADA

Respuestas: 4

28 Abr 2016

daniel.conocer

Pregunta

Subrutina que señale las fechas futuras

Respuestas: 7

26 Jul 2015

Cacho R

Pregunta

ejecutar una rutina en tiempo real

Respuestas: 8

18 Ago 2014

newton

Pregunta

rutina para validar rut en macro

Respuestas: 0

8 Jul 2014

Dante Bernal

Pregunta

copiar resultado de rutina condicional a columna

Respuestas: 0

28 Nov 2013

alvarito2205

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba