Saludos amigos espero estén bien tengo un problema/pregunta algo compleja (por lo menos para mi) en el que necesito me ayuden. Conforme se vaya guardando la información proveniente del Formulario frmcdr en las Celdas “B3”, “C3”, “D3”, “E3”, “F3”, “H3”, “I3”, “J3”, “K3” “L3” y “M3” de la Hoja57 (MATRIZ3) de manera alterna y automática en la Celdas “N3” y “O3” necesito que una macro ejecute las siguientes formulas Excel o equivalentes en Vba (actualmente en la Celdas “N3” y “O3” se ejecutan estas formulas de forma convencional) • Celda “N3” (Días Mes): SI((FIN.MES(E3;0)-E3>I3);I3;(FIN.MES(E3;0))-E3) • Celda “O3” (Días Próximo Mes): SI(N3>=I3;0;((FIN.MES(E3;0))-(E3+I3))*-1) Una vez que se efectué el siguiente registro la macro debe de validar en el conjunto de registros de la Columna “F” (Mes RE) si ese nuevo registro corresponde al mismo mes (F3 = FX) o es un registro del siguiente mes (F3 <> FX) en aquellos registros donde se valide que F3 <> FX la macro deberá filtrar y validar en el conjunto de registros del mes anterior si este nuevo registro coincide con la Cédula (B3 = BX) y con la Fecha AT – EO (D3 = DX) de alguno de los eventos registrados en el mes anterior en cuyo caso la macro solo validara aquellos registros donde la Celda “OX” (Días Próximo Mes) sea ≥1, ejecutando automáticamente en la Celda “N3” del nuevo registro la siguiente formula Excel o equivalente en Vba: • Celda “N3” (Días Mes): SI((FIN.MES(E3;0)-E3>I3);I3;(FIN.MES(E3;0))-E3)+OX Para aquellos casos donde una evento tenga un único registro en el mes anterior donde la Celda “OX” (Días Próximo Mes) sea ≥1 y dicha lesión no tenga un registro en el mes siguiente para validar Mes RE (F3 <> FX), Cédula (B3 = BX) y Fecha AT – EO (D3 = DX) la macro deberá insertar automáticamente un registro complementario en las Celdas “B3”, “C3”, “D3”, “E3”, “F3”, “H3”, “I3”, “J3”, “K3” “L3” y “M3” del mes siguiente, dicho registro complementario deberá tomar como datos validos el resultado de las siguientes formulas Excel o equivalente en Vba: • Cédula: B3 = BX • Nombres y Apellidos: C3 = CX • Fecha AT – EO: D3 = DX • Fecha RE: "01"&"/"&(MES(HOY())&"/"&AÑO(HOY()) • Mes RE: NOMPROPIO(TEXTO(D3;"MMMM")) • Año RE: (TEXTO(D3;"YYYY")) • TDL: H3 = HX • DSP: I3 = 0 • CDD: J3 = JX • TDD: K3 = KX • DC: L3 = 0 • CEO: M3 = MX La letra “X” significa un número de fila desconocida dentro de la columna correspondiente Como no tengo idea de como hacer una macro tan compleja pregunte a la IA y me devolvió la siguiente macro (tan compleja para mi como la pregunta que hago) que quizás sirva como punto de partida para quien desee ayudarme: Sub RegistroEventos() ' Distribuir DSP Dim ws As Worksheet Dim lastRow As Long Dim currentRow As Long Dim newRow As Long Dim previousRow As Long Dim foundPrevious As Boolean Set ws = ThisWorkbook.Worksheets("Hoja57") ' Cambia esto si el nombre de tu hoja es diferente. ' Establecemos la fila del nuevo registro. currentRow = 3 ' Cambiar según sea necesario. ' Ajustar las fórmulas en las celdas N3 y O3 With ws .Range("N3").Formula = "=IF(E3=EOMONTH(E3,0)-E3>I3,I3,EOMONTH(E3,0)-E3)" .Range("O3").Formula = "=IF(N3>=I3,0,(EOMONTH(E3,0)-(E3+I3))*-1)" End With ' Validar el mes en la columna F lastRow = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row ' Iterar sobre registros en F For previousRow = 3 To lastRow If ws.Cells(previousRow, "F").Value <> ws.Cells(currentRow, "F").Value Then ' F3 <> FX If ws.Cells(previousRow, "B").Value = ws.Cells(currentRow, "B").Value And _ ws.Cells(previousRow, "D").Value = ws.Cells(currentRow, "D").Value Then ' Verificar OX (Días Próximo Mes) ? 1 If ws.Cells(previousRow, "O").Value >= 1 Then ' Ajustar la fórmula en N3 ws.Cells(currentRow, "N").Formula = "=IF(E3=EOMONTH(E3,0)-E3>I3,I3,EOMONTH(E3,0)-E3)+O" & previousRow Exit Sub ' Salimos ya que encontramos un empate y ajustamos la fórmula End If End If End If Next previousRow ' Si no se encontró un caso anterior, verificar si hay un único registro en el mes anterior foundPrevious = False For previousRow = 3 To lastRow If ws.Cells(previousRow, "B").Value = ws.Cells(currentRow, "B").Value And _ ws.Cells(previousRow, "D").Value = ws.Cells(currentRow, "D").Value Then If ws.Cells(previousRow, "O").Value >= 1 Then foundPrevious = True Exit For End If End If Next previousRow ' Si no hay registros y se encontró el único If foundPrevious Then newRow = lastRow + 1 ws.Cells(newRow, "B").Value = ws.Cells(currentRow, "B").Value ws.Cells(newRow, "C").Value = ws.Cells(currentRow, "C").Value ws.Cells(newRow, "D").Value = ws.Cells(currentRow, "D").Value ws.Cells(newRow, "E").Value = "01" & "/" & (Month(Date) & "/" & Year(Date)) ws.Cells(newRow, "F").Value = WorksheetFunction.Proper(Format(ws.Cells(currentRow, "D").Value, "MMMM")) ws.Cells(newRow, "G").Value = Year(ws.Cells(currentRow, "D").Value) ws.Cells(newRow, "H").Value = ws.Cells(currentRow, "H").Value ws.Cells(newRow, "I").Value = 0 ws.Cells(newRow, "J").Value = ws.Cells(currentRow, "J").Value ws.Cells(newRow, "K").Value = ws.Cells(currentRow, "K").Value ws.Cells(newRow, "L").Value = 0 ws.Cells(newRow, "M").Value = ws.Cells(currentRow, "M").Value End If End Sub Mucho les sabre agradecer la ayuda que me puedan brindar.

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.

Distribuir Dias Entre Dos Meses Consecutivos

Autor del tema JUES
Fecha de inicio 11 Sep 2024

JUES

Member

11 Sep 2024

Saludos amigos espero estén bien tengo un problema/pregunta algo compleja (por lo menos para mi) en el que necesito me ayuden.

Conforme se vaya guardando la información proveniente del Formulario...

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

Resuelto

Macro para distribuir dados de forma aleatória

Respuestas: 9

26 Ago 2025

Be_So_Al

Resuelto

distribuir datos

Respuestas: 5

11 May 2024

Eifk

Resuelto

Macro para distribuir datos en hojas, según el filtro.

Respuestas: 22

15 Jul 2022

star022

Pregunta

Distribuir fotos de acuerdo a rango de datos

Respuestas: 11

17 Jul 2022

star022

Pregunta

OUTLOOK (distribuir correos por fecha de entrada)

Respuestas: 2

28 Feb 2022

David Asencio

Pregunta

distribuir datos

Respuestas: 3

18 Ene 2022

magoblue

Pregunta

Distribuir Cuotas a través de una Macro

Respuestas: 9

7 Sep 2021

Ramón Vargas

Pregunta

Distribuir equitativamente cantidades de diferentes objetos en grupos

Respuestas: 2

23 Jun 2021

Angel P.

Pregunta

Distribuir Datos

Respuestas: 7

26 Abr 2021

Mcaro

Pregunta

Macros distribuir montos.

Respuestas: 5

10 Jul 2020

Cacho R

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